packages feed

gi-webkit2 0.2.12.15 → 4.0.1

raw patch · 105 files changed

+39/−30870 lines, 105 filesdep ~gi-atkdep ~gi-cairodep ~gi-gdkbuild-type:Customsetup-changed

Dependency ranges changed: gi-atk, gi-cairo, gi-gdk, gi-gio, gi-glib, gi-gobject, gi-gtk, gi-javascriptcore, gi-soup, transformers

Files

− GI/WebKit2.hs 
@@ -1,46 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.WebKit2-    (     module GI.WebKit2.Callbacks             ,-    module GI.WebKit2.Constants             ,-    module GI.WebKit2.Enums                 ,-    module GI.WebKit2.Flags                 ,-    module GI.WebKit2.Functions             ,-    module GI.WebKit2.Interfaces            ,-    module GI.WebKit2.Objects               ,-    module GI.WebKit2.Structs               ,----    module Data.GI.Base                     ,---    ) where--import GI.WebKit2.Callbacks-import GI.WebKit2.Constants-import GI.WebKit2.Enums-import GI.WebKit2.Flags-import GI.WebKit2.Functions-import GI.WebKit2.Interfaces-import GI.WebKit2.Objects-import GI.WebKit2.Structs--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks--import Data.GI.Base-
− GI/WebKit2/Callbacks.hs 
@@ -1,67 +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.WebKit2.Callbacks-    ( -- -- * Signals--- ** URISchemeRequestCallback-    URISchemeRequestCallback                ,-    URISchemeRequestCallbackC               ,-    mkURISchemeRequestCallback              ,-    noURISchemeRequestCallback              ,-    uRISchemeRequestCallbackClosure         ,-    uRISchemeRequestCallbackWrapper         ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types----- callback URISchemeRequestCallback-uRISchemeRequestCallbackClosure :: URISchemeRequestCallback -> IO Closure-uRISchemeRequestCallbackClosure cb = newCClosure =<< mkURISchemeRequestCallback wrapped-    where wrapped = uRISchemeRequestCallbackWrapper Nothing cb--type URISchemeRequestCallbackC =-    Ptr URISchemeRequest ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkURISchemeRequestCallback :: URISchemeRequestCallbackC -> IO (FunPtr URISchemeRequestCallbackC)--type URISchemeRequestCallback =-    URISchemeRequest ->-    IO ()--noURISchemeRequestCallback :: Maybe URISchemeRequestCallback-noURISchemeRequestCallback = Nothing--uRISchemeRequestCallbackWrapper ::-    Maybe (Ptr (FunPtr (URISchemeRequestCallbackC))) ->-    URISchemeRequestCallback ->-    Ptr URISchemeRequest ->-    Ptr () ->-    IO ()-uRISchemeRequestCallbackWrapper funptrptr _cb request _ = do-    request' <- (newObject URISchemeRequest) request-    _cb  request'-    maybeReleaseFunPtr funptrptr--
− GI/WebKit2/Constants.hs 
@@ -1,69 +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.WebKit2.Constants-    ( -    pattern MINOR_VERSION                   ,-    pattern MICRO_VERSION                   ,-    pattern MAJOR_VERSION                   ,-    pattern EDITING_COMMAND_UNDO            ,-    pattern EDITING_COMMAND_SELECT_ALL      ,-    pattern EDITING_COMMAND_REDO            ,-    pattern EDITING_COMMAND_PASTE           ,-    pattern EDITING_COMMAND_INSERT_IMAGE    ,-    pattern EDITING_COMMAND_CUT             ,-    pattern EDITING_COMMAND_CREATE_LINK     ,-    pattern EDITING_COMMAND_COPY            ,--    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks---pattern MINOR_VERSION = 12 :: Int32---pattern MICRO_VERSION = 2 :: Int32---pattern MAJOR_VERSION = 2 :: Int32---pattern EDITING_COMMAND_UNDO = "Undo" :: T.Text---pattern EDITING_COMMAND_SELECT_ALL = "SelectAll" :: T.Text---pattern EDITING_COMMAND_REDO = "Redo" :: T.Text---pattern EDITING_COMMAND_PASTE = "Paste" :: T.Text---pattern EDITING_COMMAND_INSERT_IMAGE = "InsertImage" :: T.Text---pattern EDITING_COMMAND_CUT = "Cut" :: T.Text---pattern EDITING_COMMAND_CREATE_LINK = "CreateLink" :: T.Text---pattern EDITING_COMMAND_COPY = "Copy" :: T.Text--
− GI/WebKit2/Enums.hs 
@@ -1,1027 +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.WebKit2.Enums-    ( -    catchSnapshotError                      ,-    handleSnapshotError                     ,-    catchPrintError                         ,-    handlePrintError                        ,-    catchPolicyError                        ,-    handlePolicyError                       ,-    catchPluginError                        ,-    handlePluginError                       ,-    catchNetworkError                       ,-    handleNetworkError                      ,-    catchJavascriptError                    ,-    handleJavascriptError                   ,-    catchFaviconDatabaseError               ,-    handleFaviconDatabaseError              ,-    catchDownloadError                      ,-    handleDownloadError                     ,---- * Exported types-    UserStyleLevel(..)                      ,-    UserScriptInjectionTime(..)             ,-    UserContentInjectedFrames(..)           ,-    TLSErrorsPolicy(..)                     ,-    SnapshotRegion(..)                      ,-    SnapshotError(..)                       ,-    ScriptDialogType(..)                    ,-    SaveMode(..)                            ,-    ProcessModel(..)                        ,-    PrintOperationResponse(..)              ,-    PrintError(..)                          ,-    PolicyError(..)                         ,-    PolicyDecisionType(..)                  ,-    PluginError(..)                         ,-    NetworkError(..)                        ,-    NavigationType(..)                      ,-    LoadEvent(..)                           ,-    JavascriptError(..)                     ,-    InsecureContentEvent(..)                ,-    FaviconDatabaseError(..)                ,-    DownloadError(..)                       ,-    CredentialPersistence(..)               ,-    CookiePersistentStorage(..)             ,-    CookieAcceptPolicy(..)                  ,-    ContextMenuAction(..)                   ,-    CacheModel(..)                          ,-    AuthenticationScheme(..)                ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map------- Enum UserStyleLevel--data UserStyleLevel = -      UserStyleLevelUser-    | UserStyleLevelAuthor-    | AnotherUserStyleLevel Int-    deriving (Show, Eq)--instance Enum UserStyleLevel where-    fromEnum UserStyleLevelUser = 0-    fromEnum UserStyleLevelAuthor = 1-    fromEnum (AnotherUserStyleLevel k) = k--    toEnum 0 = UserStyleLevelUser-    toEnum 1 = UserStyleLevelAuthor-    toEnum k = AnotherUserStyleLevel k--foreign import ccall "webkit_user_style_level_get_type" c_webkit_user_style_level_get_type :: -    IO GType--instance BoxedEnum UserStyleLevel where-    boxedEnumType _ = c_webkit_user_style_level_get_type---- Enum UserScriptInjectionTime--data UserScriptInjectionTime = -      UserScriptInjectionTimeStart-    | UserScriptInjectionTimeEnd-    | AnotherUserScriptInjectionTime Int-    deriving (Show, Eq)--instance Enum UserScriptInjectionTime where-    fromEnum UserScriptInjectionTimeStart = 0-    fromEnum UserScriptInjectionTimeEnd = 1-    fromEnum (AnotherUserScriptInjectionTime k) = k--    toEnum 0 = UserScriptInjectionTimeStart-    toEnum 1 = UserScriptInjectionTimeEnd-    toEnum k = AnotherUserScriptInjectionTime k--foreign import ccall "webkit_user_script_injection_time_get_type" c_webkit_user_script_injection_time_get_type :: -    IO GType--instance BoxedEnum UserScriptInjectionTime where-    boxedEnumType _ = c_webkit_user_script_injection_time_get_type---- Enum UserContentInjectedFrames--data UserContentInjectedFrames = -      UserContentInjectedFramesAllFrames-    | UserContentInjectedFramesTopFrame-    | AnotherUserContentInjectedFrames Int-    deriving (Show, Eq)--instance Enum UserContentInjectedFrames where-    fromEnum UserContentInjectedFramesAllFrames = 0-    fromEnum UserContentInjectedFramesTopFrame = 1-    fromEnum (AnotherUserContentInjectedFrames k) = k--    toEnum 0 = UserContentInjectedFramesAllFrames-    toEnum 1 = UserContentInjectedFramesTopFrame-    toEnum k = AnotherUserContentInjectedFrames k--foreign import ccall "webkit_user_content_injected_frames_get_type" c_webkit_user_content_injected_frames_get_type :: -    IO GType--instance BoxedEnum UserContentInjectedFrames where-    boxedEnumType _ = c_webkit_user_content_injected_frames_get_type---- Enum TLSErrorsPolicy--data TLSErrorsPolicy = -      TLSErrorsPolicyIgnore-    | TLSErrorsPolicyFail-    | AnotherTLSErrorsPolicy Int-    deriving (Show, Eq)--instance Enum TLSErrorsPolicy where-    fromEnum TLSErrorsPolicyIgnore = 0-    fromEnum TLSErrorsPolicyFail = 1-    fromEnum (AnotherTLSErrorsPolicy k) = k--    toEnum 0 = TLSErrorsPolicyIgnore-    toEnum 1 = TLSErrorsPolicyFail-    toEnum k = AnotherTLSErrorsPolicy k--foreign import ccall "webkit_tls_errors_policy_get_type" c_webkit_tls_errors_policy_get_type :: -    IO GType--instance BoxedEnum TLSErrorsPolicy where-    boxedEnumType _ = c_webkit_tls_errors_policy_get_type---- Enum SnapshotRegion--data SnapshotRegion = -      SnapshotRegionVisible-    | SnapshotRegionFullDocument-    | AnotherSnapshotRegion Int-    deriving (Show, Eq)--instance Enum SnapshotRegion where-    fromEnum SnapshotRegionVisible = 0-    fromEnum SnapshotRegionFullDocument = 1-    fromEnum (AnotherSnapshotRegion k) = k--    toEnum 0 = SnapshotRegionVisible-    toEnum 1 = SnapshotRegionFullDocument-    toEnum k = AnotherSnapshotRegion k--foreign import ccall "webkit_snapshot_region_get_type" c_webkit_snapshot_region_get_type :: -    IO GType--instance BoxedEnum SnapshotRegion where-    boxedEnumType _ = c_webkit_snapshot_region_get_type---- Enum SnapshotError--data SnapshotError = -      SnapshotErrorCreate-    | AnotherSnapshotError Int-    deriving (Show, Eq)--instance Enum SnapshotError where-    fromEnum SnapshotErrorCreate = 799-    fromEnum (AnotherSnapshotError k) = k--    toEnum 799 = SnapshotErrorCreate-    toEnum k = AnotherSnapshotError k--instance GErrorClass SnapshotError where-    gerrorClassDomain _ = "WebKitSnapshotError"--catchSnapshotError ::-    IO a ->-    (SnapshotError -> GErrorMessage -> IO a) ->-    IO a-catchSnapshotError = catchGErrorJustDomain--handleSnapshotError ::-    (SnapshotError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleSnapshotError = handleGErrorJustDomain--foreign import ccall "webkit_snapshot_error_get_type" c_webkit_snapshot_error_get_type :: -    IO GType--instance BoxedEnum SnapshotError where-    boxedEnumType _ = c_webkit_snapshot_error_get_type---- Enum ScriptDialogType--data ScriptDialogType = -      ScriptDialogTypeAlert-    | ScriptDialogTypeConfirm-    | ScriptDialogTypePrompt-    | ScriptDialogTypeBeforeUnloadConfirm-    | AnotherScriptDialogType Int-    deriving (Show, Eq)--instance Enum ScriptDialogType where-    fromEnum ScriptDialogTypeAlert = 0-    fromEnum ScriptDialogTypeConfirm = 1-    fromEnum ScriptDialogTypePrompt = 2-    fromEnum ScriptDialogTypeBeforeUnloadConfirm = 3-    fromEnum (AnotherScriptDialogType k) = k--    toEnum 0 = ScriptDialogTypeAlert-    toEnum 1 = ScriptDialogTypeConfirm-    toEnum 2 = ScriptDialogTypePrompt-    toEnum 3 = ScriptDialogTypeBeforeUnloadConfirm-    toEnum k = AnotherScriptDialogType k--foreign import ccall "webkit_script_dialog_type_get_type" c_webkit_script_dialog_type_get_type :: -    IO GType--instance BoxedEnum ScriptDialogType where-    boxedEnumType _ = c_webkit_script_dialog_type_get_type---- Enum SaveMode--data SaveMode = -      SaveModeMhtml-    | AnotherSaveMode Int-    deriving (Show, Eq)--instance Enum SaveMode where-    fromEnum SaveModeMhtml = 0-    fromEnum (AnotherSaveMode k) = k--    toEnum 0 = SaveModeMhtml-    toEnum k = AnotherSaveMode k--foreign import ccall "webkit_save_mode_get_type" c_webkit_save_mode_get_type :: -    IO GType--instance BoxedEnum SaveMode where-    boxedEnumType _ = c_webkit_save_mode_get_type---- Enum ProcessModel--data ProcessModel = -      ProcessModelSharedSecondaryProcess-    | ProcessModelMultipleSecondaryProcesses-    | AnotherProcessModel Int-    deriving (Show, Eq)--instance Enum ProcessModel where-    fromEnum ProcessModelSharedSecondaryProcess = 0-    fromEnum ProcessModelMultipleSecondaryProcesses = 1-    fromEnum (AnotherProcessModel k) = k--    toEnum 0 = ProcessModelSharedSecondaryProcess-    toEnum 1 = ProcessModelMultipleSecondaryProcesses-    toEnum k = AnotherProcessModel k--foreign import ccall "webkit_process_model_get_type" c_webkit_process_model_get_type :: -    IO GType--instance BoxedEnum ProcessModel where-    boxedEnumType _ = c_webkit_process_model_get_type---- Enum PrintOperationResponse--data PrintOperationResponse = -      PrintOperationResponsePrint-    | PrintOperationResponseCancel-    | AnotherPrintOperationResponse Int-    deriving (Show, Eq)--instance Enum PrintOperationResponse where-    fromEnum PrintOperationResponsePrint = 0-    fromEnum PrintOperationResponseCancel = 1-    fromEnum (AnotherPrintOperationResponse k) = k--    toEnum 0 = PrintOperationResponsePrint-    toEnum 1 = PrintOperationResponseCancel-    toEnum k = AnotherPrintOperationResponse k--foreign import ccall "webkit_print_operation_response_get_type" c_webkit_print_operation_response_get_type :: -    IO GType--instance BoxedEnum PrintOperationResponse where-    boxedEnumType _ = c_webkit_print_operation_response_get_type---- Enum PrintError--data PrintError = -      PrintErrorGeneral-    | PrintErrorPrinterNotFound-    | PrintErrorInvalidPageRange-    | AnotherPrintError Int-    deriving (Show, Eq)--instance Enum PrintError where-    fromEnum PrintErrorGeneral = 599-    fromEnum PrintErrorPrinterNotFound = 500-    fromEnum PrintErrorInvalidPageRange = 501-    fromEnum (AnotherPrintError k) = k--    toEnum 500 = PrintErrorPrinterNotFound-    toEnum 501 = PrintErrorInvalidPageRange-    toEnum 599 = PrintErrorGeneral-    toEnum k = AnotherPrintError k--instance GErrorClass PrintError where-    gerrorClassDomain _ = "WebKitPrintError"--catchPrintError ::-    IO a ->-    (PrintError -> GErrorMessage -> IO a) ->-    IO a-catchPrintError = catchGErrorJustDomain--handlePrintError ::-    (PrintError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handlePrintError = handleGErrorJustDomain--foreign import ccall "webkit_print_error_get_type" c_webkit_print_error_get_type :: -    IO GType--instance BoxedEnum PrintError where-    boxedEnumType _ = c_webkit_print_error_get_type---- Enum PolicyError--data PolicyError = -      PolicyErrorFailed-    | PolicyErrorCannotShowMimeType-    | PolicyErrorCannotShowUri-    | PolicyErrorFrameLoadInterruptedByPolicyChange-    | PolicyErrorCannotUseRestrictedPort-    | AnotherPolicyError Int-    deriving (Show, Eq)--instance Enum PolicyError where-    fromEnum PolicyErrorFailed = 199-    fromEnum PolicyErrorCannotShowMimeType = 100-    fromEnum PolicyErrorCannotShowUri = 101-    fromEnum PolicyErrorFrameLoadInterruptedByPolicyChange = 102-    fromEnum PolicyErrorCannotUseRestrictedPort = 103-    fromEnum (AnotherPolicyError k) = k--    toEnum 100 = PolicyErrorCannotShowMimeType-    toEnum 101 = PolicyErrorCannotShowUri-    toEnum 102 = PolicyErrorFrameLoadInterruptedByPolicyChange-    toEnum 103 = PolicyErrorCannotUseRestrictedPort-    toEnum 199 = PolicyErrorFailed-    toEnum k = AnotherPolicyError k--instance GErrorClass PolicyError where-    gerrorClassDomain _ = "WebKitPolicyError"--catchPolicyError ::-    IO a ->-    (PolicyError -> GErrorMessage -> IO a) ->-    IO a-catchPolicyError = catchGErrorJustDomain--handlePolicyError ::-    (PolicyError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handlePolicyError = handleGErrorJustDomain--foreign import ccall "webkit_policy_error_get_type" c_webkit_policy_error_get_type :: -    IO GType--instance BoxedEnum PolicyError where-    boxedEnumType _ = c_webkit_policy_error_get_type---- Enum PolicyDecisionType--data PolicyDecisionType = -      PolicyDecisionTypeNavigationAction-    | PolicyDecisionTypeNewWindowAction-    | PolicyDecisionTypeResponse-    | AnotherPolicyDecisionType Int-    deriving (Show, Eq)--instance Enum PolicyDecisionType where-    fromEnum PolicyDecisionTypeNavigationAction = 0-    fromEnum PolicyDecisionTypeNewWindowAction = 1-    fromEnum PolicyDecisionTypeResponse = 2-    fromEnum (AnotherPolicyDecisionType k) = k--    toEnum 0 = PolicyDecisionTypeNavigationAction-    toEnum 1 = PolicyDecisionTypeNewWindowAction-    toEnum 2 = PolicyDecisionTypeResponse-    toEnum k = AnotherPolicyDecisionType k--foreign import ccall "webkit_policy_decision_type_get_type" c_webkit_policy_decision_type_get_type :: -    IO GType--instance BoxedEnum PolicyDecisionType where-    boxedEnumType _ = c_webkit_policy_decision_type_get_type---- Enum PluginError--data PluginError = -      PluginErrorFailed-    | PluginErrorCannotFindPlugin-    | PluginErrorCannotLoadPlugin-    | PluginErrorJavaUnavailable-    | PluginErrorConnectionCancelled-    | PluginErrorWillHandleLoad-    | AnotherPluginError Int-    deriving (Show, Eq)--instance Enum PluginError where-    fromEnum PluginErrorFailed = 299-    fromEnum PluginErrorCannotFindPlugin = 200-    fromEnum PluginErrorCannotLoadPlugin = 201-    fromEnum PluginErrorJavaUnavailable = 202-    fromEnum PluginErrorConnectionCancelled = 203-    fromEnum PluginErrorWillHandleLoad = 204-    fromEnum (AnotherPluginError k) = k--    toEnum 200 = PluginErrorCannotFindPlugin-    toEnum 201 = PluginErrorCannotLoadPlugin-    toEnum 202 = PluginErrorJavaUnavailable-    toEnum 203 = PluginErrorConnectionCancelled-    toEnum 204 = PluginErrorWillHandleLoad-    toEnum 299 = PluginErrorFailed-    toEnum k = AnotherPluginError k--instance GErrorClass PluginError where-    gerrorClassDomain _ = "WebKitPluginError"--catchPluginError ::-    IO a ->-    (PluginError -> GErrorMessage -> IO a) ->-    IO a-catchPluginError = catchGErrorJustDomain--handlePluginError ::-    (PluginError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handlePluginError = handleGErrorJustDomain--foreign import ccall "webkit_plugin_error_get_type" c_webkit_plugin_error_get_type :: -    IO GType--instance BoxedEnum PluginError where-    boxedEnumType _ = c_webkit_plugin_error_get_type---- Enum NetworkError--data NetworkError = -      NetworkErrorFailed-    | NetworkErrorTransport-    | NetworkErrorUnknownProtocol-    | NetworkErrorCancelled-    | NetworkErrorFileDoesNotExist-    | AnotherNetworkError Int-    deriving (Show, Eq)--instance Enum NetworkError where-    fromEnum NetworkErrorFailed = 399-    fromEnum NetworkErrorTransport = 300-    fromEnum NetworkErrorUnknownProtocol = 301-    fromEnum NetworkErrorCancelled = 302-    fromEnum NetworkErrorFileDoesNotExist = 303-    fromEnum (AnotherNetworkError k) = k--    toEnum 300 = NetworkErrorTransport-    toEnum 301 = NetworkErrorUnknownProtocol-    toEnum 302 = NetworkErrorCancelled-    toEnum 303 = NetworkErrorFileDoesNotExist-    toEnum 399 = NetworkErrorFailed-    toEnum k = AnotherNetworkError k--instance GErrorClass NetworkError where-    gerrorClassDomain _ = "WebKitNetworkError"--catchNetworkError ::-    IO a ->-    (NetworkError -> GErrorMessage -> IO a) ->-    IO a-catchNetworkError = catchGErrorJustDomain--handleNetworkError ::-    (NetworkError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleNetworkError = handleGErrorJustDomain--foreign import ccall "webkit_network_error_get_type" c_webkit_network_error_get_type :: -    IO GType--instance BoxedEnum NetworkError where-    boxedEnumType _ = c_webkit_network_error_get_type---- Enum NavigationType--data NavigationType = -      NavigationTypeLinkClicked-    | NavigationTypeFormSubmitted-    | NavigationTypeBackForward-    | NavigationTypeReload-    | NavigationTypeFormResubmitted-    | NavigationTypeOther-    | AnotherNavigationType Int-    deriving (Show, Eq)--instance Enum NavigationType where-    fromEnum NavigationTypeLinkClicked = 0-    fromEnum NavigationTypeFormSubmitted = 1-    fromEnum NavigationTypeBackForward = 2-    fromEnum NavigationTypeReload = 3-    fromEnum NavigationTypeFormResubmitted = 4-    fromEnum NavigationTypeOther = 5-    fromEnum (AnotherNavigationType k) = k--    toEnum 0 = NavigationTypeLinkClicked-    toEnum 1 = NavigationTypeFormSubmitted-    toEnum 2 = NavigationTypeBackForward-    toEnum 3 = NavigationTypeReload-    toEnum 4 = NavigationTypeFormResubmitted-    toEnum 5 = NavigationTypeOther-    toEnum k = AnotherNavigationType k--foreign import ccall "webkit_navigation_type_get_type" c_webkit_navigation_type_get_type :: -    IO GType--instance BoxedEnum NavigationType where-    boxedEnumType _ = c_webkit_navigation_type_get_type---- Enum LoadEvent--data LoadEvent = -      LoadEventStarted-    | LoadEventRedirected-    | LoadEventCommitted-    | LoadEventFinished-    | AnotherLoadEvent Int-    deriving (Show, Eq)--instance Enum LoadEvent where-    fromEnum LoadEventStarted = 0-    fromEnum LoadEventRedirected = 1-    fromEnum LoadEventCommitted = 2-    fromEnum LoadEventFinished = 3-    fromEnum (AnotherLoadEvent k) = k--    toEnum 0 = LoadEventStarted-    toEnum 1 = LoadEventRedirected-    toEnum 2 = LoadEventCommitted-    toEnum 3 = LoadEventFinished-    toEnum k = AnotherLoadEvent k--foreign import ccall "webkit_load_event_get_type" c_webkit_load_event_get_type :: -    IO GType--instance BoxedEnum LoadEvent where-    boxedEnumType _ = c_webkit_load_event_get_type---- Enum JavascriptError--data JavascriptError = -      JavascriptErrorFailed-    | AnotherJavascriptError Int-    deriving (Show, Eq)--instance Enum JavascriptError where-    fromEnum JavascriptErrorFailed = 699-    fromEnum (AnotherJavascriptError k) = k--    toEnum 699 = JavascriptErrorFailed-    toEnum k = AnotherJavascriptError k--instance GErrorClass JavascriptError where-    gerrorClassDomain _ = "WebKitJavascriptError"--catchJavascriptError ::-    IO a ->-    (JavascriptError -> GErrorMessage -> IO a) ->-    IO a-catchJavascriptError = catchGErrorJustDomain--handleJavascriptError ::-    (JavascriptError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleJavascriptError = handleGErrorJustDomain--foreign import ccall "webkit_javascript_error_get_type" c_webkit_javascript_error_get_type :: -    IO GType--instance BoxedEnum JavascriptError where-    boxedEnumType _ = c_webkit_javascript_error_get_type---- Enum InsecureContentEvent--data InsecureContentEvent = -      InsecureContentEventRun-    | InsecureContentEventDisplayed-    | AnotherInsecureContentEvent Int-    deriving (Show, Eq)--instance Enum InsecureContentEvent where-    fromEnum InsecureContentEventRun = 0-    fromEnum InsecureContentEventDisplayed = 1-    fromEnum (AnotherInsecureContentEvent k) = k--    toEnum 0 = InsecureContentEventRun-    toEnum 1 = InsecureContentEventDisplayed-    toEnum k = AnotherInsecureContentEvent k--foreign import ccall "webkit_insecure_content_event_get_type" c_webkit_insecure_content_event_get_type :: -    IO GType--instance BoxedEnum InsecureContentEvent where-    boxedEnumType _ = c_webkit_insecure_content_event_get_type---- Enum FaviconDatabaseError--data FaviconDatabaseError = -      FaviconDatabaseErrorNotInitialized-    | FaviconDatabaseErrorFaviconNotFound-    | FaviconDatabaseErrorFaviconUnknown-    | AnotherFaviconDatabaseError Int-    deriving (Show, Eq)--instance Enum FaviconDatabaseError where-    fromEnum FaviconDatabaseErrorNotInitialized = 0-    fromEnum FaviconDatabaseErrorFaviconNotFound = 1-    fromEnum FaviconDatabaseErrorFaviconUnknown = 2-    fromEnum (AnotherFaviconDatabaseError k) = k--    toEnum 0 = FaviconDatabaseErrorNotInitialized-    toEnum 1 = FaviconDatabaseErrorFaviconNotFound-    toEnum 2 = FaviconDatabaseErrorFaviconUnknown-    toEnum k = AnotherFaviconDatabaseError k--instance GErrorClass FaviconDatabaseError where-    gerrorClassDomain _ = "WebKitFaviconDatabaseError"--catchFaviconDatabaseError ::-    IO a ->-    (FaviconDatabaseError -> GErrorMessage -> IO a) ->-    IO a-catchFaviconDatabaseError = catchGErrorJustDomain--handleFaviconDatabaseError ::-    (FaviconDatabaseError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleFaviconDatabaseError = handleGErrorJustDomain--foreign import ccall "webkit_favicon_database_error_get_type" c_webkit_favicon_database_error_get_type :: -    IO GType--instance BoxedEnum FaviconDatabaseError where-    boxedEnumType _ = c_webkit_favicon_database_error_get_type---- Enum DownloadError--data DownloadError = -      DownloadErrorNetwork-    | DownloadErrorCancelledByUser-    | DownloadErrorDestination-    | AnotherDownloadError Int-    deriving (Show, Eq)--instance Enum DownloadError where-    fromEnum DownloadErrorNetwork = 499-    fromEnum DownloadErrorCancelledByUser = 400-    fromEnum DownloadErrorDestination = 401-    fromEnum (AnotherDownloadError k) = k--    toEnum 400 = DownloadErrorCancelledByUser-    toEnum 401 = DownloadErrorDestination-    toEnum 499 = DownloadErrorNetwork-    toEnum k = AnotherDownloadError k--instance GErrorClass DownloadError where-    gerrorClassDomain _ = "WebKitDownloadError"--catchDownloadError ::-    IO a ->-    (DownloadError -> GErrorMessage -> IO a) ->-    IO a-catchDownloadError = catchGErrorJustDomain--handleDownloadError ::-    (DownloadError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleDownloadError = handleGErrorJustDomain--foreign import ccall "webkit_download_error_get_type" c_webkit_download_error_get_type :: -    IO GType--instance BoxedEnum DownloadError where-    boxedEnumType _ = c_webkit_download_error_get_type---- Enum CredentialPersistence--data CredentialPersistence = -      CredentialPersistenceNone-    | CredentialPersistenceForSession-    | CredentialPersistencePermanent-    | AnotherCredentialPersistence Int-    deriving (Show, Eq)--instance Enum CredentialPersistence where-    fromEnum CredentialPersistenceNone = 0-    fromEnum CredentialPersistenceForSession = 1-    fromEnum CredentialPersistencePermanent = 2-    fromEnum (AnotherCredentialPersistence k) = k--    toEnum 0 = CredentialPersistenceNone-    toEnum 1 = CredentialPersistenceForSession-    toEnum 2 = CredentialPersistencePermanent-    toEnum k = AnotherCredentialPersistence k--foreign import ccall "webkit_credential_persistence_get_type" c_webkit_credential_persistence_get_type :: -    IO GType--instance BoxedEnum CredentialPersistence where-    boxedEnumType _ = c_webkit_credential_persistence_get_type---- Enum CookiePersistentStorage--data CookiePersistentStorage = -      CookiePersistentStorageText-    | CookiePersistentStorageSqlite-    | AnotherCookiePersistentStorage Int-    deriving (Show, Eq)--instance Enum CookiePersistentStorage where-    fromEnum CookiePersistentStorageText = 0-    fromEnum CookiePersistentStorageSqlite = 1-    fromEnum (AnotherCookiePersistentStorage k) = k--    toEnum 0 = CookiePersistentStorageText-    toEnum 1 = CookiePersistentStorageSqlite-    toEnum k = AnotherCookiePersistentStorage k--foreign import ccall "webkit_cookie_persistent_storage_get_type" c_webkit_cookie_persistent_storage_get_type :: -    IO GType--instance BoxedEnum CookiePersistentStorage where-    boxedEnumType _ = c_webkit_cookie_persistent_storage_get_type---- Enum CookieAcceptPolicy--data CookieAcceptPolicy = -      CookieAcceptPolicyAlways-    | CookieAcceptPolicyNever-    | CookieAcceptPolicyNoThirdParty-    | AnotherCookieAcceptPolicy Int-    deriving (Show, Eq)--instance Enum CookieAcceptPolicy where-    fromEnum CookieAcceptPolicyAlways = 0-    fromEnum CookieAcceptPolicyNever = 1-    fromEnum CookieAcceptPolicyNoThirdParty = 2-    fromEnum (AnotherCookieAcceptPolicy k) = k--    toEnum 0 = CookieAcceptPolicyAlways-    toEnum 1 = CookieAcceptPolicyNever-    toEnum 2 = CookieAcceptPolicyNoThirdParty-    toEnum k = AnotherCookieAcceptPolicy k--foreign import ccall "webkit_cookie_accept_policy_get_type" c_webkit_cookie_accept_policy_get_type :: -    IO GType--instance BoxedEnum CookieAcceptPolicy where-    boxedEnumType _ = c_webkit_cookie_accept_policy_get_type---- Enum ContextMenuAction--data ContextMenuAction = -      ContextMenuActionNoAction-    | ContextMenuActionOpenLink-    | ContextMenuActionOpenLinkInNewWindow-    | ContextMenuActionDownloadLinkToDisk-    | ContextMenuActionCopyLinkToClipboard-    | ContextMenuActionOpenImageInNewWindow-    | ContextMenuActionDownloadImageToDisk-    | ContextMenuActionCopyImageToClipboard-    | ContextMenuActionCopyImageUrlToClipboard-    | ContextMenuActionOpenFrameInNewWindow-    | ContextMenuActionGoBack-    | ContextMenuActionGoForward-    | ContextMenuActionStop-    | ContextMenuActionReload-    | ContextMenuActionCopy-    | ContextMenuActionCut-    | ContextMenuActionPaste-    | ContextMenuActionDelete-    | ContextMenuActionSelectAll-    | ContextMenuActionInputMethods-    | ContextMenuActionUnicode-    | ContextMenuActionSpellingGuess-    | ContextMenuActionNoGuessesFound-    | ContextMenuActionIgnoreSpelling-    | ContextMenuActionLearnSpelling-    | ContextMenuActionIgnoreGrammar-    | ContextMenuActionFontMenu-    | ContextMenuActionBold-    | ContextMenuActionItalic-    | ContextMenuActionUnderline-    | ContextMenuActionOutline-    | ContextMenuActionInspectElement-    | ContextMenuActionOpenVideoInNewWindow-    | ContextMenuActionOpenAudioInNewWindow-    | ContextMenuActionCopyVideoLinkToClipboard-    | ContextMenuActionCopyAudioLinkToClipboard-    | ContextMenuActionToggleMediaControls-    | ContextMenuActionToggleMediaLoop-    | ContextMenuActionEnterVideoFullscreen-    | ContextMenuActionMediaPlay-    | ContextMenuActionMediaPause-    | ContextMenuActionMediaMute-    | ContextMenuActionDownloadVideoToDisk-    | ContextMenuActionDownloadAudioToDisk-    | ContextMenuActionCustom-    | AnotherContextMenuAction Int-    deriving (Show, Eq)--instance Enum ContextMenuAction where-    fromEnum ContextMenuActionNoAction = 0-    fromEnum ContextMenuActionOpenLink = 1-    fromEnum ContextMenuActionOpenLinkInNewWindow = 2-    fromEnum ContextMenuActionDownloadLinkToDisk = 3-    fromEnum ContextMenuActionCopyLinkToClipboard = 4-    fromEnum ContextMenuActionOpenImageInNewWindow = 5-    fromEnum ContextMenuActionDownloadImageToDisk = 6-    fromEnum ContextMenuActionCopyImageToClipboard = 7-    fromEnum ContextMenuActionCopyImageUrlToClipboard = 8-    fromEnum ContextMenuActionOpenFrameInNewWindow = 9-    fromEnum ContextMenuActionGoBack = 10-    fromEnum ContextMenuActionGoForward = 11-    fromEnum ContextMenuActionStop = 12-    fromEnum ContextMenuActionReload = 13-    fromEnum ContextMenuActionCopy = 14-    fromEnum ContextMenuActionCut = 15-    fromEnum ContextMenuActionPaste = 16-    fromEnum ContextMenuActionDelete = 17-    fromEnum ContextMenuActionSelectAll = 18-    fromEnum ContextMenuActionInputMethods = 19-    fromEnum ContextMenuActionUnicode = 20-    fromEnum ContextMenuActionSpellingGuess = 21-    fromEnum ContextMenuActionNoGuessesFound = 22-    fromEnum ContextMenuActionIgnoreSpelling = 23-    fromEnum ContextMenuActionLearnSpelling = 24-    fromEnum ContextMenuActionIgnoreGrammar = 25-    fromEnum ContextMenuActionFontMenu = 26-    fromEnum ContextMenuActionBold = 27-    fromEnum ContextMenuActionItalic = 28-    fromEnum ContextMenuActionUnderline = 29-    fromEnum ContextMenuActionOutline = 30-    fromEnum ContextMenuActionInspectElement = 31-    fromEnum ContextMenuActionOpenVideoInNewWindow = 32-    fromEnum ContextMenuActionOpenAudioInNewWindow = 33-    fromEnum ContextMenuActionCopyVideoLinkToClipboard = 34-    fromEnum ContextMenuActionCopyAudioLinkToClipboard = 35-    fromEnum ContextMenuActionToggleMediaControls = 36-    fromEnum ContextMenuActionToggleMediaLoop = 37-    fromEnum ContextMenuActionEnterVideoFullscreen = 38-    fromEnum ContextMenuActionMediaPlay = 39-    fromEnum ContextMenuActionMediaPause = 40-    fromEnum ContextMenuActionMediaMute = 41-    fromEnum ContextMenuActionDownloadVideoToDisk = 42-    fromEnum ContextMenuActionDownloadAudioToDisk = 43-    fromEnum ContextMenuActionCustom = 10000-    fromEnum (AnotherContextMenuAction k) = k--    toEnum 0 = ContextMenuActionNoAction-    toEnum 1 = ContextMenuActionOpenLink-    toEnum 2 = ContextMenuActionOpenLinkInNewWindow-    toEnum 3 = ContextMenuActionDownloadLinkToDisk-    toEnum 4 = ContextMenuActionCopyLinkToClipboard-    toEnum 5 = ContextMenuActionOpenImageInNewWindow-    toEnum 6 = ContextMenuActionDownloadImageToDisk-    toEnum 7 = ContextMenuActionCopyImageToClipboard-    toEnum 8 = ContextMenuActionCopyImageUrlToClipboard-    toEnum 9 = ContextMenuActionOpenFrameInNewWindow-    toEnum 10 = ContextMenuActionGoBack-    toEnum 11 = ContextMenuActionGoForward-    toEnum 12 = ContextMenuActionStop-    toEnum 13 = ContextMenuActionReload-    toEnum 14 = ContextMenuActionCopy-    toEnum 15 = ContextMenuActionCut-    toEnum 16 = ContextMenuActionPaste-    toEnum 17 = ContextMenuActionDelete-    toEnum 18 = ContextMenuActionSelectAll-    toEnum 19 = ContextMenuActionInputMethods-    toEnum 20 = ContextMenuActionUnicode-    toEnum 21 = ContextMenuActionSpellingGuess-    toEnum 22 = ContextMenuActionNoGuessesFound-    toEnum 23 = ContextMenuActionIgnoreSpelling-    toEnum 24 = ContextMenuActionLearnSpelling-    toEnum 25 = ContextMenuActionIgnoreGrammar-    toEnum 26 = ContextMenuActionFontMenu-    toEnum 27 = ContextMenuActionBold-    toEnum 28 = ContextMenuActionItalic-    toEnum 29 = ContextMenuActionUnderline-    toEnum 30 = ContextMenuActionOutline-    toEnum 31 = ContextMenuActionInspectElement-    toEnum 32 = ContextMenuActionOpenVideoInNewWindow-    toEnum 33 = ContextMenuActionOpenAudioInNewWindow-    toEnum 34 = ContextMenuActionCopyVideoLinkToClipboard-    toEnum 35 = ContextMenuActionCopyAudioLinkToClipboard-    toEnum 36 = ContextMenuActionToggleMediaControls-    toEnum 37 = ContextMenuActionToggleMediaLoop-    toEnum 38 = ContextMenuActionEnterVideoFullscreen-    toEnum 39 = ContextMenuActionMediaPlay-    toEnum 40 = ContextMenuActionMediaPause-    toEnum 41 = ContextMenuActionMediaMute-    toEnum 42 = ContextMenuActionDownloadVideoToDisk-    toEnum 43 = ContextMenuActionDownloadAudioToDisk-    toEnum 10000 = ContextMenuActionCustom-    toEnum k = AnotherContextMenuAction k--foreign import ccall "webkit_context_menu_action_get_type" c_webkit_context_menu_action_get_type :: -    IO GType--instance BoxedEnum ContextMenuAction where-    boxedEnumType _ = c_webkit_context_menu_action_get_type---- Enum CacheModel--data CacheModel = -      CacheModelDocumentViewer-    | CacheModelWebBrowser-    | CacheModelDocumentBrowser-    | AnotherCacheModel Int-    deriving (Show, Eq)--instance Enum CacheModel where-    fromEnum CacheModelDocumentViewer = 0-    fromEnum CacheModelWebBrowser = 1-    fromEnum CacheModelDocumentBrowser = 2-    fromEnum (AnotherCacheModel k) = k--    toEnum 0 = CacheModelDocumentViewer-    toEnum 1 = CacheModelWebBrowser-    toEnum 2 = CacheModelDocumentBrowser-    toEnum k = AnotherCacheModel k--foreign import ccall "webkit_cache_model_get_type" c_webkit_cache_model_get_type :: -    IO GType--instance BoxedEnum CacheModel where-    boxedEnumType _ = c_webkit_cache_model_get_type---- Enum AuthenticationScheme--data AuthenticationScheme = -      AuthenticationSchemeDefault-    | AuthenticationSchemeHttpBasic-    | AuthenticationSchemeHttpDigest-    | AuthenticationSchemeHtmlForm-    | AuthenticationSchemeNtlm-    | AuthenticationSchemeNegotiate-    | AuthenticationSchemeClientCertificateRequested-    | AuthenticationSchemeServerTrustEvaluationRequested-    | AuthenticationSchemeUnknown-    | AnotherAuthenticationScheme Int-    deriving (Show, Eq)--instance Enum AuthenticationScheme where-    fromEnum AuthenticationSchemeDefault = 1-    fromEnum AuthenticationSchemeHttpBasic = 2-    fromEnum AuthenticationSchemeHttpDigest = 3-    fromEnum AuthenticationSchemeHtmlForm = 4-    fromEnum AuthenticationSchemeNtlm = 5-    fromEnum AuthenticationSchemeNegotiate = 6-    fromEnum AuthenticationSchemeClientCertificateRequested = 7-    fromEnum AuthenticationSchemeServerTrustEvaluationRequested = 8-    fromEnum AuthenticationSchemeUnknown = 100-    fromEnum (AnotherAuthenticationScheme k) = k--    toEnum 1 = AuthenticationSchemeDefault-    toEnum 2 = AuthenticationSchemeHttpBasic-    toEnum 3 = AuthenticationSchemeHttpDigest-    toEnum 4 = AuthenticationSchemeHtmlForm-    toEnum 5 = AuthenticationSchemeNtlm-    toEnum 6 = AuthenticationSchemeNegotiate-    toEnum 7 = AuthenticationSchemeClientCertificateRequested-    toEnum 8 = AuthenticationSchemeServerTrustEvaluationRequested-    toEnum 100 = AuthenticationSchemeUnknown-    toEnum k = AnotherAuthenticationScheme k--foreign import ccall "webkit_authentication_scheme_get_type" c_webkit_authentication_scheme_get_type :: -    IO GType--instance BoxedEnum AuthenticationScheme where-    boxedEnumType _ = c_webkit_authentication_scheme_get_type--
− GI/WebKit2/Flags.hs 
@@ -1,170 +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.WebKit2.Flags-    ( ---- * Exported types-    SnapshotOptions(..)                     ,-    HitTestResultContext(..)                ,-    FindOptions(..)                         ,-    EditorTypingAttributes(..)              ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map------- Flags SnapshotOptions--data SnapshotOptions = -      SnapshotOptionsNone-    | SnapshotOptionsIncludeSelectionHighlighting-    | SnapshotOptionsTransparentBackground-    | AnotherSnapshotOptions Int-    deriving (Show, Eq)--instance Enum SnapshotOptions where-    fromEnum SnapshotOptionsNone = 0-    fromEnum SnapshotOptionsIncludeSelectionHighlighting = 1-    fromEnum SnapshotOptionsTransparentBackground = 2-    fromEnum (AnotherSnapshotOptions k) = k--    toEnum 0 = SnapshotOptionsNone-    toEnum 1 = SnapshotOptionsIncludeSelectionHighlighting-    toEnum 2 = SnapshotOptionsTransparentBackground-    toEnum k = AnotherSnapshotOptions k--foreign import ccall "webkit_snapshot_options_get_type" c_webkit_snapshot_options_get_type :: -    IO GType--instance BoxedFlags SnapshotOptions where-    boxedFlagsType _ = c_webkit_snapshot_options_get_type--instance IsGFlag SnapshotOptions---- Flags HitTestResultContext--data HitTestResultContext = -      HitTestResultContextDocument-    | HitTestResultContextLink-    | HitTestResultContextImage-    | HitTestResultContextMedia-    | HitTestResultContextEditable-    | HitTestResultContextScrollbar-    | HitTestResultContextSelection-    | AnotherHitTestResultContext Int-    deriving (Show, Eq)--instance Enum HitTestResultContext where-    fromEnum HitTestResultContextDocument = 2-    fromEnum HitTestResultContextLink = 4-    fromEnum HitTestResultContextImage = 8-    fromEnum HitTestResultContextMedia = 16-    fromEnum HitTestResultContextEditable = 32-    fromEnum HitTestResultContextScrollbar = 64-    fromEnum HitTestResultContextSelection = 128-    fromEnum (AnotherHitTestResultContext k) = k--    toEnum 2 = HitTestResultContextDocument-    toEnum 4 = HitTestResultContextLink-    toEnum 8 = HitTestResultContextImage-    toEnum 16 = HitTestResultContextMedia-    toEnum 32 = HitTestResultContextEditable-    toEnum 64 = HitTestResultContextScrollbar-    toEnum 128 = HitTestResultContextSelection-    toEnum k = AnotherHitTestResultContext k--foreign import ccall "webkit_hit_test_result_context_get_type" c_webkit_hit_test_result_context_get_type :: -    IO GType--instance BoxedFlags HitTestResultContext where-    boxedFlagsType _ = c_webkit_hit_test_result_context_get_type--instance IsGFlag HitTestResultContext---- Flags FindOptions--data FindOptions = -      FindOptionsNone-    | FindOptionsCaseInsensitive-    | FindOptionsAtWordStarts-    | FindOptionsTreatMedialCapitalAsWordStart-    | FindOptionsBackwards-    | FindOptionsWrapAround-    | AnotherFindOptions Int-    deriving (Show, Eq)--instance Enum FindOptions where-    fromEnum FindOptionsNone = 0-    fromEnum FindOptionsCaseInsensitive = 1-    fromEnum FindOptionsAtWordStarts = 2-    fromEnum FindOptionsTreatMedialCapitalAsWordStart = 4-    fromEnum FindOptionsBackwards = 8-    fromEnum FindOptionsWrapAround = 16-    fromEnum (AnotherFindOptions k) = k--    toEnum 0 = FindOptionsNone-    toEnum 1 = FindOptionsCaseInsensitive-    toEnum 2 = FindOptionsAtWordStarts-    toEnum 4 = FindOptionsTreatMedialCapitalAsWordStart-    toEnum 8 = FindOptionsBackwards-    toEnum 16 = FindOptionsWrapAround-    toEnum k = AnotherFindOptions k--foreign import ccall "webkit_find_options_get_type" c_webkit_find_options_get_type :: -    IO GType--instance BoxedFlags FindOptions where-    boxedFlagsType _ = c_webkit_find_options_get_type--instance IsGFlag FindOptions---- Flags EditorTypingAttributes--data EditorTypingAttributes = -      EditorTypingAttributesNone-    | EditorTypingAttributesBold-    | EditorTypingAttributesItalic-    | EditorTypingAttributesUnderline-    | EditorTypingAttributesStrikethrough-    | AnotherEditorTypingAttributes Int-    deriving (Show, Eq)--instance Enum EditorTypingAttributes where-    fromEnum EditorTypingAttributesNone = 2-    fromEnum EditorTypingAttributesBold = 4-    fromEnum EditorTypingAttributesItalic = 8-    fromEnum EditorTypingAttributesUnderline = 16-    fromEnum EditorTypingAttributesStrikethrough = 32-    fromEnum (AnotherEditorTypingAttributes k) = k--    toEnum 2 = EditorTypingAttributesNone-    toEnum 4 = EditorTypingAttributesBold-    toEnum 8 = EditorTypingAttributesItalic-    toEnum 16 = EditorTypingAttributesUnderline-    toEnum 32 = EditorTypingAttributesStrikethrough-    toEnum k = AnotherEditorTypingAttributes k--foreign import ccall "webkit_editor_typing_attributes_get_type" c_webkit_editor_typing_attributes_get_type :: -    IO GType--instance BoxedFlags EditorTypingAttributes where-    boxedFlagsType _ = c_webkit_editor_typing_attributes_get_type--instance IsGFlag EditorTypingAttributes--
− GI/WebKit2/Functions.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.WebKit2.Functions-    ( -- -- * Methods--- ** getMajorVersion-    getMajorVersion                         ,----- ** getMicroVersion-    getMicroVersion                         ,----- ** getMinorVersion-    getMinorVersion                         ,----- ** userMediaPermissionIsForAudioDevice-    userMediaPermissionIsForAudioDevice     ,----- ** userMediaPermissionIsForVideoDevice-    userMediaPermissionIsForVideoDevice     ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks---- function webkit_user_media_permission_is_for_video_device--- Args : [Arg {argCName = "request", argType = TInterface "WebKit2" "UserMediaPermissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_user_media_permission_is_for_video_device" webkit_user_media_permission_is_for_video_device :: -    Ptr UserMediaPermissionRequest ->       -- request : TInterface "WebKit2" "UserMediaPermissionRequest"-    IO CInt---userMediaPermissionIsForVideoDevice ::-    (MonadIO m, UserMediaPermissionRequestK a) =>-    a                                       -- request-    -> m Bool                               -- result-userMediaPermissionIsForVideoDevice request = liftIO $ do-    let request' = unsafeManagedPtrCastPtr request-    result <- webkit_user_media_permission_is_for_video_device request'-    let result' = (/= 0) result-    touchManagedPtr request-    return result'----- function webkit_user_media_permission_is_for_audio_device--- Args : [Arg {argCName = "request", argType = TInterface "WebKit2" "UserMediaPermissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_user_media_permission_is_for_audio_device" webkit_user_media_permission_is_for_audio_device :: -    Ptr UserMediaPermissionRequest ->       -- request : TInterface "WebKit2" "UserMediaPermissionRequest"-    IO CInt---userMediaPermissionIsForAudioDevice ::-    (MonadIO m, UserMediaPermissionRequestK a) =>-    a                                       -- request-    -> m Bool                               -- result-userMediaPermissionIsForAudioDevice request = liftIO $ do-    let request' = unsafeManagedPtrCastPtr request-    result <- webkit_user_media_permission_is_for_audio_device request'-    let result' = (/= 0) result-    touchManagedPtr request-    return result'----- function webkit_get_minor_version--- Args : []--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "webkit_get_minor_version" webkit_get_minor_version :: -    IO Word32---getMinorVersion ::-    (MonadIO m) =>-    m Word32                                -- result-getMinorVersion  = liftIO $ do-    result <- webkit_get_minor_version-    return result----- function webkit_get_micro_version--- Args : []--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "webkit_get_micro_version" webkit_get_micro_version :: -    IO Word32---getMicroVersion ::-    (MonadIO m) =>-    m Word32                                -- result-getMicroVersion  = liftIO $ do-    result <- webkit_get_micro_version-    return result----- function webkit_get_major_version--- Args : []--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "webkit_get_major_version" webkit_get_major_version :: -    IO Word32---getMajorVersion ::-    (MonadIO m) =>-    m Word32                                -- result-getMajorVersion  = liftIO $ do-    result <- webkit_get_major_version-    return result---
− GI/WebKit2/Interfaces.hs 
@@ -1,27 +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.WebKit2.Interfaces-    (     module GI.WebKit2.Interfaces.PermissionRequest,---    ) where--import GI.WebKit2.Interfaces.PermissionRequest--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks--
− GI/WebKit2/Interfaces/PermissionRequest.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)--}--module GI.WebKit2.Interfaces.PermissionRequest-    ( ---- * Exported types-    PermissionRequest(..)                   ,-    noPermissionRequest                     ,-    PermissionRequestK                      ,-    toPermissionRequest                     ,--- -- * Methods--- ** permissionRequestAllow-    PermissionRequestAllowMethodInfo        ,-    permissionRequestAllow                  ,----- ** permissionRequestDeny-    PermissionRequestDenyMethodInfo         ,-    permissionRequestDeny                   ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject---- interface PermissionRequest --newtype PermissionRequest = PermissionRequest (ForeignPtr PermissionRequest)-noPermissionRequest :: Maybe PermissionRequest-noPermissionRequest = Nothing--type family ResolvePermissionRequestMethod (t :: Symbol) (o :: *) :: * where-    ResolvePermissionRequestMethod "allow" o = PermissionRequestAllowMethodInfo-    ResolvePermissionRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolvePermissionRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolvePermissionRequestMethod "deny" o = PermissionRequestDenyMethodInfo-    ResolvePermissionRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolvePermissionRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolvePermissionRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolvePermissionRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolvePermissionRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolvePermissionRequestMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolvePermissionRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolvePermissionRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolvePermissionRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolvePermissionRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolvePermissionRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolvePermissionRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolvePermissionRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolvePermissionRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolvePermissionRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolvePermissionRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolvePermissionRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolvePermissionRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolvePermissionRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolvePermissionRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolvePermissionRequestMethod l o = MethodResolutionFailed l o--instance (info ~ ResolvePermissionRequestMethod t PermissionRequest, MethodInfo info PermissionRequest p) => IsLabelProxy t (PermissionRequest -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolvePermissionRequestMethod t PermissionRequest, MethodInfo info PermissionRequest p) => IsLabel t (PermissionRequest -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList PermissionRequest = PermissionRequestAttributeList-type PermissionRequestAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList PermissionRequest = PermissionRequestSignalList-type PermissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "webkit_permission_request_get_type"-    c_webkit_permission_request_get_type :: IO GType--type instance ParentTypes PermissionRequest = PermissionRequestParentTypes-type PermissionRequestParentTypes = '[GObject.Object]--instance GObject PermissionRequest where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_permission_request_get_type-    --class GObject o => PermissionRequestK o-instance (GObject o, IsDescendantOf PermissionRequest o) => PermissionRequestK o--toPermissionRequest :: PermissionRequestK o => o -> IO PermissionRequest-toPermissionRequest = unsafeCastTo PermissionRequest---- method PermissionRequest::allow--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PermissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_permission_request_allow" webkit_permission_request_allow :: -    Ptr PermissionRequest ->                -- _obj : TInterface "WebKit2" "PermissionRequest"-    IO ()---permissionRequestAllow ::-    (MonadIO m, PermissionRequestK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-permissionRequestAllow _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_permission_request_allow _obj'-    touchManagedPtr _obj-    return ()--data PermissionRequestAllowMethodInfo-instance (signature ~ (m ()), MonadIO m, PermissionRequestK a) => MethodInfo PermissionRequestAllowMethodInfo a signature where-    overloadedMethod _ = permissionRequestAllow---- method PermissionRequest::deny--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PermissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_permission_request_deny" webkit_permission_request_deny :: -    Ptr PermissionRequest ->                -- _obj : TInterface "WebKit2" "PermissionRequest"-    IO ()---permissionRequestDeny ::-    (MonadIO m, PermissionRequestK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-permissionRequestDeny _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_permission_request_deny _obj'-    touchManagedPtr _obj-    return ()--data PermissionRequestDenyMethodInfo-instance (signature ~ (m ()), MonadIO m, PermissionRequestK a) => MethodInfo PermissionRequestDenyMethodInfo a signature where-    overloadedMethod _ = permissionRequestDeny--
− GI/WebKit2/Interfaces/PermissionRequest.hs-boot 
@@ -1,15 +0,0 @@-module GI.WebKit2.Interfaces.PermissionRequest where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype PermissionRequest = PermissionRequest (ForeignPtr PermissionRequest)-instance GObject PermissionRequest where-class GObject o => PermissionRequestK o-instance (GObject o, IsDescendantOf PermissionRequest o) => PermissionRequestK o-data PermissionRequestAllowMethodInfo-data PermissionRequestDenyMethodInfo
− GI/WebKit2/Objects.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)--}--module GI.WebKit2.Objects-    (     module GI.WebKit2.Objects.AuthenticationRequest,-    module GI.WebKit2.Objects.BackForwardList,-    module GI.WebKit2.Objects.BackForwardListItem,-    module GI.WebKit2.Objects.ColorChooserRequest,-    module GI.WebKit2.Objects.ContextMenu   ,-    module GI.WebKit2.Objects.ContextMenuItem,-    module GI.WebKit2.Objects.CookieManager ,-    module GI.WebKit2.Objects.Download      ,-    module GI.WebKit2.Objects.EditorState   ,-    module GI.WebKit2.Objects.FaviconDatabase,-    module GI.WebKit2.Objects.FileChooserRequest,-    module GI.WebKit2.Objects.FindController,-    module GI.WebKit2.Objects.FormSubmissionRequest,-    module GI.WebKit2.Objects.GeolocationPermissionRequest,-    module GI.WebKit2.Objects.HitTestResult ,-    module GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest,-    module GI.WebKit2.Objects.NavigationPolicyDecision,-    module GI.WebKit2.Objects.Notification  ,-    module GI.WebKit2.Objects.NotificationPermissionRequest,-    module GI.WebKit2.Objects.Plugin        ,-    module GI.WebKit2.Objects.PolicyDecision,-    module GI.WebKit2.Objects.PrintOperation,-    module GI.WebKit2.Objects.ResponsePolicyDecision,-    module GI.WebKit2.Objects.SecurityManager,-    module GI.WebKit2.Objects.Settings      ,-    module GI.WebKit2.Objects.URIRequest    ,-    module GI.WebKit2.Objects.URIResponse   ,-    module GI.WebKit2.Objects.URISchemeRequest,-    module GI.WebKit2.Objects.UserContentManager,-    module GI.WebKit2.Objects.UserMediaPermissionRequest,-    module GI.WebKit2.Objects.WebContext    ,-    module GI.WebKit2.Objects.WebInspector  ,-    module GI.WebKit2.Objects.WebResource   ,-    module GI.WebKit2.Objects.WebView       ,-    module GI.WebKit2.Objects.WebViewBase   ,-    module GI.WebKit2.Objects.WebsiteDataManager,-    module GI.WebKit2.Objects.WindowProperties,---    ) where--import GI.WebKit2.Objects.AuthenticationRequest-import GI.WebKit2.Objects.BackForwardList-import GI.WebKit2.Objects.BackForwardListItem-import GI.WebKit2.Objects.ColorChooserRequest-import GI.WebKit2.Objects.ContextMenu-import GI.WebKit2.Objects.ContextMenuItem-import GI.WebKit2.Objects.CookieManager-import GI.WebKit2.Objects.Download-import GI.WebKit2.Objects.EditorState-import GI.WebKit2.Objects.FaviconDatabase-import GI.WebKit2.Objects.FileChooserRequest-import GI.WebKit2.Objects.FindController-import GI.WebKit2.Objects.FormSubmissionRequest-import GI.WebKit2.Objects.GeolocationPermissionRequest-import GI.WebKit2.Objects.HitTestResult-import GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest-import GI.WebKit2.Objects.NavigationPolicyDecision-import GI.WebKit2.Objects.Notification-import GI.WebKit2.Objects.NotificationPermissionRequest-import GI.WebKit2.Objects.Plugin-import GI.WebKit2.Objects.PolicyDecision-import GI.WebKit2.Objects.PrintOperation-import GI.WebKit2.Objects.ResponsePolicyDecision-import GI.WebKit2.Objects.SecurityManager-import GI.WebKit2.Objects.Settings-import GI.WebKit2.Objects.URIRequest-import GI.WebKit2.Objects.URIResponse-import GI.WebKit2.Objects.URISchemeRequest-import GI.WebKit2.Objects.UserContentManager-import GI.WebKit2.Objects.UserMediaPermissionRequest-import GI.WebKit2.Objects.WebContext-import GI.WebKit2.Objects.WebInspector-import GI.WebKit2.Objects.WebResource-import GI.WebKit2.Objects.WebView-import GI.WebKit2.Objects.WebViewBase-import GI.WebKit2.Objects.WebsiteDataManager-import GI.WebKit2.Objects.WindowProperties--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks--
− GI/WebKit2/Objects/AuthenticationRequest.hs 
@@ -1,501 +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.WebKit2.Objects.AuthenticationRequest-    ( ---- * Exported types-    AuthenticationRequest(..)               ,-    AuthenticationRequestK                  ,-    toAuthenticationRequest                 ,-    noAuthenticationRequest                 ,--- -- * Methods--- ** authenticationRequestAuthenticate-    AuthenticationRequestAuthenticateMethodInfo,-    authenticationRequestAuthenticate       ,----- ** authenticationRequestCanSaveCredentials-    AuthenticationRequestCanSaveCredentialsMethodInfo,-    authenticationRequestCanSaveCredentials ,----- ** authenticationRequestCancel-    AuthenticationRequestCancelMethodInfo   ,-    authenticationRequestCancel             ,----- ** authenticationRequestGetHost-    AuthenticationRequestGetHostMethodInfo  ,-    authenticationRequestGetHost            ,----- ** authenticationRequestGetPort-    AuthenticationRequestGetPortMethodInfo  ,-    authenticationRequestGetPort            ,----- ** authenticationRequestGetProposedCredential-    AuthenticationRequestGetProposedCredentialMethodInfo,-    authenticationRequestGetProposedCredential,----- ** authenticationRequestGetRealm-    AuthenticationRequestGetRealmMethodInfo ,-    authenticationRequestGetRealm           ,----- ** authenticationRequestGetScheme-    AuthenticationRequestGetSchemeMethodInfo,-    authenticationRequestGetScheme          ,----- ** authenticationRequestIsForProxy-    AuthenticationRequestIsForProxyMethodInfo,-    authenticationRequestIsForProxy         ,----- ** authenticationRequestIsRetry-    AuthenticationRequestIsRetryMethodInfo  ,-    authenticationRequestIsRetry            ,----- -- * Signals--- ** Cancelled-    AuthenticationRequestCancelledCallback  ,-    AuthenticationRequestCancelledCallbackC ,-    AuthenticationRequestCancelledSignalInfo,-    afterAuthenticationRequestCancelled     ,-    authenticationRequestCancelledCallbackWrapper,-    authenticationRequestCancelledClosure   ,-    mkAuthenticationRequestCancelledCallback,-    noAuthenticationRequestCancelledCallback,-    onAuthenticationRequestCancelled        ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject--newtype AuthenticationRequest = AuthenticationRequest (ForeignPtr AuthenticationRequest)-foreign import ccall "webkit_authentication_request_get_type"-    c_webkit_authentication_request_get_type :: IO GType--type instance ParentTypes AuthenticationRequest = AuthenticationRequestParentTypes-type AuthenticationRequestParentTypes = '[GObject.Object]--instance GObject AuthenticationRequest where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_authentication_request_get_type-    --class GObject o => AuthenticationRequestK o-instance (GObject o, IsDescendantOf AuthenticationRequest o) => AuthenticationRequestK o--toAuthenticationRequest :: AuthenticationRequestK o => o -> IO AuthenticationRequest-toAuthenticationRequest = unsafeCastTo AuthenticationRequest--noAuthenticationRequest :: Maybe AuthenticationRequest-noAuthenticationRequest = Nothing--type family ResolveAuthenticationRequestMethod (t :: Symbol) (o :: *) :: * where-    ResolveAuthenticationRequestMethod "authenticate" o = AuthenticationRequestAuthenticateMethodInfo-    ResolveAuthenticationRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveAuthenticationRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveAuthenticationRequestMethod "canSaveCredentials" o = AuthenticationRequestCanSaveCredentialsMethodInfo-    ResolveAuthenticationRequestMethod "cancel" o = AuthenticationRequestCancelMethodInfo-    ResolveAuthenticationRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveAuthenticationRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveAuthenticationRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveAuthenticationRequestMethod "isForProxy" o = AuthenticationRequestIsForProxyMethodInfo-    ResolveAuthenticationRequestMethod "isRetry" o = AuthenticationRequestIsRetryMethodInfo-    ResolveAuthenticationRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveAuthenticationRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveAuthenticationRequestMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveAuthenticationRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveAuthenticationRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveAuthenticationRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveAuthenticationRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveAuthenticationRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveAuthenticationRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveAuthenticationRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveAuthenticationRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveAuthenticationRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveAuthenticationRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveAuthenticationRequestMethod "getHost" o = AuthenticationRequestGetHostMethodInfo-    ResolveAuthenticationRequestMethod "getPort" o = AuthenticationRequestGetPortMethodInfo-    ResolveAuthenticationRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveAuthenticationRequestMethod "getProposedCredential" o = AuthenticationRequestGetProposedCredentialMethodInfo-    ResolveAuthenticationRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveAuthenticationRequestMethod "getRealm" o = AuthenticationRequestGetRealmMethodInfo-    ResolveAuthenticationRequestMethod "getScheme" o = AuthenticationRequestGetSchemeMethodInfo-    ResolveAuthenticationRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveAuthenticationRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveAuthenticationRequestMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAuthenticationRequestMethod t AuthenticationRequest, MethodInfo info AuthenticationRequest p) => IsLabelProxy t (AuthenticationRequest -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAuthenticationRequestMethod t AuthenticationRequest, MethodInfo info AuthenticationRequest p) => IsLabel t (AuthenticationRequest -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal AuthenticationRequest::cancelled-type AuthenticationRequestCancelledCallback =-    IO ()--noAuthenticationRequestCancelledCallback :: Maybe AuthenticationRequestCancelledCallback-noAuthenticationRequestCancelledCallback = Nothing--type AuthenticationRequestCancelledCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkAuthenticationRequestCancelledCallback :: AuthenticationRequestCancelledCallbackC -> IO (FunPtr AuthenticationRequestCancelledCallbackC)--authenticationRequestCancelledClosure :: AuthenticationRequestCancelledCallback -> IO Closure-authenticationRequestCancelledClosure cb = newCClosure =<< mkAuthenticationRequestCancelledCallback wrapped-    where wrapped = authenticationRequestCancelledCallbackWrapper cb--authenticationRequestCancelledCallbackWrapper ::-    AuthenticationRequestCancelledCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-authenticationRequestCancelledCallbackWrapper _cb _ _ = do-    _cb --onAuthenticationRequestCancelled :: (GObject a, MonadIO m) => a -> AuthenticationRequestCancelledCallback -> m SignalHandlerId-onAuthenticationRequestCancelled obj cb = liftIO $ connectAuthenticationRequestCancelled obj cb SignalConnectBefore-afterAuthenticationRequestCancelled :: (GObject a, MonadIO m) => a -> AuthenticationRequestCancelledCallback -> m SignalHandlerId-afterAuthenticationRequestCancelled obj cb = connectAuthenticationRequestCancelled obj cb SignalConnectAfter--connectAuthenticationRequestCancelled :: (GObject a, MonadIO m) =>-                                         a -> AuthenticationRequestCancelledCallback -> SignalConnectMode -> m SignalHandlerId-connectAuthenticationRequestCancelled obj cb after = liftIO $ do-    cb' <- mkAuthenticationRequestCancelledCallback (authenticationRequestCancelledCallbackWrapper cb)-    connectSignalFunPtr obj "cancelled" cb' after--type instance AttributeList AuthenticationRequest = AuthenticationRequestAttributeList-type AuthenticationRequestAttributeList = ('[ ] :: [(Symbol, *)])--data AuthenticationRequestCancelledSignalInfo-instance SignalInfo AuthenticationRequestCancelledSignalInfo where-    type HaskellCallbackType AuthenticationRequestCancelledSignalInfo = AuthenticationRequestCancelledCallback-    connectSignal _ = connectAuthenticationRequestCancelled--type instance SignalList AuthenticationRequest = AuthenticationRequestSignalList-type AuthenticationRequestSignalList = ('[ '("cancelled", AuthenticationRequestCancelledSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method AuthenticationRequest::authenticate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "credential", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_authentication_request_authenticate" webkit_authentication_request_authenticate :: -    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"-    Ptr Credential ->                       -- credential : TInterface "WebKit2" "Credential"-    IO ()---authenticationRequestAuthenticate ::-    (MonadIO m, AuthenticationRequestK a) =>-    a                                       -- _obj-    -> Maybe (Credential)                   -- credential-    -> m ()                                 -- result-authenticationRequestAuthenticate _obj credential = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCredential <- case credential of-        Nothing -> return nullPtr-        Just jCredential -> do-            let jCredential' = unsafeManagedPtrGetPtr jCredential-            return jCredential'-    webkit_authentication_request_authenticate _obj' maybeCredential-    touchManagedPtr _obj-    whenJust credential touchManagedPtr-    return ()--data AuthenticationRequestAuthenticateMethodInfo-instance (signature ~ (Maybe (Credential) -> m ()), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestAuthenticateMethodInfo a signature where-    overloadedMethod _ = authenticationRequestAuthenticate---- method AuthenticationRequest::can_save_credentials--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_authentication_request_can_save_credentials" webkit_authentication_request_can_save_credentials :: -    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"-    IO CInt---authenticationRequestCanSaveCredentials ::-    (MonadIO m, AuthenticationRequestK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-authenticationRequestCanSaveCredentials _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_authentication_request_can_save_credentials _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data AuthenticationRequestCanSaveCredentialsMethodInfo-instance (signature ~ (m Bool), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestCanSaveCredentialsMethodInfo a signature where-    overloadedMethod _ = authenticationRequestCanSaveCredentials---- method AuthenticationRequest::cancel--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_authentication_request_cancel" webkit_authentication_request_cancel :: -    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"-    IO ()---authenticationRequestCancel ::-    (MonadIO m, AuthenticationRequestK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-authenticationRequestCancel _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_authentication_request_cancel _obj'-    touchManagedPtr _obj-    return ()--data AuthenticationRequestCancelMethodInfo-instance (signature ~ (m ()), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestCancelMethodInfo a signature where-    overloadedMethod _ = authenticationRequestCancel---- method AuthenticationRequest::get_host--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_authentication_request_get_host" webkit_authentication_request_get_host :: -    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"-    IO CString---authenticationRequestGetHost ::-    (MonadIO m, AuthenticationRequestK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-authenticationRequestGetHost _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_authentication_request_get_host _obj'-    checkUnexpectedReturnNULL "webkit_authentication_request_get_host" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data AuthenticationRequestGetHostMethodInfo-instance (signature ~ (m T.Text), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestGetHostMethodInfo a signature where-    overloadedMethod _ = authenticationRequestGetHost---- method AuthenticationRequest::get_port--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "webkit_authentication_request_get_port" webkit_authentication_request_get_port :: -    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"-    IO Word32---authenticationRequestGetPort ::-    (MonadIO m, AuthenticationRequestK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-authenticationRequestGetPort _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_authentication_request_get_port _obj'-    touchManagedPtr _obj-    return result--data AuthenticationRequestGetPortMethodInfo-instance (signature ~ (m Word32), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestGetPortMethodInfo a signature where-    overloadedMethod _ = authenticationRequestGetPort---- method AuthenticationRequest::get_proposed_credential--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "Credential")--- throws : False--- Skip return : False--foreign import ccall "webkit_authentication_request_get_proposed_credential" webkit_authentication_request_get_proposed_credential :: -    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"-    IO (Ptr Credential)---authenticationRequestGetProposedCredential ::-    (MonadIO m, AuthenticationRequestK a) =>-    a                                       -- _obj-    -> m Credential                         -- result-authenticationRequestGetProposedCredential _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_authentication_request_get_proposed_credential _obj'-    checkUnexpectedReturnNULL "webkit_authentication_request_get_proposed_credential" result-    result' <- (wrapBoxed Credential) result-    touchManagedPtr _obj-    return result'--data AuthenticationRequestGetProposedCredentialMethodInfo-instance (signature ~ (m Credential), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestGetProposedCredentialMethodInfo a signature where-    overloadedMethod _ = authenticationRequestGetProposedCredential---- method AuthenticationRequest::get_realm--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_authentication_request_get_realm" webkit_authentication_request_get_realm :: -    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"-    IO CString---authenticationRequestGetRealm ::-    (MonadIO m, AuthenticationRequestK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-authenticationRequestGetRealm _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_authentication_request_get_realm _obj'-    checkUnexpectedReturnNULL "webkit_authentication_request_get_realm" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data AuthenticationRequestGetRealmMethodInfo-instance (signature ~ (m T.Text), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestGetRealmMethodInfo a signature where-    overloadedMethod _ = authenticationRequestGetRealm---- method AuthenticationRequest::get_scheme--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "AuthenticationScheme")--- throws : False--- Skip return : False--foreign import ccall "webkit_authentication_request_get_scheme" webkit_authentication_request_get_scheme :: -    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"-    IO CUInt---authenticationRequestGetScheme ::-    (MonadIO m, AuthenticationRequestK a) =>-    a                                       -- _obj-    -> m AuthenticationScheme               -- result-authenticationRequestGetScheme _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_authentication_request_get_scheme _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data AuthenticationRequestGetSchemeMethodInfo-instance (signature ~ (m AuthenticationScheme), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestGetSchemeMethodInfo a signature where-    overloadedMethod _ = authenticationRequestGetScheme---- method AuthenticationRequest::is_for_proxy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_authentication_request_is_for_proxy" webkit_authentication_request_is_for_proxy :: -    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"-    IO CInt---authenticationRequestIsForProxy ::-    (MonadIO m, AuthenticationRequestK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-authenticationRequestIsForProxy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_authentication_request_is_for_proxy _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data AuthenticationRequestIsForProxyMethodInfo-instance (signature ~ (m Bool), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestIsForProxyMethodInfo a signature where-    overloadedMethod _ = authenticationRequestIsForProxy---- method AuthenticationRequest::is_retry--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "AuthenticationRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_authentication_request_is_retry" webkit_authentication_request_is_retry :: -    Ptr AuthenticationRequest ->            -- _obj : TInterface "WebKit2" "AuthenticationRequest"-    IO CInt---authenticationRequestIsRetry ::-    (MonadIO m, AuthenticationRequestK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-authenticationRequestIsRetry _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_authentication_request_is_retry _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data AuthenticationRequestIsRetryMethodInfo-instance (signature ~ (m Bool), MonadIO m, AuthenticationRequestK a) => MethodInfo AuthenticationRequestIsRetryMethodInfo a signature where-    overloadedMethod _ = authenticationRequestIsRetry--
− GI/WebKit2/Objects/AuthenticationRequest.hs-boot 
@@ -1,24 +0,0 @@-module GI.WebKit2.Objects.AuthenticationRequest where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AuthenticationRequest = AuthenticationRequest (ForeignPtr AuthenticationRequest)-instance GObject AuthenticationRequest where-class GObject o => AuthenticationRequestK o-instance (GObject o, IsDescendantOf AuthenticationRequest o) => AuthenticationRequestK o-data AuthenticationRequestCancelledSignalInfo-data AuthenticationRequestAuthenticateMethodInfo-data AuthenticationRequestCanSaveCredentialsMethodInfo-data AuthenticationRequestCancelMethodInfo-data AuthenticationRequestGetHostMethodInfo-data AuthenticationRequestGetPortMethodInfo-data AuthenticationRequestGetProposedCredentialMethodInfo-data AuthenticationRequestGetRealmMethodInfo-data AuthenticationRequestGetSchemeMethodInfo-data AuthenticationRequestIsForProxyMethodInfo-data AuthenticationRequestIsRetryMethodInfo
− GI/WebKit2/Objects/BackForwardList.hs 
@@ -1,488 +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.WebKit2.Objects.BackForwardList-    ( ---- * Exported types-    BackForwardList(..)                     ,-    BackForwardListK                        ,-    toBackForwardList                       ,-    noBackForwardList                       ,--- -- * Methods--- ** backForwardListGetBackItem-    BackForwardListGetBackItemMethodInfo    ,-    backForwardListGetBackItem              ,----- ** backForwardListGetBackList-    BackForwardListGetBackListMethodInfo    ,-    backForwardListGetBackList              ,----- ** backForwardListGetBackListWithLimit-    BackForwardListGetBackListWithLimitMethodInfo,-    backForwardListGetBackListWithLimit     ,----- ** backForwardListGetCurrentItem-    BackForwardListGetCurrentItemMethodInfo ,-    backForwardListGetCurrentItem           ,----- ** backForwardListGetForwardItem-    BackForwardListGetForwardItemMethodInfo ,-    backForwardListGetForwardItem           ,----- ** backForwardListGetForwardList-    BackForwardListGetForwardListMethodInfo ,-    backForwardListGetForwardList           ,----- ** backForwardListGetForwardListWithLimit-    BackForwardListGetForwardListWithLimitMethodInfo,-    backForwardListGetForwardListWithLimit  ,----- ** backForwardListGetLength-    BackForwardListGetLengthMethodInfo      ,-    backForwardListGetLength                ,----- ** backForwardListGetNthItem-    BackForwardListGetNthItemMethodInfo     ,-    backForwardListGetNthItem               ,----- -- * Signals--- ** Changed-    BackForwardListChangedCallback          ,-    BackForwardListChangedCallbackC         ,-    BackForwardListChangedSignalInfo        ,-    afterBackForwardListChanged             ,-    backForwardListChangedCallbackWrapper   ,-    backForwardListChangedClosure           ,-    mkBackForwardListChangedCallback        ,-    noBackForwardListChangedCallback        ,-    onBackForwardListChanged                ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject--newtype BackForwardList = BackForwardList (ForeignPtr BackForwardList)-foreign import ccall "webkit_back_forward_list_get_type"-    c_webkit_back_forward_list_get_type :: IO GType--type instance ParentTypes BackForwardList = BackForwardListParentTypes-type BackForwardListParentTypes = '[GObject.Object]--instance GObject BackForwardList where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_back_forward_list_get_type-    --class GObject o => BackForwardListK o-instance (GObject o, IsDescendantOf BackForwardList o) => BackForwardListK o--toBackForwardList :: BackForwardListK o => o -> IO BackForwardList-toBackForwardList = unsafeCastTo BackForwardList--noBackForwardList :: Maybe BackForwardList-noBackForwardList = Nothing--type family ResolveBackForwardListMethod (t :: Symbol) (o :: *) :: * where-    ResolveBackForwardListMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveBackForwardListMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveBackForwardListMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveBackForwardListMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveBackForwardListMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveBackForwardListMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveBackForwardListMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveBackForwardListMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveBackForwardListMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveBackForwardListMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveBackForwardListMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveBackForwardListMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveBackForwardListMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveBackForwardListMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveBackForwardListMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveBackForwardListMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveBackForwardListMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveBackForwardListMethod "getBackItem" o = BackForwardListGetBackItemMethodInfo-    ResolveBackForwardListMethod "getBackList" o = BackForwardListGetBackListMethodInfo-    ResolveBackForwardListMethod "getBackListWithLimit" o = BackForwardListGetBackListWithLimitMethodInfo-    ResolveBackForwardListMethod "getCurrentItem" o = BackForwardListGetCurrentItemMethodInfo-    ResolveBackForwardListMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveBackForwardListMethod "getForwardItem" o = BackForwardListGetForwardItemMethodInfo-    ResolveBackForwardListMethod "getForwardList" o = BackForwardListGetForwardListMethodInfo-    ResolveBackForwardListMethod "getForwardListWithLimit" o = BackForwardListGetForwardListWithLimitMethodInfo-    ResolveBackForwardListMethod "getLength" o = BackForwardListGetLengthMethodInfo-    ResolveBackForwardListMethod "getNthItem" o = BackForwardListGetNthItemMethodInfo-    ResolveBackForwardListMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveBackForwardListMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveBackForwardListMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveBackForwardListMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveBackForwardListMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveBackForwardListMethod t BackForwardList, MethodInfo info BackForwardList p) => IsLabelProxy t (BackForwardList -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveBackForwardListMethod t BackForwardList, MethodInfo info BackForwardList p) => IsLabel t (BackForwardList -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal BackForwardList::changed-type BackForwardListChangedCallback =-    Maybe BackForwardListItem ->-    Ptr () ->-    IO ()--noBackForwardListChangedCallback :: Maybe BackForwardListChangedCallback-noBackForwardListChangedCallback = Nothing--type BackForwardListChangedCallbackC =-    Ptr () ->                               -- object-    Ptr BackForwardListItem ->-    Ptr () ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkBackForwardListChangedCallback :: BackForwardListChangedCallbackC -> IO (FunPtr BackForwardListChangedCallbackC)--backForwardListChangedClosure :: BackForwardListChangedCallback -> IO Closure-backForwardListChangedClosure cb = newCClosure =<< mkBackForwardListChangedCallback wrapped-    where wrapped = backForwardListChangedCallbackWrapper cb--backForwardListChangedCallbackWrapper ::-    BackForwardListChangedCallback ->-    Ptr () ->-    Ptr BackForwardListItem ->-    Ptr () ->-    Ptr () ->-    IO ()-backForwardListChangedCallbackWrapper _cb _ itemAdded itemsRemoved _ = do-    maybeItemAdded <--        if itemAdded == nullPtr-        then return Nothing-        else do-            itemAdded' <- (newObject BackForwardListItem) itemAdded-            return $ Just itemAdded'-    _cb  maybeItemAdded itemsRemoved--onBackForwardListChanged :: (GObject a, MonadIO m) => a -> BackForwardListChangedCallback -> m SignalHandlerId-onBackForwardListChanged obj cb = liftIO $ connectBackForwardListChanged obj cb SignalConnectBefore-afterBackForwardListChanged :: (GObject a, MonadIO m) => a -> BackForwardListChangedCallback -> m SignalHandlerId-afterBackForwardListChanged obj cb = connectBackForwardListChanged obj cb SignalConnectAfter--connectBackForwardListChanged :: (GObject a, MonadIO m) =>-                                 a -> BackForwardListChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectBackForwardListChanged obj cb after = liftIO $ do-    cb' <- mkBackForwardListChangedCallback (backForwardListChangedCallbackWrapper cb)-    connectSignalFunPtr obj "changed" cb' after--type instance AttributeList BackForwardList = BackForwardListAttributeList-type BackForwardListAttributeList = ('[ ] :: [(Symbol, *)])--data BackForwardListChangedSignalInfo-instance SignalInfo BackForwardListChangedSignalInfo where-    type HaskellCallbackType BackForwardListChangedSignalInfo = BackForwardListChangedCallback-    connectSignal _ = connectBackForwardListChanged--type instance SignalList BackForwardList = BackForwardListSignalList-type BackForwardListSignalList = ('[ '("changed", BackForwardListChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method BackForwardList::get_back_item--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "BackForwardListItem")--- throws : False--- Skip return : False--foreign import ccall "webkit_back_forward_list_get_back_item" webkit_back_forward_list_get_back_item :: -    Ptr BackForwardList ->                  -- _obj : TInterface "WebKit2" "BackForwardList"-    IO (Ptr BackForwardListItem)---backForwardListGetBackItem ::-    (MonadIO m, BackForwardListK a) =>-    a                                       -- _obj-    -> m BackForwardListItem                -- result-backForwardListGetBackItem _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_back_forward_list_get_back_item _obj'-    checkUnexpectedReturnNULL "webkit_back_forward_list_get_back_item" result-    result' <- (newObject BackForwardListItem) result-    touchManagedPtr _obj-    return result'--data BackForwardListGetBackItemMethodInfo-instance (signature ~ (m BackForwardListItem), MonadIO m, BackForwardListK a) => MethodInfo BackForwardListGetBackItemMethodInfo a signature where-    overloadedMethod _ = backForwardListGetBackItem---- method BackForwardList::get_back_list--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "WebKit2" "BackForwardListItem"))--- throws : False--- Skip return : False--foreign import ccall "webkit_back_forward_list_get_back_list" webkit_back_forward_list_get_back_list :: -    Ptr BackForwardList ->                  -- _obj : TInterface "WebKit2" "BackForwardList"-    IO (Ptr (GList (Ptr BackForwardListItem)))---backForwardListGetBackList ::-    (MonadIO m, BackForwardListK a) =>-    a                                       -- _obj-    -> m [BackForwardListItem]              -- result-backForwardListGetBackList _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_back_forward_list_get_back_list _obj'-    result' <- unpackGList result-    result'' <- mapM (newObject BackForwardListItem) result'-    g_list_free result-    touchManagedPtr _obj-    return result''--data BackForwardListGetBackListMethodInfo-instance (signature ~ (m [BackForwardListItem]), MonadIO m, BackForwardListK a) => MethodInfo BackForwardListGetBackListMethodInfo a signature where-    overloadedMethod _ = backForwardListGetBackList---- method BackForwardList::get_back_list_with_limit--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "WebKit2" "BackForwardListItem"))--- throws : False--- Skip return : False--foreign import ccall "webkit_back_forward_list_get_back_list_with_limit" webkit_back_forward_list_get_back_list_with_limit :: -    Ptr BackForwardList ->                  -- _obj : TInterface "WebKit2" "BackForwardList"-    Word32 ->                               -- limit : TBasicType TUInt-    IO (Ptr (GList (Ptr BackForwardListItem)))---backForwardListGetBackListWithLimit ::-    (MonadIO m, BackForwardListK a) =>-    a                                       -- _obj-    -> Word32                               -- limit-    -> m [BackForwardListItem]              -- result-backForwardListGetBackListWithLimit _obj limit = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_back_forward_list_get_back_list_with_limit _obj' limit-    result' <- unpackGList result-    result'' <- mapM (newObject BackForwardListItem) result'-    g_list_free result-    touchManagedPtr _obj-    return result''--data BackForwardListGetBackListWithLimitMethodInfo-instance (signature ~ (Word32 -> m [BackForwardListItem]), MonadIO m, BackForwardListK a) => MethodInfo BackForwardListGetBackListWithLimitMethodInfo a signature where-    overloadedMethod _ = backForwardListGetBackListWithLimit---- method BackForwardList::get_current_item--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "BackForwardListItem")--- throws : False--- Skip return : False--foreign import ccall "webkit_back_forward_list_get_current_item" webkit_back_forward_list_get_current_item :: -    Ptr BackForwardList ->                  -- _obj : TInterface "WebKit2" "BackForwardList"-    IO (Ptr BackForwardListItem)---backForwardListGetCurrentItem ::-    (MonadIO m, BackForwardListK a) =>-    a                                       -- _obj-    -> m BackForwardListItem                -- result-backForwardListGetCurrentItem _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_back_forward_list_get_current_item _obj'-    checkUnexpectedReturnNULL "webkit_back_forward_list_get_current_item" result-    result' <- (newObject BackForwardListItem) result-    touchManagedPtr _obj-    return result'--data BackForwardListGetCurrentItemMethodInfo-instance (signature ~ (m BackForwardListItem), MonadIO m, BackForwardListK a) => MethodInfo BackForwardListGetCurrentItemMethodInfo a signature where-    overloadedMethod _ = backForwardListGetCurrentItem---- method BackForwardList::get_forward_item--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "BackForwardListItem")--- throws : False--- Skip return : False--foreign import ccall "webkit_back_forward_list_get_forward_item" webkit_back_forward_list_get_forward_item :: -    Ptr BackForwardList ->                  -- _obj : TInterface "WebKit2" "BackForwardList"-    IO (Ptr BackForwardListItem)---backForwardListGetForwardItem ::-    (MonadIO m, BackForwardListK a) =>-    a                                       -- _obj-    -> m BackForwardListItem                -- result-backForwardListGetForwardItem _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_back_forward_list_get_forward_item _obj'-    checkUnexpectedReturnNULL "webkit_back_forward_list_get_forward_item" result-    result' <- (newObject BackForwardListItem) result-    touchManagedPtr _obj-    return result'--data BackForwardListGetForwardItemMethodInfo-instance (signature ~ (m BackForwardListItem), MonadIO m, BackForwardListK a) => MethodInfo BackForwardListGetForwardItemMethodInfo a signature where-    overloadedMethod _ = backForwardListGetForwardItem---- method BackForwardList::get_forward_list--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "WebKit2" "BackForwardListItem"))--- throws : False--- Skip return : False--foreign import ccall "webkit_back_forward_list_get_forward_list" webkit_back_forward_list_get_forward_list :: -    Ptr BackForwardList ->                  -- _obj : TInterface "WebKit2" "BackForwardList"-    IO (Ptr (GList (Ptr BackForwardListItem)))---backForwardListGetForwardList ::-    (MonadIO m, BackForwardListK a) =>-    a                                       -- _obj-    -> m [BackForwardListItem]              -- result-backForwardListGetForwardList _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_back_forward_list_get_forward_list _obj'-    result' <- unpackGList result-    result'' <- mapM (newObject BackForwardListItem) result'-    g_list_free result-    touchManagedPtr _obj-    return result''--data BackForwardListGetForwardListMethodInfo-instance (signature ~ (m [BackForwardListItem]), MonadIO m, BackForwardListK a) => MethodInfo BackForwardListGetForwardListMethodInfo a signature where-    overloadedMethod _ = backForwardListGetForwardList---- method BackForwardList::get_forward_list_with_limit--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "WebKit2" "BackForwardListItem"))--- throws : False--- Skip return : False--foreign import ccall "webkit_back_forward_list_get_forward_list_with_limit" webkit_back_forward_list_get_forward_list_with_limit :: -    Ptr BackForwardList ->                  -- _obj : TInterface "WebKit2" "BackForwardList"-    Word32 ->                               -- limit : TBasicType TUInt-    IO (Ptr (GList (Ptr BackForwardListItem)))---backForwardListGetForwardListWithLimit ::-    (MonadIO m, BackForwardListK a) =>-    a                                       -- _obj-    -> Word32                               -- limit-    -> m [BackForwardListItem]              -- result-backForwardListGetForwardListWithLimit _obj limit = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_back_forward_list_get_forward_list_with_limit _obj' limit-    result' <- unpackGList result-    result'' <- mapM (newObject BackForwardListItem) result'-    g_list_free result-    touchManagedPtr _obj-    return result''--data BackForwardListGetForwardListWithLimitMethodInfo-instance (signature ~ (Word32 -> m [BackForwardListItem]), MonadIO m, BackForwardListK a) => MethodInfo BackForwardListGetForwardListWithLimitMethodInfo a signature where-    overloadedMethod _ = backForwardListGetForwardListWithLimit---- method BackForwardList::get_length--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "webkit_back_forward_list_get_length" webkit_back_forward_list_get_length :: -    Ptr BackForwardList ->                  -- _obj : TInterface "WebKit2" "BackForwardList"-    IO Word32---backForwardListGetLength ::-    (MonadIO m, BackForwardListK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-backForwardListGetLength _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_back_forward_list_get_length _obj'-    touchManagedPtr _obj-    return result--data BackForwardListGetLengthMethodInfo-instance (signature ~ (m Word32), MonadIO m, BackForwardListK a) => MethodInfo BackForwardListGetLengthMethodInfo a signature where-    overloadedMethod _ = backForwardListGetLength---- method BackForwardList::get_nth_item--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "BackForwardListItem")--- throws : False--- Skip return : False--foreign import ccall "webkit_back_forward_list_get_nth_item" webkit_back_forward_list_get_nth_item :: -    Ptr BackForwardList ->                  -- _obj : TInterface "WebKit2" "BackForwardList"-    Int32 ->                                -- index : TBasicType TInt-    IO (Ptr BackForwardListItem)---backForwardListGetNthItem ::-    (MonadIO m, BackForwardListK a) =>-    a                                       -- _obj-    -> Int32                                -- index-    -> m BackForwardListItem                -- result-backForwardListGetNthItem _obj index = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_back_forward_list_get_nth_item _obj' index-    checkUnexpectedReturnNULL "webkit_back_forward_list_get_nth_item" result-    result' <- (newObject BackForwardListItem) result-    touchManagedPtr _obj-    return result'--data BackForwardListGetNthItemMethodInfo-instance (signature ~ (Int32 -> m BackForwardListItem), MonadIO m, BackForwardListK a) => MethodInfo BackForwardListGetNthItemMethodInfo a signature where-    overloadedMethod _ = backForwardListGetNthItem--
− GI/WebKit2/Objects/BackForwardList.hs-boot 
@@ -1,23 +0,0 @@-module GI.WebKit2.Objects.BackForwardList where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype BackForwardList = BackForwardList (ForeignPtr BackForwardList)-instance GObject BackForwardList where-class GObject o => BackForwardListK o-instance (GObject o, IsDescendantOf BackForwardList o) => BackForwardListK o-data BackForwardListChangedSignalInfo-data BackForwardListGetBackItemMethodInfo-data BackForwardListGetBackListMethodInfo-data BackForwardListGetBackListWithLimitMethodInfo-data BackForwardListGetCurrentItemMethodInfo-data BackForwardListGetForwardItemMethodInfo-data BackForwardListGetForwardListMethodInfo-data BackForwardListGetForwardListWithLimitMethodInfo-data BackForwardListGetLengthMethodInfo-data BackForwardListGetNthItemMethodInfo
− GI/WebKit2/Objects/BackForwardListItem.hs 
@@ -1,200 +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.WebKit2.Objects.BackForwardListItem-    ( ---- * Exported types-    BackForwardListItem(..)                 ,-    BackForwardListItemK                    ,-    toBackForwardListItem                   ,-    noBackForwardListItem                   ,--- -- * Methods--- ** backForwardListItemGetOriginalUri-    BackForwardListItemGetOriginalUriMethodInfo,-    backForwardListItemGetOriginalUri       ,----- ** backForwardListItemGetTitle-    BackForwardListItemGetTitleMethodInfo   ,-    backForwardListItemGetTitle             ,----- ** backForwardListItemGetUri-    BackForwardListItemGetUriMethodInfo     ,-    backForwardListItemGetUri               ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject--newtype BackForwardListItem = BackForwardListItem (ForeignPtr BackForwardListItem)-foreign import ccall "webkit_back_forward_list_item_get_type"-    c_webkit_back_forward_list_item_get_type :: IO GType--type instance ParentTypes BackForwardListItem = BackForwardListItemParentTypes-type BackForwardListItemParentTypes = '[GObject.Object]--instance GObject BackForwardListItem where-    gobjectIsInitiallyUnowned _ = True-    gobjectType _ = c_webkit_back_forward_list_item_get_type-    --class GObject o => BackForwardListItemK o-instance (GObject o, IsDescendantOf BackForwardListItem o) => BackForwardListItemK o--toBackForwardListItem :: BackForwardListItemK o => o -> IO BackForwardListItem-toBackForwardListItem = unsafeCastTo BackForwardListItem--noBackForwardListItem :: Maybe BackForwardListItem-noBackForwardListItem = Nothing--type family ResolveBackForwardListItemMethod (t :: Symbol) (o :: *) :: * where-    ResolveBackForwardListItemMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveBackForwardListItemMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveBackForwardListItemMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveBackForwardListItemMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveBackForwardListItemMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveBackForwardListItemMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveBackForwardListItemMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveBackForwardListItemMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveBackForwardListItemMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveBackForwardListItemMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveBackForwardListItemMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveBackForwardListItemMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveBackForwardListItemMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveBackForwardListItemMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveBackForwardListItemMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveBackForwardListItemMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveBackForwardListItemMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveBackForwardListItemMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveBackForwardListItemMethod "getOriginalUri" o = BackForwardListItemGetOriginalUriMethodInfo-    ResolveBackForwardListItemMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveBackForwardListItemMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveBackForwardListItemMethod "getTitle" o = BackForwardListItemGetTitleMethodInfo-    ResolveBackForwardListItemMethod "getUri" o = BackForwardListItemGetUriMethodInfo-    ResolveBackForwardListItemMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveBackForwardListItemMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveBackForwardListItemMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveBackForwardListItemMethod t BackForwardListItem, MethodInfo info BackForwardListItem p) => IsLabelProxy t (BackForwardListItem -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveBackForwardListItemMethod t BackForwardListItem, MethodInfo info BackForwardListItem p) => IsLabel t (BackForwardListItem -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList BackForwardListItem = BackForwardListItemAttributeList-type BackForwardListItemAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList BackForwardListItem = BackForwardListItemSignalList-type BackForwardListItemSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method BackForwardListItem::get_original_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardListItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_back_forward_list_item_get_original_uri" webkit_back_forward_list_item_get_original_uri :: -    Ptr BackForwardListItem ->              -- _obj : TInterface "WebKit2" "BackForwardListItem"-    IO CString---backForwardListItemGetOriginalUri ::-    (MonadIO m, BackForwardListItemK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-backForwardListItemGetOriginalUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_back_forward_list_item_get_original_uri _obj'-    checkUnexpectedReturnNULL "webkit_back_forward_list_item_get_original_uri" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data BackForwardListItemGetOriginalUriMethodInfo-instance (signature ~ (m T.Text), MonadIO m, BackForwardListItemK a) => MethodInfo BackForwardListItemGetOriginalUriMethodInfo a signature where-    overloadedMethod _ = backForwardListItemGetOriginalUri---- method BackForwardListItem::get_title--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardListItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_back_forward_list_item_get_title" webkit_back_forward_list_item_get_title :: -    Ptr BackForwardListItem ->              -- _obj : TInterface "WebKit2" "BackForwardListItem"-    IO CString---backForwardListItemGetTitle ::-    (MonadIO m, BackForwardListItemK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-backForwardListItemGetTitle _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_back_forward_list_item_get_title _obj'-    checkUnexpectedReturnNULL "webkit_back_forward_list_item_get_title" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data BackForwardListItemGetTitleMethodInfo-instance (signature ~ (m T.Text), MonadIO m, BackForwardListItemK a) => MethodInfo BackForwardListItemGetTitleMethodInfo a signature where-    overloadedMethod _ = backForwardListItemGetTitle---- method BackForwardListItem::get_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "BackForwardListItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_back_forward_list_item_get_uri" webkit_back_forward_list_item_get_uri :: -    Ptr BackForwardListItem ->              -- _obj : TInterface "WebKit2" "BackForwardListItem"-    IO CString---backForwardListItemGetUri ::-    (MonadIO m, BackForwardListItemK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-backForwardListItemGetUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_back_forward_list_item_get_uri _obj'-    checkUnexpectedReturnNULL "webkit_back_forward_list_item_get_uri" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data BackForwardListItemGetUriMethodInfo-instance (signature ~ (m T.Text), MonadIO m, BackForwardListItemK a) => MethodInfo BackForwardListItemGetUriMethodInfo a signature where-    overloadedMethod _ = backForwardListItemGetUri--
− GI/WebKit2/Objects/BackForwardListItem.hs-boot 
@@ -1,16 +0,0 @@-module GI.WebKit2.Objects.BackForwardListItem where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype BackForwardListItem = BackForwardListItem (ForeignPtr BackForwardListItem)-instance GObject BackForwardListItem where-class GObject o => BackForwardListItemK o-instance (GObject o, IsDescendantOf BackForwardListItem o) => BackForwardListItemK o-data BackForwardListItemGetOriginalUriMethodInfo-data BackForwardListItemGetTitleMethodInfo-data BackForwardListItemGetUriMethodInfo
− GI/WebKit2/Objects/ColorChooserRequest.hs 
@@ -1,369 +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.WebKit2.Objects.ColorChooserRequest-    ( ---- * Exported types-    ColorChooserRequest(..)                 ,-    ColorChooserRequestK                    ,-    toColorChooserRequest                   ,-    noColorChooserRequest                   ,--- -- * Methods--- ** colorChooserRequestCancel-    ColorChooserRequestCancelMethodInfo     ,-    colorChooserRequestCancel               ,----- ** colorChooserRequestFinish-    ColorChooserRequestFinishMethodInfo     ,-    colorChooserRequestFinish               ,----- ** colorChooserRequestGetElementRectangle-    ColorChooserRequestGetElementRectangleMethodInfo,-    colorChooserRequestGetElementRectangle  ,----- ** colorChooserRequestGetRgba-    ColorChooserRequestGetRgbaMethodInfo    ,-    colorChooserRequestGetRgba              ,----- ** colorChooserRequestSetRgba-    ColorChooserRequestSetRgbaMethodInfo    ,-    colorChooserRequestSetRgba              ,----- -- * Properties--- ** Rgba-    ColorChooserRequestRgbaPropertyInfo     ,-    colorChooserRequestRgba                 ,-    constructColorChooserRequestRgba        ,-    getColorChooserRequestRgba              ,-    setColorChooserRequestRgba              ,----- -- * Signals--- ** Finished-    ColorChooserRequestFinishedCallback     ,-    ColorChooserRequestFinishedCallbackC    ,-    ColorChooserRequestFinishedSignalInfo   ,-    afterColorChooserRequestFinished        ,-    colorChooserRequestFinishedCallbackWrapper,-    colorChooserRequestFinishedClosure      ,-    mkColorChooserRequestFinishedCallback   ,-    noColorChooserRequestFinishedCallback   ,-    onColorChooserRequestFinished           ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject-import qualified GI.Gdk as Gdk--newtype ColorChooserRequest = ColorChooserRequest (ForeignPtr ColorChooserRequest)-foreign import ccall "webkit_color_chooser_request_get_type"-    c_webkit_color_chooser_request_get_type :: IO GType--type instance ParentTypes ColorChooserRequest = ColorChooserRequestParentTypes-type ColorChooserRequestParentTypes = '[GObject.Object]--instance GObject ColorChooserRequest where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_color_chooser_request_get_type-    --class GObject o => ColorChooserRequestK o-instance (GObject o, IsDescendantOf ColorChooserRequest o) => ColorChooserRequestK o--toColorChooserRequest :: ColorChooserRequestK o => o -> IO ColorChooserRequest-toColorChooserRequest = unsafeCastTo ColorChooserRequest--noColorChooserRequest :: Maybe ColorChooserRequest-noColorChooserRequest = Nothing--type family ResolveColorChooserRequestMethod (t :: Symbol) (o :: *) :: * where-    ResolveColorChooserRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveColorChooserRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveColorChooserRequestMethod "cancel" o = ColorChooserRequestCancelMethodInfo-    ResolveColorChooserRequestMethod "finish" o = ColorChooserRequestFinishMethodInfo-    ResolveColorChooserRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveColorChooserRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveColorChooserRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveColorChooserRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveColorChooserRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveColorChooserRequestMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveColorChooserRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveColorChooserRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveColorChooserRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveColorChooserRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveColorChooserRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveColorChooserRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveColorChooserRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveColorChooserRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveColorChooserRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveColorChooserRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveColorChooserRequestMethod "getElementRectangle" o = ColorChooserRequestGetElementRectangleMethodInfo-    ResolveColorChooserRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveColorChooserRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveColorChooserRequestMethod "getRgba" o = ColorChooserRequestGetRgbaMethodInfo-    ResolveColorChooserRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveColorChooserRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveColorChooserRequestMethod "setRgba" o = ColorChooserRequestSetRgbaMethodInfo-    ResolveColorChooserRequestMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveColorChooserRequestMethod t ColorChooserRequest, MethodInfo info ColorChooserRequest p) => IsLabelProxy t (ColorChooserRequest -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveColorChooserRequestMethod t ColorChooserRequest, MethodInfo info ColorChooserRequest p) => IsLabel t (ColorChooserRequest -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal ColorChooserRequest::finished-type ColorChooserRequestFinishedCallback =-    IO ()--noColorChooserRequestFinishedCallback :: Maybe ColorChooserRequestFinishedCallback-noColorChooserRequestFinishedCallback = Nothing--type ColorChooserRequestFinishedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkColorChooserRequestFinishedCallback :: ColorChooserRequestFinishedCallbackC -> IO (FunPtr ColorChooserRequestFinishedCallbackC)--colorChooserRequestFinishedClosure :: ColorChooserRequestFinishedCallback -> IO Closure-colorChooserRequestFinishedClosure cb = newCClosure =<< mkColorChooserRequestFinishedCallback wrapped-    where wrapped = colorChooserRequestFinishedCallbackWrapper cb--colorChooserRequestFinishedCallbackWrapper ::-    ColorChooserRequestFinishedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-colorChooserRequestFinishedCallbackWrapper _cb _ _ = do-    _cb --onColorChooserRequestFinished :: (GObject a, MonadIO m) => a -> ColorChooserRequestFinishedCallback -> m SignalHandlerId-onColorChooserRequestFinished obj cb = liftIO $ connectColorChooserRequestFinished obj cb SignalConnectBefore-afterColorChooserRequestFinished :: (GObject a, MonadIO m) => a -> ColorChooserRequestFinishedCallback -> m SignalHandlerId-afterColorChooserRequestFinished obj cb = connectColorChooserRequestFinished obj cb SignalConnectAfter--connectColorChooserRequestFinished :: (GObject a, MonadIO m) =>-                                      a -> ColorChooserRequestFinishedCallback -> SignalConnectMode -> m SignalHandlerId-connectColorChooserRequestFinished obj cb after = liftIO $ do-    cb' <- mkColorChooserRequestFinishedCallback (colorChooserRequestFinishedCallbackWrapper cb)-    connectSignalFunPtr obj "finished" cb' after---- VVV Prop "rgba"-   -- Type: TInterface "Gdk" "RGBA"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Nothing,Just False)--getColorChooserRequestRgba :: (MonadIO m, ColorChooserRequestK o) => o -> m (Maybe Gdk.RGBA)-getColorChooserRequestRgba obj = liftIO $ getObjectPropertyBoxed obj "rgba" Gdk.RGBA--setColorChooserRequestRgba :: (MonadIO m, ColorChooserRequestK o) => o -> Gdk.RGBA -> m ()-setColorChooserRequestRgba obj val = liftIO $ setObjectPropertyBoxed obj "rgba" (Just val)--constructColorChooserRequestRgba :: Gdk.RGBA -> IO ([Char], GValue)-constructColorChooserRequestRgba val = constructObjectPropertyBoxed "rgba" (Just val)--data ColorChooserRequestRgbaPropertyInfo-instance AttrInfo ColorChooserRequestRgbaPropertyInfo where-    type AttrAllowedOps ColorChooserRequestRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ColorChooserRequestRgbaPropertyInfo = (~) Gdk.RGBA-    type AttrBaseTypeConstraint ColorChooserRequestRgbaPropertyInfo = ColorChooserRequestK-    type AttrGetType ColorChooserRequestRgbaPropertyInfo = (Maybe Gdk.RGBA)-    type AttrLabel ColorChooserRequestRgbaPropertyInfo = "rgba"-    attrGet _ = getColorChooserRequestRgba-    attrSet _ = setColorChooserRequestRgba-    attrConstruct _ = constructColorChooserRequestRgba-    attrClear _ = undefined--type instance AttributeList ColorChooserRequest = ColorChooserRequestAttributeList-type ColorChooserRequestAttributeList = ('[ '("rgba", ColorChooserRequestRgbaPropertyInfo)] :: [(Symbol, *)])--colorChooserRequestRgba :: AttrLabelProxy "rgba"-colorChooserRequestRgba = AttrLabelProxy--data ColorChooserRequestFinishedSignalInfo-instance SignalInfo ColorChooserRequestFinishedSignalInfo where-    type HaskellCallbackType ColorChooserRequestFinishedSignalInfo = ColorChooserRequestFinishedCallback-    connectSignal _ = connectColorChooserRequestFinished--type instance SignalList ColorChooserRequest = ColorChooserRequestSignalList-type ColorChooserRequestSignalList = ('[ '("finished", ColorChooserRequestFinishedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method ColorChooserRequest::cancel--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ColorChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_color_chooser_request_cancel" webkit_color_chooser_request_cancel :: -    Ptr ColorChooserRequest ->              -- _obj : TInterface "WebKit2" "ColorChooserRequest"-    IO ()---colorChooserRequestCancel ::-    (MonadIO m, ColorChooserRequestK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-colorChooserRequestCancel _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_color_chooser_request_cancel _obj'-    touchManagedPtr _obj-    return ()--data ColorChooserRequestCancelMethodInfo-instance (signature ~ (m ()), MonadIO m, ColorChooserRequestK a) => MethodInfo ColorChooserRequestCancelMethodInfo a signature where-    overloadedMethod _ = colorChooserRequestCancel---- method ColorChooserRequest::finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ColorChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_color_chooser_request_finish" webkit_color_chooser_request_finish :: -    Ptr ColorChooserRequest ->              -- _obj : TInterface "WebKit2" "ColorChooserRequest"-    IO ()---colorChooserRequestFinish ::-    (MonadIO m, ColorChooserRequestK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-colorChooserRequestFinish _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_color_chooser_request_finish _obj'-    touchManagedPtr _obj-    return ()--data ColorChooserRequestFinishMethodInfo-instance (signature ~ (m ()), MonadIO m, ColorChooserRequestK a) => MethodInfo ColorChooserRequestFinishMethodInfo a signature where-    overloadedMethod _ = colorChooserRequestFinish---- method ColorChooserRequest::get_element_rectangle--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ColorChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_color_chooser_request_get_element_rectangle" webkit_color_chooser_request_get_element_rectangle :: -    Ptr ColorChooserRequest ->              -- _obj : TInterface "WebKit2" "ColorChooserRequest"-    Ptr Gdk.Rectangle ->                    -- rect : TInterface "Gdk" "Rectangle"-    IO ()---colorChooserRequestGetElementRectangle ::-    (MonadIO m, ColorChooserRequestK a) =>-    a                                       -- _obj-    -> m (Gdk.Rectangle)                    -- result-colorChooserRequestGetElementRectangle _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)-    webkit_color_chooser_request_get_element_rectangle _obj' rect-    rect' <- (wrapBoxed Gdk.Rectangle) rect-    touchManagedPtr _obj-    return rect'--data ColorChooserRequestGetElementRectangleMethodInfo-instance (signature ~ (m (Gdk.Rectangle)), MonadIO m, ColorChooserRequestK a) => MethodInfo ColorChooserRequestGetElementRectangleMethodInfo a signature where-    overloadedMethod _ = colorChooserRequestGetElementRectangle---- method ColorChooserRequest::get_rgba--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ColorChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_color_chooser_request_get_rgba" webkit_color_chooser_request_get_rgba :: -    Ptr ColorChooserRequest ->              -- _obj : TInterface "WebKit2" "ColorChooserRequest"-    Ptr Gdk.RGBA ->                         -- rgba : TInterface "Gdk" "RGBA"-    IO ()---colorChooserRequestGetRgba ::-    (MonadIO m, ColorChooserRequestK a) =>-    a                                       -- _obj-    -> m (Gdk.RGBA)                         -- result-colorChooserRequestGetRgba _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    rgba <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA)-    webkit_color_chooser_request_get_rgba _obj' rgba-    rgba' <- (wrapBoxed Gdk.RGBA) rgba-    touchManagedPtr _obj-    return rgba'--data ColorChooserRequestGetRgbaMethodInfo-instance (signature ~ (m (Gdk.RGBA)), MonadIO m, ColorChooserRequestK a) => MethodInfo ColorChooserRequestGetRgbaMethodInfo a signature where-    overloadedMethod _ = colorChooserRequestGetRgba---- method ColorChooserRequest::set_rgba--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ColorChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_color_chooser_request_set_rgba" webkit_color_chooser_request_set_rgba :: -    Ptr ColorChooserRequest ->              -- _obj : TInterface "WebKit2" "ColorChooserRequest"-    Ptr Gdk.RGBA ->                         -- rgba : TInterface "Gdk" "RGBA"-    IO ()---colorChooserRequestSetRgba ::-    (MonadIO m, ColorChooserRequestK a) =>-    a                                       -- _obj-    -> Gdk.RGBA                             -- rgba-    -> m ()                                 -- result-colorChooserRequestSetRgba _obj rgba = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let rgba' = unsafeManagedPtrGetPtr rgba-    webkit_color_chooser_request_set_rgba _obj' rgba'-    touchManagedPtr _obj-    touchManagedPtr rgba-    return ()--data ColorChooserRequestSetRgbaMethodInfo-instance (signature ~ (Gdk.RGBA -> m ()), MonadIO m, ColorChooserRequestK a) => MethodInfo ColorChooserRequestSetRgbaMethodInfo a signature where-    overloadedMethod _ = colorChooserRequestSetRgba--
− GI/WebKit2/Objects/ColorChooserRequest.hs-boot 
@@ -1,20 +0,0 @@-module GI.WebKit2.Objects.ColorChooserRequest where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ColorChooserRequest = ColorChooserRequest (ForeignPtr ColorChooserRequest)-instance GObject ColorChooserRequest where-class GObject o => ColorChooserRequestK o-instance (GObject o, IsDescendantOf ColorChooserRequest o) => ColorChooserRequestK o-data ColorChooserRequestRgbaPropertyInfo-data ColorChooserRequestFinishedSignalInfo-data ColorChooserRequestCancelMethodInfo-data ColorChooserRequestFinishMethodInfo-data ColorChooserRequestGetElementRectangleMethodInfo-data ColorChooserRequestGetRgbaMethodInfo-data ColorChooserRequestSetRgbaMethodInfo
− GI/WebKit2/Objects/ContextMenu.hs 
@@ -1,619 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.WebKit2.Objects.ContextMenu-    ( ---- * Exported types-    ContextMenu(..)                         ,-    ContextMenuK                            ,-    toContextMenu                           ,-    noContextMenu                           ,--- -- * Methods--- ** contextMenuAppend-    ContextMenuAppendMethodInfo             ,-    contextMenuAppend                       ,----- ** contextMenuFirst-    ContextMenuFirstMethodInfo              ,-    contextMenuFirst                        ,----- ** contextMenuGetItemAtPosition-    ContextMenuGetItemAtPositionMethodInfo  ,-    contextMenuGetItemAtPosition            ,----- ** contextMenuGetItems-    ContextMenuGetItemsMethodInfo           ,-    contextMenuGetItems                     ,----- ** contextMenuGetNItems-    ContextMenuGetNItemsMethodInfo          ,-    contextMenuGetNItems                    ,----- ** contextMenuGetUserData-    ContextMenuGetUserDataMethodInfo        ,-    contextMenuGetUserData                  ,----- ** contextMenuInsert-    ContextMenuInsertMethodInfo             ,-    contextMenuInsert                       ,----- ** contextMenuLast-    ContextMenuLastMethodInfo               ,-    contextMenuLast                         ,----- ** contextMenuMoveItem-    ContextMenuMoveItemMethodInfo           ,-    contextMenuMoveItem                     ,----- ** contextMenuNew-    contextMenuNew                          ,----- ** contextMenuNewWithItems-    contextMenuNewWithItems                 ,----- ** contextMenuPrepend-    ContextMenuPrependMethodInfo            ,-    contextMenuPrepend                      ,----- ** contextMenuRemove-    ContextMenuRemoveMethodInfo             ,-    contextMenuRemove                       ,----- ** contextMenuRemoveAll-    ContextMenuRemoveAllMethodInfo          ,-    contextMenuRemoveAll                    ,----- ** contextMenuSetUserData-    ContextMenuSetUserDataMethodInfo        ,-    contextMenuSetUserData                  ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject--newtype ContextMenu = ContextMenu (ForeignPtr ContextMenu)-foreign import ccall "webkit_context_menu_get_type"-    c_webkit_context_menu_get_type :: IO GType--type instance ParentTypes ContextMenu = ContextMenuParentTypes-type ContextMenuParentTypes = '[GObject.Object]--instance GObject ContextMenu where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_context_menu_get_type-    --class GObject o => ContextMenuK o-instance (GObject o, IsDescendantOf ContextMenu o) => ContextMenuK o--toContextMenu :: ContextMenuK o => o -> IO ContextMenu-toContextMenu = unsafeCastTo ContextMenu--noContextMenu :: Maybe ContextMenu-noContextMenu = Nothing--type family ResolveContextMenuMethod (t :: Symbol) (o :: *) :: * where-    ResolveContextMenuMethod "append" o = ContextMenuAppendMethodInfo-    ResolveContextMenuMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveContextMenuMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveContextMenuMethod "first" o = ContextMenuFirstMethodInfo-    ResolveContextMenuMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveContextMenuMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveContextMenuMethod "insert" o = ContextMenuInsertMethodInfo-    ResolveContextMenuMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveContextMenuMethod "last" o = ContextMenuLastMethodInfo-    ResolveContextMenuMethod "moveItem" o = ContextMenuMoveItemMethodInfo-    ResolveContextMenuMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveContextMenuMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveContextMenuMethod "prepend" o = ContextMenuPrependMethodInfo-    ResolveContextMenuMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveContextMenuMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveContextMenuMethod "remove" o = ContextMenuRemoveMethodInfo-    ResolveContextMenuMethod "removeAll" o = ContextMenuRemoveAllMethodInfo-    ResolveContextMenuMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveContextMenuMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveContextMenuMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveContextMenuMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveContextMenuMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveContextMenuMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveContextMenuMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveContextMenuMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveContextMenuMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveContextMenuMethod "getItemAtPosition" o = ContextMenuGetItemAtPositionMethodInfo-    ResolveContextMenuMethod "getItems" o = ContextMenuGetItemsMethodInfo-    ResolveContextMenuMethod "getNItems" o = ContextMenuGetNItemsMethodInfo-    ResolveContextMenuMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveContextMenuMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveContextMenuMethod "getUserData" o = ContextMenuGetUserDataMethodInfo-    ResolveContextMenuMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveContextMenuMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveContextMenuMethod "setUserData" o = ContextMenuSetUserDataMethodInfo-    ResolveContextMenuMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveContextMenuMethod t ContextMenu, MethodInfo info ContextMenu p) => IsLabelProxy t (ContextMenu -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveContextMenuMethod t ContextMenu, MethodInfo info ContextMenu p) => IsLabel t (ContextMenu -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList ContextMenu = ContextMenuAttributeList-type ContextMenuAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList ContextMenu = ContextMenuSignalList-type ContextMenuSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method ContextMenu::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "WebKit2" "ContextMenu")--- throws : False--- Skip return : False--foreign import ccall "webkit_context_menu_new" webkit_context_menu_new :: -    IO (Ptr ContextMenu)---contextMenuNew ::-    (MonadIO m) =>-    m ContextMenu                           -- result-contextMenuNew  = liftIO $ do-    result <- webkit_context_menu_new-    checkUnexpectedReturnNULL "webkit_context_menu_new" result-    result' <- (wrapObject ContextMenu) result-    return result'---- method ContextMenu::new_with_items--- method type : Constructor--- Args : [Arg {argCName = "items", argType = TGList (TInterface "WebKit2" "ContextMenuItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "ContextMenu")--- throws : False--- Skip return : False--foreign import ccall "webkit_context_menu_new_with_items" webkit_context_menu_new_with_items :: -    Ptr (GList (Ptr ContextMenuItem)) ->    -- items : TGList (TInterface "WebKit2" "ContextMenuItem")-    IO (Ptr ContextMenu)---contextMenuNewWithItems ::-    (MonadIO m, ContextMenuItemK a) =>-    [a]                                     -- items-    -> m ContextMenu                        -- result-contextMenuNewWithItems items = liftIO $ do-    let items' = map unsafeManagedPtrCastPtr items-    items'' <- packGList items'-    result <- webkit_context_menu_new_with_items items''-    checkUnexpectedReturnNULL "webkit_context_menu_new_with_items" result-    result' <- (wrapObject ContextMenu) result-    mapM_ touchManagedPtr items-    g_list_free items''-    return result'---- method ContextMenu::append--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_context_menu_append" webkit_context_menu_append :: -    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"-    Ptr ContextMenuItem ->                  -- item : TInterface "WebKit2" "ContextMenuItem"-    IO ()---contextMenuAppend ::-    (MonadIO m, ContextMenuK a, ContextMenuItemK b) =>-    a                                       -- _obj-    -> b                                    -- item-    -> m ()                                 -- result-contextMenuAppend _obj item = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let item' = unsafeManagedPtrCastPtr item-    webkit_context_menu_append _obj' item'-    touchManagedPtr _obj-    touchManagedPtr item-    return ()--data ContextMenuAppendMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, ContextMenuK a, ContextMenuItemK b) => MethodInfo ContextMenuAppendMethodInfo a signature where-    overloadedMethod _ = contextMenuAppend---- method ContextMenu::first--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "ContextMenuItem")--- throws : False--- Skip return : False--foreign import ccall "webkit_context_menu_first" webkit_context_menu_first :: -    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"-    IO (Ptr ContextMenuItem)---contextMenuFirst ::-    (MonadIO m, ContextMenuK a) =>-    a                                       -- _obj-    -> m ContextMenuItem                    -- result-contextMenuFirst _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_context_menu_first _obj'-    checkUnexpectedReturnNULL "webkit_context_menu_first" result-    result' <- (newObject ContextMenuItem) result-    touchManagedPtr _obj-    return result'--data ContextMenuFirstMethodInfo-instance (signature ~ (m ContextMenuItem), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuFirstMethodInfo a signature where-    overloadedMethod _ = contextMenuFirst---- method ContextMenu::get_item_at_position--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "ContextMenuItem")--- throws : False--- Skip return : False--foreign import ccall "webkit_context_menu_get_item_at_position" webkit_context_menu_get_item_at_position :: -    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"-    Word32 ->                               -- position : TBasicType TUInt-    IO (Ptr ContextMenuItem)---contextMenuGetItemAtPosition ::-    (MonadIO m, ContextMenuK a) =>-    a                                       -- _obj-    -> Word32                               -- position-    -> m ContextMenuItem                    -- result-contextMenuGetItemAtPosition _obj position = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_context_menu_get_item_at_position _obj' position-    checkUnexpectedReturnNULL "webkit_context_menu_get_item_at_position" result-    result' <- (newObject ContextMenuItem) result-    touchManagedPtr _obj-    return result'--data ContextMenuGetItemAtPositionMethodInfo-instance (signature ~ (Word32 -> m ContextMenuItem), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuGetItemAtPositionMethodInfo a signature where-    overloadedMethod _ = contextMenuGetItemAtPosition---- method ContextMenu::get_items--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "WebKit2" "ContextMenuItem"))--- throws : False--- Skip return : False--foreign import ccall "webkit_context_menu_get_items" webkit_context_menu_get_items :: -    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"-    IO (Ptr (GList (Ptr ContextMenuItem)))---contextMenuGetItems ::-    (MonadIO m, ContextMenuK a) =>-    a                                       -- _obj-    -> m [ContextMenuItem]                  -- result-contextMenuGetItems _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_context_menu_get_items _obj'-    result' <- unpackGList result-    result'' <- mapM (newObject ContextMenuItem) result'-    touchManagedPtr _obj-    return result''--data ContextMenuGetItemsMethodInfo-instance (signature ~ (m [ContextMenuItem]), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuGetItemsMethodInfo a signature where-    overloadedMethod _ = contextMenuGetItems---- method ContextMenu::get_n_items--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "webkit_context_menu_get_n_items" webkit_context_menu_get_n_items :: -    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"-    IO Word32---contextMenuGetNItems ::-    (MonadIO m, ContextMenuK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-contextMenuGetNItems _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_context_menu_get_n_items _obj'-    touchManagedPtr _obj-    return result--data ContextMenuGetNItemsMethodInfo-instance (signature ~ (m Word32), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuGetNItemsMethodInfo a signature where-    overloadedMethod _ = contextMenuGetNItems---- method ContextMenu::get_user_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : False--- Skip return : False--foreign import ccall "webkit_context_menu_get_user_data" webkit_context_menu_get_user_data :: -    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"-    IO (Ptr GVariant)---contextMenuGetUserData ::-    (MonadIO m, ContextMenuK a) =>-    a                                       -- _obj-    -> m GVariant                           -- result-contextMenuGetUserData _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_context_menu_get_user_data _obj'-    checkUnexpectedReturnNULL "webkit_context_menu_get_user_data" result-    result' <- newGVariantFromPtr result-    touchManagedPtr _obj-    return result'--data ContextMenuGetUserDataMethodInfo-instance (signature ~ (m GVariant), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuGetUserDataMethodInfo a signature where-    overloadedMethod _ = contextMenuGetUserData---- method ContextMenu::insert--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_context_menu_insert" webkit_context_menu_insert :: -    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"-    Ptr ContextMenuItem ->                  -- item : TInterface "WebKit2" "ContextMenuItem"-    Int32 ->                                -- position : TBasicType TInt-    IO ()---contextMenuInsert ::-    (MonadIO m, ContextMenuK a, ContextMenuItemK b) =>-    a                                       -- _obj-    -> b                                    -- item-    -> Int32                                -- position-    -> m ()                                 -- result-contextMenuInsert _obj item position = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let item' = unsafeManagedPtrCastPtr item-    webkit_context_menu_insert _obj' item' position-    touchManagedPtr _obj-    touchManagedPtr item-    return ()--data ContextMenuInsertMethodInfo-instance (signature ~ (b -> Int32 -> m ()), MonadIO m, ContextMenuK a, ContextMenuItemK b) => MethodInfo ContextMenuInsertMethodInfo a signature where-    overloadedMethod _ = contextMenuInsert---- method ContextMenu::last--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "ContextMenuItem")--- throws : False--- Skip return : False--foreign import ccall "webkit_context_menu_last" webkit_context_menu_last :: -    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"-    IO (Ptr ContextMenuItem)---contextMenuLast ::-    (MonadIO m, ContextMenuK a) =>-    a                                       -- _obj-    -> m ContextMenuItem                    -- result-contextMenuLast _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_context_menu_last _obj'-    checkUnexpectedReturnNULL "webkit_context_menu_last" result-    result' <- (newObject ContextMenuItem) result-    touchManagedPtr _obj-    return result'--data ContextMenuLastMethodInfo-instance (signature ~ (m ContextMenuItem), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuLastMethodInfo a signature where-    overloadedMethod _ = contextMenuLast---- method ContextMenu::move_item--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_context_menu_move_item" webkit_context_menu_move_item :: -    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"-    Ptr ContextMenuItem ->                  -- item : TInterface "WebKit2" "ContextMenuItem"-    Int32 ->                                -- position : TBasicType TInt-    IO ()---contextMenuMoveItem ::-    (MonadIO m, ContextMenuK a, ContextMenuItemK b) =>-    a                                       -- _obj-    -> b                                    -- item-    -> Int32                                -- position-    -> m ()                                 -- result-contextMenuMoveItem _obj item position = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let item' = unsafeManagedPtrCastPtr item-    webkit_context_menu_move_item _obj' item' position-    touchManagedPtr _obj-    touchManagedPtr item-    return ()--data ContextMenuMoveItemMethodInfo-instance (signature ~ (b -> Int32 -> m ()), MonadIO m, ContextMenuK a, ContextMenuItemK b) => MethodInfo ContextMenuMoveItemMethodInfo a signature where-    overloadedMethod _ = contextMenuMoveItem---- method ContextMenu::prepend--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_context_menu_prepend" webkit_context_menu_prepend :: -    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"-    Ptr ContextMenuItem ->                  -- item : TInterface "WebKit2" "ContextMenuItem"-    IO ()---contextMenuPrepend ::-    (MonadIO m, ContextMenuK a, ContextMenuItemK b) =>-    a                                       -- _obj-    -> b                                    -- item-    -> m ()                                 -- result-contextMenuPrepend _obj item = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let item' = unsafeManagedPtrCastPtr item-    webkit_context_menu_prepend _obj' item'-    touchManagedPtr _obj-    touchManagedPtr item-    return ()--data ContextMenuPrependMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, ContextMenuK a, ContextMenuItemK b) => MethodInfo ContextMenuPrependMethodInfo a signature where-    overloadedMethod _ = contextMenuPrepend---- method ContextMenu::remove--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_context_menu_remove" webkit_context_menu_remove :: -    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"-    Ptr ContextMenuItem ->                  -- item : TInterface "WebKit2" "ContextMenuItem"-    IO ()---contextMenuRemove ::-    (MonadIO m, ContextMenuK a, ContextMenuItemK b) =>-    a                                       -- _obj-    -> b                                    -- item-    -> m ()                                 -- result-contextMenuRemove _obj item = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let item' = unsafeManagedPtrCastPtr item-    webkit_context_menu_remove _obj' item'-    touchManagedPtr _obj-    touchManagedPtr item-    return ()--data ContextMenuRemoveMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, ContextMenuK a, ContextMenuItemK b) => MethodInfo ContextMenuRemoveMethodInfo a signature where-    overloadedMethod _ = contextMenuRemove---- method ContextMenu::remove_all--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_context_menu_remove_all" webkit_context_menu_remove_all :: -    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"-    IO ()---contextMenuRemoveAll ::-    (MonadIO m, ContextMenuK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-contextMenuRemoveAll _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_context_menu_remove_all _obj'-    touchManagedPtr _obj-    return ()--data ContextMenuRemoveAllMethodInfo-instance (signature ~ (m ()), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuRemoveAllMethodInfo a signature where-    overloadedMethod _ = contextMenuRemoveAll---- method ContextMenu::set_user_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_context_menu_set_user_data" webkit_context_menu_set_user_data :: -    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2" "ContextMenu"-    Ptr GVariant ->                         -- user_data : TVariant-    IO ()---contextMenuSetUserData ::-    (MonadIO m, ContextMenuK a) =>-    a                                       -- _obj-    -> GVariant                             -- userData-    -> m ()                                 -- result-contextMenuSetUserData _obj userData = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let userData' = unsafeManagedPtrGetPtr userData-    webkit_context_menu_set_user_data _obj' userData'-    touchManagedPtr _obj-    return ()--data ContextMenuSetUserDataMethodInfo-instance (signature ~ (GVariant -> m ()), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuSetUserDataMethodInfo a signature where-    overloadedMethod _ = contextMenuSetUserData--
− GI/WebKit2/Objects/ContextMenu.hs-boot 
@@ -1,26 +0,0 @@-module GI.WebKit2.Objects.ContextMenu where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ContextMenu = ContextMenu (ForeignPtr ContextMenu)-instance GObject ContextMenu where-class GObject o => ContextMenuK o-instance (GObject o, IsDescendantOf ContextMenu o) => ContextMenuK o-data ContextMenuAppendMethodInfo-data ContextMenuFirstMethodInfo-data ContextMenuGetItemAtPositionMethodInfo-data ContextMenuGetItemsMethodInfo-data ContextMenuGetNItemsMethodInfo-data ContextMenuGetUserDataMethodInfo-data ContextMenuInsertMethodInfo-data ContextMenuLastMethodInfo-data ContextMenuMoveItemMethodInfo-data ContextMenuPrependMethodInfo-data ContextMenuRemoveMethodInfo-data ContextMenuRemoveAllMethodInfo-data ContextMenuSetUserDataMethodInfo
− GI/WebKit2/Objects/ContextMenuItem.hs 
@@ -1,422 +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.WebKit2.Objects.ContextMenuItem-    ( ---- * Exported types-    ContextMenuItem(..)                     ,-    ContextMenuItemK                        ,-    toContextMenuItem                       ,-    noContextMenuItem                       ,--- -- * Methods--- ** contextMenuItemGetAction-    ContextMenuItemGetActionMethodInfo      ,-    contextMenuItemGetAction                ,----- ** contextMenuItemGetStockAction-    ContextMenuItemGetStockActionMethodInfo ,-    contextMenuItemGetStockAction           ,----- ** contextMenuItemGetSubmenu-    ContextMenuItemGetSubmenuMethodInfo     ,-    contextMenuItemGetSubmenu               ,----- ** contextMenuItemIsSeparator-    ContextMenuItemIsSeparatorMethodInfo    ,-    contextMenuItemIsSeparator              ,----- ** contextMenuItemNew-    contextMenuItemNew                      ,----- ** contextMenuItemNewFromStockAction-    contextMenuItemNewFromStockAction       ,----- ** contextMenuItemNewFromStockActionWithLabel-    contextMenuItemNewFromStockActionWithLabel,----- ** contextMenuItemNewSeparator-    contextMenuItemNewSeparator             ,----- ** contextMenuItemNewWithSubmenu-    contextMenuItemNewWithSubmenu           ,----- ** contextMenuItemSetSubmenu-    ContextMenuItemSetSubmenuMethodInfo     ,-    contextMenuItemSetSubmenu               ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject-import qualified GI.Gtk as Gtk--newtype ContextMenuItem = ContextMenuItem (ForeignPtr ContextMenuItem)-foreign import ccall "webkit_context_menu_item_get_type"-    c_webkit_context_menu_item_get_type :: IO GType--type instance ParentTypes ContextMenuItem = ContextMenuItemParentTypes-type ContextMenuItemParentTypes = '[GObject.Object]--instance GObject ContextMenuItem where-    gobjectIsInitiallyUnowned _ = True-    gobjectType _ = c_webkit_context_menu_item_get_type-    --class GObject o => ContextMenuItemK o-instance (GObject o, IsDescendantOf ContextMenuItem o) => ContextMenuItemK o--toContextMenuItem :: ContextMenuItemK o => o -> IO ContextMenuItem-toContextMenuItem = unsafeCastTo ContextMenuItem--noContextMenuItem :: Maybe ContextMenuItem-noContextMenuItem = Nothing--type family ResolveContextMenuItemMethod (t :: Symbol) (o :: *) :: * where-    ResolveContextMenuItemMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveContextMenuItemMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveContextMenuItemMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveContextMenuItemMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveContextMenuItemMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveContextMenuItemMethod "isSeparator" o = ContextMenuItemIsSeparatorMethodInfo-    ResolveContextMenuItemMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveContextMenuItemMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveContextMenuItemMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveContextMenuItemMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveContextMenuItemMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveContextMenuItemMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveContextMenuItemMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveContextMenuItemMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveContextMenuItemMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveContextMenuItemMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveContextMenuItemMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveContextMenuItemMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveContextMenuItemMethod "getAction" o = ContextMenuItemGetActionMethodInfo-    ResolveContextMenuItemMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveContextMenuItemMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveContextMenuItemMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveContextMenuItemMethod "getStockAction" o = ContextMenuItemGetStockActionMethodInfo-    ResolveContextMenuItemMethod "getSubmenu" o = ContextMenuItemGetSubmenuMethodInfo-    ResolveContextMenuItemMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveContextMenuItemMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveContextMenuItemMethod "setSubmenu" o = ContextMenuItemSetSubmenuMethodInfo-    ResolveContextMenuItemMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveContextMenuItemMethod t ContextMenuItem, MethodInfo info ContextMenuItem p) => IsLabelProxy t (ContextMenuItem -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveContextMenuItemMethod t ContextMenuItem, MethodInfo info ContextMenuItem p) => IsLabel t (ContextMenuItem -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList ContextMenuItem = ContextMenuItemAttributeList-type ContextMenuItemAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList ContextMenuItem = ContextMenuItemSignalList-type ContextMenuItemSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method ContextMenuItem::new--- method type : Constructor--- Args : [Arg {argCName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "ContextMenuItem")--- throws : False--- Skip return : False--foreign import ccall "webkit_context_menu_item_new" webkit_context_menu_item_new :: -    Ptr Gtk.Action ->                       -- action : TInterface "Gtk" "Action"-    IO (Ptr ContextMenuItem)---contextMenuItemNew ::-    (MonadIO m, Gtk.ActionK a) =>-    a                                       -- action-    -> m ContextMenuItem                    -- result-contextMenuItemNew action = liftIO $ do-    let action' = unsafeManagedPtrCastPtr action-    result <- webkit_context_menu_item_new action'-    checkUnexpectedReturnNULL "webkit_context_menu_item_new" result-    result' <- (newObject ContextMenuItem) result-    touchManagedPtr action-    return result'---- method ContextMenuItem::new_from_stock_action--- method type : Constructor--- Args : [Arg {argCName = "action", argType = TInterface "WebKit2" "ContextMenuAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "ContextMenuItem")--- throws : False--- Skip return : False--foreign import ccall "webkit_context_menu_item_new_from_stock_action" webkit_context_menu_item_new_from_stock_action :: -    CUInt ->                                -- action : TInterface "WebKit2" "ContextMenuAction"-    IO (Ptr ContextMenuItem)---contextMenuItemNewFromStockAction ::-    (MonadIO m) =>-    ContextMenuAction                       -- action-    -> m ContextMenuItem                    -- result-contextMenuItemNewFromStockAction action = liftIO $ do-    let action' = (fromIntegral . fromEnum) action-    result <- webkit_context_menu_item_new_from_stock_action action'-    checkUnexpectedReturnNULL "webkit_context_menu_item_new_from_stock_action" result-    result' <- (newObject ContextMenuItem) result-    return result'---- method ContextMenuItem::new_from_stock_action_with_label--- method type : Constructor--- Args : [Arg {argCName = "action", argType = TInterface "WebKit2" "ContextMenuAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "ContextMenuItem")--- throws : False--- Skip return : False--foreign import ccall "webkit_context_menu_item_new_from_stock_action_with_label" webkit_context_menu_item_new_from_stock_action_with_label :: -    CUInt ->                                -- action : TInterface "WebKit2" "ContextMenuAction"-    CString ->                              -- label : TBasicType TUTF8-    IO (Ptr ContextMenuItem)---contextMenuItemNewFromStockActionWithLabel ::-    (MonadIO m) =>-    ContextMenuAction                       -- action-    -> T.Text                               -- label-    -> m ContextMenuItem                    -- result-contextMenuItemNewFromStockActionWithLabel action label = liftIO $ do-    let action' = (fromIntegral . fromEnum) action-    label' <- textToCString label-    result <- webkit_context_menu_item_new_from_stock_action_with_label action' label'-    checkUnexpectedReturnNULL "webkit_context_menu_item_new_from_stock_action_with_label" result-    result' <- (newObject ContextMenuItem) result-    freeMem label'-    return result'---- method ContextMenuItem::new_separator--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "WebKit2" "ContextMenuItem")--- throws : False--- Skip return : False--foreign import ccall "webkit_context_menu_item_new_separator" webkit_context_menu_item_new_separator :: -    IO (Ptr ContextMenuItem)---contextMenuItemNewSeparator ::-    (MonadIO m) =>-    m ContextMenuItem                       -- result-contextMenuItemNewSeparator  = liftIO $ do-    result <- webkit_context_menu_item_new_separator-    checkUnexpectedReturnNULL "webkit_context_menu_item_new_separator" result-    result' <- (newObject ContextMenuItem) result-    return result'---- method ContextMenuItem::new_with_submenu--- method type : Constructor--- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "ContextMenuItem")--- throws : False--- Skip return : False--foreign import ccall "webkit_context_menu_item_new_with_submenu" webkit_context_menu_item_new_with_submenu :: -    CString ->                              -- label : TBasicType TUTF8-    Ptr ContextMenu ->                      -- submenu : TInterface "WebKit2" "ContextMenu"-    IO (Ptr ContextMenuItem)---contextMenuItemNewWithSubmenu ::-    (MonadIO m, ContextMenuK a) =>-    T.Text                                  -- label-    -> a                                    -- submenu-    -> m ContextMenuItem                    -- result-contextMenuItemNewWithSubmenu label submenu = liftIO $ do-    label' <- textToCString label-    let submenu' = unsafeManagedPtrCastPtr submenu-    result <- webkit_context_menu_item_new_with_submenu label' submenu'-    checkUnexpectedReturnNULL "webkit_context_menu_item_new_with_submenu" result-    result' <- (newObject ContextMenuItem) result-    touchManagedPtr submenu-    freeMem label'-    return result'---- method ContextMenuItem::get_action--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gtk" "Action")--- throws : False--- Skip return : False--foreign import ccall "webkit_context_menu_item_get_action" webkit_context_menu_item_get_action :: -    Ptr ContextMenuItem ->                  -- _obj : TInterface "WebKit2" "ContextMenuItem"-    IO (Ptr Gtk.Action)---contextMenuItemGetAction ::-    (MonadIO m, ContextMenuItemK a) =>-    a                                       -- _obj-    -> m Gtk.Action                         -- result-contextMenuItemGetAction _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_context_menu_item_get_action _obj'-    checkUnexpectedReturnNULL "webkit_context_menu_item_get_action" result-    result' <- (newObject Gtk.Action) result-    touchManagedPtr _obj-    return result'--data ContextMenuItemGetActionMethodInfo-instance (signature ~ (m Gtk.Action), MonadIO m, ContextMenuItemK a) => MethodInfo ContextMenuItemGetActionMethodInfo a signature where-    overloadedMethod _ = contextMenuItemGetAction---- method ContextMenuItem::get_stock_action--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "ContextMenuAction")--- throws : False--- Skip return : False--foreign import ccall "webkit_context_menu_item_get_stock_action" webkit_context_menu_item_get_stock_action :: -    Ptr ContextMenuItem ->                  -- _obj : TInterface "WebKit2" "ContextMenuItem"-    IO CUInt---contextMenuItemGetStockAction ::-    (MonadIO m, ContextMenuItemK a) =>-    a                                       -- _obj-    -> m ContextMenuAction                  -- result-contextMenuItemGetStockAction _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_context_menu_item_get_stock_action _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data ContextMenuItemGetStockActionMethodInfo-instance (signature ~ (m ContextMenuAction), MonadIO m, ContextMenuItemK a) => MethodInfo ContextMenuItemGetStockActionMethodInfo a signature where-    overloadedMethod _ = contextMenuItemGetStockAction---- method ContextMenuItem::get_submenu--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "ContextMenu")--- throws : False--- Skip return : False--foreign import ccall "webkit_context_menu_item_get_submenu" webkit_context_menu_item_get_submenu :: -    Ptr ContextMenuItem ->                  -- _obj : TInterface "WebKit2" "ContextMenuItem"-    IO (Ptr ContextMenu)---contextMenuItemGetSubmenu ::-    (MonadIO m, ContextMenuItemK a) =>-    a                                       -- _obj-    -> m ContextMenu                        -- result-contextMenuItemGetSubmenu _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_context_menu_item_get_submenu _obj'-    checkUnexpectedReturnNULL "webkit_context_menu_item_get_submenu" result-    result' <- (newObject ContextMenu) result-    touchManagedPtr _obj-    return result'--data ContextMenuItemGetSubmenuMethodInfo-instance (signature ~ (m ContextMenu), MonadIO m, ContextMenuItemK a) => MethodInfo ContextMenuItemGetSubmenuMethodInfo a signature where-    overloadedMethod _ = contextMenuItemGetSubmenu---- method ContextMenuItem::is_separator--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_context_menu_item_is_separator" webkit_context_menu_item_is_separator :: -    Ptr ContextMenuItem ->                  -- _obj : TInterface "WebKit2" "ContextMenuItem"-    IO CInt---contextMenuItemIsSeparator ::-    (MonadIO m, ContextMenuItemK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-contextMenuItemIsSeparator _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_context_menu_item_is_separator _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data ContextMenuItemIsSeparatorMethodInfo-instance (signature ~ (m Bool), MonadIO m, ContextMenuItemK a) => MethodInfo ContextMenuItemIsSeparatorMethodInfo a signature where-    overloadedMethod _ = contextMenuItemIsSeparator---- method ContextMenuItem::set_submenu--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface "WebKit2" "ContextMenu", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_context_menu_item_set_submenu" webkit_context_menu_item_set_submenu :: -    Ptr ContextMenuItem ->                  -- _obj : TInterface "WebKit2" "ContextMenuItem"-    Ptr ContextMenu ->                      -- submenu : TInterface "WebKit2" "ContextMenu"-    IO ()---contextMenuItemSetSubmenu ::-    (MonadIO m, ContextMenuItemK a, ContextMenuK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- submenu-    -> m ()                                 -- result-contextMenuItemSetSubmenu _obj submenu = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeSubmenu <- case submenu of-        Nothing -> return nullPtr-        Just jSubmenu -> do-            let jSubmenu' = unsafeManagedPtrCastPtr jSubmenu-            return jSubmenu'-    webkit_context_menu_item_set_submenu _obj' maybeSubmenu-    touchManagedPtr _obj-    whenJust submenu touchManagedPtr-    return ()--data ContextMenuItemSetSubmenuMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ContextMenuItemK a, ContextMenuK b) => MethodInfo ContextMenuItemSetSubmenuMethodInfo a signature where-    overloadedMethod _ = contextMenuItemSetSubmenu--
− GI/WebKit2/Objects/ContextMenuItem.hs-boot 
@@ -1,18 +0,0 @@-module GI.WebKit2.Objects.ContextMenuItem where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ContextMenuItem = ContextMenuItem (ForeignPtr ContextMenuItem)-instance GObject ContextMenuItem where-class GObject o => ContextMenuItemK o-instance (GObject o, IsDescendantOf ContextMenuItem o) => ContextMenuItemK o-data ContextMenuItemGetActionMethodInfo-data ContextMenuItemGetStockActionMethodInfo-data ContextMenuItemGetSubmenuMethodInfo-data ContextMenuItemIsSeparatorMethodInfo-data ContextMenuItemSetSubmenuMethodInfo
− GI/WebKit2/Objects/CookieManager.hs 
@@ -1,493 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.WebKit2.Objects.CookieManager-    ( ---- * Exported types-    CookieManager(..)                       ,-    CookieManagerK                          ,-    toCookieManager                         ,-    noCookieManager                         ,--- -- * Methods--- ** cookieManagerDeleteAllCookies-    CookieManagerDeleteAllCookiesMethodInfo ,-    cookieManagerDeleteAllCookies           ,----- ** cookieManagerDeleteCookiesForDomain-    CookieManagerDeleteCookiesForDomainMethodInfo,-    cookieManagerDeleteCookiesForDomain     ,----- ** cookieManagerGetAcceptPolicy-    CookieManagerGetAcceptPolicyMethodInfo  ,-    cookieManagerGetAcceptPolicy            ,----- ** cookieManagerGetAcceptPolicyFinish-    CookieManagerGetAcceptPolicyFinishMethodInfo,-    cookieManagerGetAcceptPolicyFinish      ,----- ** cookieManagerGetDomainsWithCookies-    CookieManagerGetDomainsWithCookiesMethodInfo,-    cookieManagerGetDomainsWithCookies      ,----- ** cookieManagerGetDomainsWithCookiesFinish-    CookieManagerGetDomainsWithCookiesFinishMethodInfo,-    cookieManagerGetDomainsWithCookiesFinish,----- ** cookieManagerSetAcceptPolicy-    CookieManagerSetAcceptPolicyMethodInfo  ,-    cookieManagerSetAcceptPolicy            ,----- ** cookieManagerSetPersistentStorage-    CookieManagerSetPersistentStorageMethodInfo,-    cookieManagerSetPersistentStorage       ,----- -- * Signals--- ** Changed-    CookieManagerChangedCallback            ,-    CookieManagerChangedCallbackC           ,-    CookieManagerChangedSignalInfo          ,-    afterCookieManagerChanged               ,-    cookieManagerChangedCallbackWrapper     ,-    cookieManagerChangedClosure             ,-    mkCookieManagerChangedCallback          ,-    noCookieManagerChangedCallback          ,-    onCookieManagerChanged                  ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject-import qualified GI.Gio as Gio--newtype CookieManager = CookieManager (ForeignPtr CookieManager)-foreign import ccall "webkit_cookie_manager_get_type"-    c_webkit_cookie_manager_get_type :: IO GType--type instance ParentTypes CookieManager = CookieManagerParentTypes-type CookieManagerParentTypes = '[GObject.Object]--instance GObject CookieManager where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_cookie_manager_get_type-    --class GObject o => CookieManagerK o-instance (GObject o, IsDescendantOf CookieManager o) => CookieManagerK o--toCookieManager :: CookieManagerK o => o -> IO CookieManager-toCookieManager = unsafeCastTo CookieManager--noCookieManager :: Maybe CookieManager-noCookieManager = Nothing--type family ResolveCookieManagerMethod (t :: Symbol) (o :: *) :: * where-    ResolveCookieManagerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveCookieManagerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveCookieManagerMethod "deleteAllCookies" o = CookieManagerDeleteAllCookiesMethodInfo-    ResolveCookieManagerMethod "deleteCookiesForDomain" o = CookieManagerDeleteCookiesForDomainMethodInfo-    ResolveCookieManagerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveCookieManagerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveCookieManagerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveCookieManagerMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveCookieManagerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveCookieManagerMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveCookieManagerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveCookieManagerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveCookieManagerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveCookieManagerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveCookieManagerMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveCookieManagerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveCookieManagerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveCookieManagerMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveCookieManagerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveCookieManagerMethod "getAcceptPolicy" o = CookieManagerGetAcceptPolicyMethodInfo-    ResolveCookieManagerMethod "getAcceptPolicyFinish" o = CookieManagerGetAcceptPolicyFinishMethodInfo-    ResolveCookieManagerMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveCookieManagerMethod "getDomainsWithCookies" o = CookieManagerGetDomainsWithCookiesMethodInfo-    ResolveCookieManagerMethod "getDomainsWithCookiesFinish" o = CookieManagerGetDomainsWithCookiesFinishMethodInfo-    ResolveCookieManagerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveCookieManagerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveCookieManagerMethod "setAcceptPolicy" o = CookieManagerSetAcceptPolicyMethodInfo-    ResolveCookieManagerMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveCookieManagerMethod "setPersistentStorage" o = CookieManagerSetPersistentStorageMethodInfo-    ResolveCookieManagerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveCookieManagerMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveCookieManagerMethod t CookieManager, MethodInfo info CookieManager p) => IsLabelProxy t (CookieManager -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveCookieManagerMethod t CookieManager, MethodInfo info CookieManager p) => IsLabel t (CookieManager -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal CookieManager::changed-type CookieManagerChangedCallback =-    IO ()--noCookieManagerChangedCallback :: Maybe CookieManagerChangedCallback-noCookieManagerChangedCallback = Nothing--type CookieManagerChangedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkCookieManagerChangedCallback :: CookieManagerChangedCallbackC -> IO (FunPtr CookieManagerChangedCallbackC)--cookieManagerChangedClosure :: CookieManagerChangedCallback -> IO Closure-cookieManagerChangedClosure cb = newCClosure =<< mkCookieManagerChangedCallback wrapped-    where wrapped = cookieManagerChangedCallbackWrapper cb--cookieManagerChangedCallbackWrapper ::-    CookieManagerChangedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-cookieManagerChangedCallbackWrapper _cb _ _ = do-    _cb --onCookieManagerChanged :: (GObject a, MonadIO m) => a -> CookieManagerChangedCallback -> m SignalHandlerId-onCookieManagerChanged obj cb = liftIO $ connectCookieManagerChanged obj cb SignalConnectBefore-afterCookieManagerChanged :: (GObject a, MonadIO m) => a -> CookieManagerChangedCallback -> m SignalHandlerId-afterCookieManagerChanged obj cb = connectCookieManagerChanged obj cb SignalConnectAfter--connectCookieManagerChanged :: (GObject a, MonadIO m) =>-                               a -> CookieManagerChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectCookieManagerChanged obj cb after = liftIO $ do-    cb' <- mkCookieManagerChangedCallback (cookieManagerChangedCallbackWrapper cb)-    connectSignalFunPtr obj "changed" cb' after--type instance AttributeList CookieManager = CookieManagerAttributeList-type CookieManagerAttributeList = ('[ ] :: [(Symbol, *)])--data CookieManagerChangedSignalInfo-instance SignalInfo CookieManagerChangedSignalInfo where-    type HaskellCallbackType CookieManagerChangedSignalInfo = CookieManagerChangedCallback-    connectSignal _ = connectCookieManagerChanged--type instance SignalList CookieManager = CookieManagerSignalList-type CookieManagerSignalList = ('[ '("changed", CookieManagerChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method CookieManager::delete_all_cookies--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_cookie_manager_delete_all_cookies" webkit_cookie_manager_delete_all_cookies :: -    Ptr CookieManager ->                    -- _obj : TInterface "WebKit2" "CookieManager"-    IO ()---cookieManagerDeleteAllCookies ::-    (MonadIO m, CookieManagerK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-cookieManagerDeleteAllCookies _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_cookie_manager_delete_all_cookies _obj'-    touchManagedPtr _obj-    return ()--data CookieManagerDeleteAllCookiesMethodInfo-instance (signature ~ (m ()), MonadIO m, CookieManagerK a) => MethodInfo CookieManagerDeleteAllCookiesMethodInfo a signature where-    overloadedMethod _ = cookieManagerDeleteAllCookies---- method CookieManager::delete_cookies_for_domain--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_cookie_manager_delete_cookies_for_domain" webkit_cookie_manager_delete_cookies_for_domain :: -    Ptr CookieManager ->                    -- _obj : TInterface "WebKit2" "CookieManager"-    CString ->                              -- domain : TBasicType TUTF8-    IO ()---cookieManagerDeleteCookiesForDomain ::-    (MonadIO m, CookieManagerK a) =>-    a                                       -- _obj-    -> T.Text                               -- domain-    -> m ()                                 -- result-cookieManagerDeleteCookiesForDomain _obj domain = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    domain' <- textToCString domain-    webkit_cookie_manager_delete_cookies_for_domain _obj' domain'-    touchManagedPtr _obj-    freeMem domain'-    return ()--data CookieManagerDeleteCookiesForDomainMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, CookieManagerK a) => MethodInfo CookieManagerDeleteCookiesForDomainMethodInfo a signature where-    overloadedMethod _ = cookieManagerDeleteCookiesForDomain---- method CookieManager::get_accept_policy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_cookie_manager_get_accept_policy" webkit_cookie_manager_get_accept_policy :: -    Ptr CookieManager ->                    -- _obj : TInterface "WebKit2" "CookieManager"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---cookieManagerGetAcceptPolicy ::-    (MonadIO m, CookieManagerK a, Gio.CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> Maybe (Gio.AsyncReadyCallback)       -- callback-    -> m ()                                 -- result-cookieManagerGetAcceptPolicy _obj cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    webkit_cookie_manager_get_accept_policy _obj' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data CookieManagerGetAcceptPolicyMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, CookieManagerK a, Gio.CancellableK b) => MethodInfo CookieManagerGetAcceptPolicyMethodInfo a signature where-    overloadedMethod _ = cookieManagerGetAcceptPolicy---- method CookieManager::get_accept_policy_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "CookieAcceptPolicy")--- throws : True--- Skip return : False--foreign import ccall "webkit_cookie_manager_get_accept_policy_finish" webkit_cookie_manager_get_accept_policy_finish :: -    Ptr CookieManager ->                    -- _obj : TInterface "WebKit2" "CookieManager"-    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CUInt---cookieManagerGetAcceptPolicyFinish ::-    (MonadIO m, CookieManagerK a, Gio.AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m CookieAcceptPolicy                 -- result-cookieManagerGetAcceptPolicyFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ webkit_cookie_manager_get_accept_policy_finish _obj' result_'-        let result' = (toEnum . fromIntegral) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data CookieManagerGetAcceptPolicyFinishMethodInfo-instance (signature ~ (b -> m CookieAcceptPolicy), MonadIO m, CookieManagerK a, Gio.AsyncResultK b) => MethodInfo CookieManagerGetAcceptPolicyFinishMethodInfo a signature where-    overloadedMethod _ = cookieManagerGetAcceptPolicyFinish---- method CookieManager::get_domains_with_cookies--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_cookie_manager_get_domains_with_cookies" webkit_cookie_manager_get_domains_with_cookies :: -    Ptr CookieManager ->                    -- _obj : TInterface "WebKit2" "CookieManager"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---cookieManagerGetDomainsWithCookies ::-    (MonadIO m, CookieManagerK a, Gio.CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> Maybe (Gio.AsyncReadyCallback)       -- callback-    -> m ()                                 -- result-cookieManagerGetDomainsWithCookies _obj cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    webkit_cookie_manager_get_domains_with_cookies _obj' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data CookieManagerGetDomainsWithCookiesMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, CookieManagerK a, Gio.CancellableK b) => MethodInfo CookieManagerGetDomainsWithCookiesMethodInfo a signature where-    overloadedMethod _ = cookieManagerGetDomainsWithCookies---- method CookieManager::get_domains_with_cookies_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : True--- Skip return : False--foreign import ccall "webkit_cookie_manager_get_domains_with_cookies_finish" webkit_cookie_manager_get_domains_with_cookies_finish :: -    Ptr CookieManager ->                    -- _obj : TInterface "WebKit2" "CookieManager"-    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr CString)---cookieManagerGetDomainsWithCookiesFinish ::-    (MonadIO m, CookieManagerK a, Gio.AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m [T.Text]                           -- result-cookieManagerGetDomainsWithCookiesFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ webkit_cookie_manager_get_domains_with_cookies_finish _obj' result_'-        checkUnexpectedReturnNULL "webkit_cookie_manager_get_domains_with_cookies_finish" result-        result' <- unpackZeroTerminatedUTF8CArray result-        mapZeroTerminatedCArray freeMem result-        freeMem result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data CookieManagerGetDomainsWithCookiesFinishMethodInfo-instance (signature ~ (b -> m [T.Text]), MonadIO m, CookieManagerK a, Gio.AsyncResultK b) => MethodInfo CookieManagerGetDomainsWithCookiesFinishMethodInfo a signature where-    overloadedMethod _ = cookieManagerGetDomainsWithCookiesFinish---- method CookieManager::set_accept_policy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "policy", argType = TInterface "WebKit2" "CookieAcceptPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_cookie_manager_set_accept_policy" webkit_cookie_manager_set_accept_policy :: -    Ptr CookieManager ->                    -- _obj : TInterface "WebKit2" "CookieManager"-    CUInt ->                                -- policy : TInterface "WebKit2" "CookieAcceptPolicy"-    IO ()---cookieManagerSetAcceptPolicy ::-    (MonadIO m, CookieManagerK a) =>-    a                                       -- _obj-    -> CookieAcceptPolicy                   -- policy-    -> m ()                                 -- result-cookieManagerSetAcceptPolicy _obj policy = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let policy' = (fromIntegral . fromEnum) policy-    webkit_cookie_manager_set_accept_policy _obj' policy'-    touchManagedPtr _obj-    return ()--data CookieManagerSetAcceptPolicyMethodInfo-instance (signature ~ (CookieAcceptPolicy -> m ()), MonadIO m, CookieManagerK a) => MethodInfo CookieManagerSetAcceptPolicyMethodInfo a signature where-    overloadedMethod _ = cookieManagerSetAcceptPolicy---- method CookieManager::set_persistent_storage--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "CookieManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "storage", argType = TInterface "WebKit2" "CookiePersistentStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_cookie_manager_set_persistent_storage" webkit_cookie_manager_set_persistent_storage :: -    Ptr CookieManager ->                    -- _obj : TInterface "WebKit2" "CookieManager"-    CString ->                              -- filename : TBasicType TUTF8-    CUInt ->                                -- storage : TInterface "WebKit2" "CookiePersistentStorage"-    IO ()---cookieManagerSetPersistentStorage ::-    (MonadIO m, CookieManagerK a) =>-    a                                       -- _obj-    -> T.Text                               -- filename-    -> CookiePersistentStorage              -- storage-    -> m ()                                 -- result-cookieManagerSetPersistentStorage _obj filename storage = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    filename' <- textToCString filename-    let storage' = (fromIntegral . fromEnum) storage-    webkit_cookie_manager_set_persistent_storage _obj' filename' storage'-    touchManagedPtr _obj-    freeMem filename'-    return ()--data CookieManagerSetPersistentStorageMethodInfo-instance (signature ~ (T.Text -> CookiePersistentStorage -> m ()), MonadIO m, CookieManagerK a) => MethodInfo CookieManagerSetPersistentStorageMethodInfo a signature where-    overloadedMethod _ = cookieManagerSetPersistentStorage--
− GI/WebKit2/Objects/CookieManager.hs-boot 
@@ -1,22 +0,0 @@-module GI.WebKit2.Objects.CookieManager where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype CookieManager = CookieManager (ForeignPtr CookieManager)-instance GObject CookieManager where-class GObject o => CookieManagerK o-instance (GObject o, IsDescendantOf CookieManager o) => CookieManagerK o-data CookieManagerChangedSignalInfo-data CookieManagerDeleteAllCookiesMethodInfo-data CookieManagerDeleteCookiesForDomainMethodInfo-data CookieManagerGetAcceptPolicyMethodInfo-data CookieManagerGetAcceptPolicyFinishMethodInfo-data CookieManagerGetDomainsWithCookiesMethodInfo-data CookieManagerGetDomainsWithCookiesFinishMethodInfo-data CookieManagerSetAcceptPolicyMethodInfo-data CookieManagerSetPersistentStorageMethodInfo
− GI/WebKit2/Objects/Download.hs 
@@ -1,898 +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.WebKit2.Objects.Download-    ( ---- * Exported types-    Download(..)                            ,-    DownloadK                               ,-    toDownload                              ,-    noDownload                              ,--- -- * Methods--- ** downloadCancel-    DownloadCancelMethodInfo                ,-    downloadCancel                          ,----- ** downloadGetAllowOverwrite-    DownloadGetAllowOverwriteMethodInfo     ,-    downloadGetAllowOverwrite               ,----- ** downloadGetDestination-    DownloadGetDestinationMethodInfo        ,-    downloadGetDestination                  ,----- ** downloadGetElapsedTime-    DownloadGetElapsedTimeMethodInfo        ,-    downloadGetElapsedTime                  ,----- ** downloadGetEstimatedProgress-    DownloadGetEstimatedProgressMethodInfo  ,-    downloadGetEstimatedProgress            ,----- ** downloadGetReceivedDataLength-    DownloadGetReceivedDataLengthMethodInfo ,-    downloadGetReceivedDataLength           ,----- ** downloadGetRequest-    DownloadGetRequestMethodInfo            ,-    downloadGetRequest                      ,----- ** downloadGetResponse-    DownloadGetResponseMethodInfo           ,-    downloadGetResponse                     ,----- ** downloadGetWebView-    DownloadGetWebViewMethodInfo            ,-    downloadGetWebView                      ,----- ** downloadSetAllowOverwrite-    DownloadSetAllowOverwriteMethodInfo     ,-    downloadSetAllowOverwrite               ,----- ** downloadSetDestination-    DownloadSetDestinationMethodInfo        ,-    downloadSetDestination                  ,----- -- * Properties--- ** AllowOverwrite-    DownloadAllowOverwritePropertyInfo      ,-    constructDownloadAllowOverwrite         ,-    downloadAllowOverwrite                  ,-    getDownloadAllowOverwrite               ,-    setDownloadAllowOverwrite               ,----- ** Destination-    DownloadDestinationPropertyInfo         ,-    downloadDestination                     ,-    getDownloadDestination                  ,----- ** EstimatedProgress-    DownloadEstimatedProgressPropertyInfo   ,-    downloadEstimatedProgress               ,-    getDownloadEstimatedProgress            ,----- ** Response-    DownloadResponsePropertyInfo            ,-    downloadResponse                        ,-    getDownloadResponse                     ,----- -- * Signals--- ** CreatedDestination-    DownloadCreatedDestinationCallback      ,-    DownloadCreatedDestinationCallbackC     ,-    DownloadCreatedDestinationSignalInfo    ,-    afterDownloadCreatedDestination         ,-    downloadCreatedDestinationCallbackWrapper,-    downloadCreatedDestinationClosure       ,-    mkDownloadCreatedDestinationCallback    ,-    noDownloadCreatedDestinationCallback    ,-    onDownloadCreatedDestination            ,----- ** DecideDestination-    DownloadDecideDestinationCallback       ,-    DownloadDecideDestinationCallbackC      ,-    DownloadDecideDestinationSignalInfo     ,-    afterDownloadDecideDestination          ,-    downloadDecideDestinationCallbackWrapper,-    downloadDecideDestinationClosure        ,-    mkDownloadDecideDestinationCallback     ,-    noDownloadDecideDestinationCallback     ,-    onDownloadDecideDestination             ,----- ** Failed-    DownloadFailedCallback                  ,-    DownloadFailedCallbackC                 ,-    DownloadFailedSignalInfo                ,-    afterDownloadFailed                     ,-    downloadFailedCallbackWrapper           ,-    downloadFailedClosure                   ,-    mkDownloadFailedCallback                ,-    noDownloadFailedCallback                ,-    onDownloadFailed                        ,----- ** Finished-    DownloadFinishedCallback                ,-    DownloadFinishedCallbackC               ,-    DownloadFinishedSignalInfo              ,-    afterDownloadFinished                   ,-    downloadFinishedCallbackWrapper         ,-    downloadFinishedClosure                 ,-    mkDownloadFinishedCallback              ,-    noDownloadFinishedCallback              ,-    onDownloadFinished                      ,----- ** ReceivedData-    DownloadReceivedDataCallback            ,-    DownloadReceivedDataCallbackC           ,-    DownloadReceivedDataSignalInfo          ,-    afterDownloadReceivedData               ,-    downloadReceivedDataCallbackWrapper     ,-    downloadReceivedDataClosure             ,-    mkDownloadReceivedDataCallback          ,-    noDownloadReceivedDataCallback          ,-    onDownloadReceivedData                  ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject--newtype Download = Download (ForeignPtr Download)-foreign import ccall "webkit_download_get_type"-    c_webkit_download_get_type :: IO GType--type instance ParentTypes Download = DownloadParentTypes-type DownloadParentTypes = '[GObject.Object]--instance GObject Download where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_download_get_type-    --class GObject o => DownloadK o-instance (GObject o, IsDescendantOf Download o) => DownloadK o--toDownload :: DownloadK o => o -> IO Download-toDownload = unsafeCastTo Download--noDownload :: Maybe Download-noDownload = Nothing--type family ResolveDownloadMethod (t :: Symbol) (o :: *) :: * where-    ResolveDownloadMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveDownloadMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveDownloadMethod "cancel" o = DownloadCancelMethodInfo-    ResolveDownloadMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveDownloadMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveDownloadMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveDownloadMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveDownloadMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveDownloadMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveDownloadMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveDownloadMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveDownloadMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveDownloadMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveDownloadMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveDownloadMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveDownloadMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveDownloadMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveDownloadMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveDownloadMethod "getAllowOverwrite" o = DownloadGetAllowOverwriteMethodInfo-    ResolveDownloadMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveDownloadMethod "getDestination" o = DownloadGetDestinationMethodInfo-    ResolveDownloadMethod "getElapsedTime" o = DownloadGetElapsedTimeMethodInfo-    ResolveDownloadMethod "getEstimatedProgress" o = DownloadGetEstimatedProgressMethodInfo-    ResolveDownloadMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveDownloadMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveDownloadMethod "getReceivedDataLength" o = DownloadGetReceivedDataLengthMethodInfo-    ResolveDownloadMethod "getRequest" o = DownloadGetRequestMethodInfo-    ResolveDownloadMethod "getResponse" o = DownloadGetResponseMethodInfo-    ResolveDownloadMethod "getWebView" o = DownloadGetWebViewMethodInfo-    ResolveDownloadMethod "setAllowOverwrite" o = DownloadSetAllowOverwriteMethodInfo-    ResolveDownloadMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveDownloadMethod "setDestination" o = DownloadSetDestinationMethodInfo-    ResolveDownloadMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveDownloadMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDownloadMethod t Download, MethodInfo info Download p) => IsLabelProxy t (Download -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDownloadMethod t Download, MethodInfo info Download p) => IsLabel t (Download -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal Download::created-destination-type DownloadCreatedDestinationCallback =-    T.Text ->-    IO ()--noDownloadCreatedDestinationCallback :: Maybe DownloadCreatedDestinationCallback-noDownloadCreatedDestinationCallback = Nothing--type DownloadCreatedDestinationCallbackC =-    Ptr () ->                               -- object-    CString ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDownloadCreatedDestinationCallback :: DownloadCreatedDestinationCallbackC -> IO (FunPtr DownloadCreatedDestinationCallbackC)--downloadCreatedDestinationClosure :: DownloadCreatedDestinationCallback -> IO Closure-downloadCreatedDestinationClosure cb = newCClosure =<< mkDownloadCreatedDestinationCallback wrapped-    where wrapped = downloadCreatedDestinationCallbackWrapper cb--downloadCreatedDestinationCallbackWrapper ::-    DownloadCreatedDestinationCallback ->-    Ptr () ->-    CString ->-    Ptr () ->-    IO ()-downloadCreatedDestinationCallbackWrapper _cb _ destination _ = do-    destination' <- cstringToText destination-    _cb  destination'--onDownloadCreatedDestination :: (GObject a, MonadIO m) => a -> DownloadCreatedDestinationCallback -> m SignalHandlerId-onDownloadCreatedDestination obj cb = liftIO $ connectDownloadCreatedDestination obj cb SignalConnectBefore-afterDownloadCreatedDestination :: (GObject a, MonadIO m) => a -> DownloadCreatedDestinationCallback -> m SignalHandlerId-afterDownloadCreatedDestination obj cb = connectDownloadCreatedDestination obj cb SignalConnectAfter--connectDownloadCreatedDestination :: (GObject a, MonadIO m) =>-                                     a -> DownloadCreatedDestinationCallback -> SignalConnectMode -> m SignalHandlerId-connectDownloadCreatedDestination obj cb after = liftIO $ do-    cb' <- mkDownloadCreatedDestinationCallback (downloadCreatedDestinationCallbackWrapper cb)-    connectSignalFunPtr obj "created-destination" cb' after---- signal Download::decide-destination-type DownloadDecideDestinationCallback =-    T.Text ->-    IO Bool--noDownloadDecideDestinationCallback :: Maybe DownloadDecideDestinationCallback-noDownloadDecideDestinationCallback = Nothing--type DownloadDecideDestinationCallbackC =-    Ptr () ->                               -- object-    CString ->-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkDownloadDecideDestinationCallback :: DownloadDecideDestinationCallbackC -> IO (FunPtr DownloadDecideDestinationCallbackC)--downloadDecideDestinationClosure :: DownloadDecideDestinationCallback -> IO Closure-downloadDecideDestinationClosure cb = newCClosure =<< mkDownloadDecideDestinationCallback wrapped-    where wrapped = downloadDecideDestinationCallbackWrapper cb--downloadDecideDestinationCallbackWrapper ::-    DownloadDecideDestinationCallback ->-    Ptr () ->-    CString ->-    Ptr () ->-    IO CInt-downloadDecideDestinationCallbackWrapper _cb _ suggestedFilename _ = do-    suggestedFilename' <- cstringToText suggestedFilename-    result <- _cb  suggestedFilename'-    let result' = (fromIntegral . fromEnum) result-    return result'--onDownloadDecideDestination :: (GObject a, MonadIO m) => a -> DownloadDecideDestinationCallback -> m SignalHandlerId-onDownloadDecideDestination obj cb = liftIO $ connectDownloadDecideDestination obj cb SignalConnectBefore-afterDownloadDecideDestination :: (GObject a, MonadIO m) => a -> DownloadDecideDestinationCallback -> m SignalHandlerId-afterDownloadDecideDestination obj cb = connectDownloadDecideDestination obj cb SignalConnectAfter--connectDownloadDecideDestination :: (GObject a, MonadIO m) =>-                                    a -> DownloadDecideDestinationCallback -> SignalConnectMode -> m SignalHandlerId-connectDownloadDecideDestination obj cb after = liftIO $ do-    cb' <- mkDownloadDecideDestinationCallback (downloadDecideDestinationCallbackWrapper cb)-    connectSignalFunPtr obj "decide-destination" cb' after---- signal Download::failed-type DownloadFailedCallback =-    GError ->-    IO ()--noDownloadFailedCallback :: Maybe DownloadFailedCallback-noDownloadFailedCallback = Nothing--type DownloadFailedCallbackC =-    Ptr () ->                               -- object-    Ptr GError ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDownloadFailedCallback :: DownloadFailedCallbackC -> IO (FunPtr DownloadFailedCallbackC)--downloadFailedClosure :: DownloadFailedCallback -> IO Closure-downloadFailedClosure cb = newCClosure =<< mkDownloadFailedCallback wrapped-    where wrapped = downloadFailedCallbackWrapper cb--downloadFailedCallbackWrapper ::-    DownloadFailedCallback ->-    Ptr () ->-    Ptr GError ->-    Ptr () ->-    IO ()-downloadFailedCallbackWrapper _cb _ error_ _ = do-    error_' <- (newBoxed GError) error_-    _cb  error_'--onDownloadFailed :: (GObject a, MonadIO m) => a -> DownloadFailedCallback -> m SignalHandlerId-onDownloadFailed obj cb = liftIO $ connectDownloadFailed obj cb SignalConnectBefore-afterDownloadFailed :: (GObject a, MonadIO m) => a -> DownloadFailedCallback -> m SignalHandlerId-afterDownloadFailed obj cb = connectDownloadFailed obj cb SignalConnectAfter--connectDownloadFailed :: (GObject a, MonadIO m) =>-                         a -> DownloadFailedCallback -> SignalConnectMode -> m SignalHandlerId-connectDownloadFailed obj cb after = liftIO $ do-    cb' <- mkDownloadFailedCallback (downloadFailedCallbackWrapper cb)-    connectSignalFunPtr obj "failed" cb' after---- signal Download::finished-type DownloadFinishedCallback =-    IO ()--noDownloadFinishedCallback :: Maybe DownloadFinishedCallback-noDownloadFinishedCallback = Nothing--type DownloadFinishedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDownloadFinishedCallback :: DownloadFinishedCallbackC -> IO (FunPtr DownloadFinishedCallbackC)--downloadFinishedClosure :: DownloadFinishedCallback -> IO Closure-downloadFinishedClosure cb = newCClosure =<< mkDownloadFinishedCallback wrapped-    where wrapped = downloadFinishedCallbackWrapper cb--downloadFinishedCallbackWrapper ::-    DownloadFinishedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-downloadFinishedCallbackWrapper _cb _ _ = do-    _cb --onDownloadFinished :: (GObject a, MonadIO m) => a -> DownloadFinishedCallback -> m SignalHandlerId-onDownloadFinished obj cb = liftIO $ connectDownloadFinished obj cb SignalConnectBefore-afterDownloadFinished :: (GObject a, MonadIO m) => a -> DownloadFinishedCallback -> m SignalHandlerId-afterDownloadFinished obj cb = connectDownloadFinished obj cb SignalConnectAfter--connectDownloadFinished :: (GObject a, MonadIO m) =>-                           a -> DownloadFinishedCallback -> SignalConnectMode -> m SignalHandlerId-connectDownloadFinished obj cb after = liftIO $ do-    cb' <- mkDownloadFinishedCallback (downloadFinishedCallbackWrapper cb)-    connectSignalFunPtr obj "finished" cb' after---- signal Download::received-data-type DownloadReceivedDataCallback =-    Word64 ->-    IO ()--noDownloadReceivedDataCallback :: Maybe DownloadReceivedDataCallback-noDownloadReceivedDataCallback = Nothing--type DownloadReceivedDataCallbackC =-    Ptr () ->                               -- object-    Word64 ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDownloadReceivedDataCallback :: DownloadReceivedDataCallbackC -> IO (FunPtr DownloadReceivedDataCallbackC)--downloadReceivedDataClosure :: DownloadReceivedDataCallback -> IO Closure-downloadReceivedDataClosure cb = newCClosure =<< mkDownloadReceivedDataCallback wrapped-    where wrapped = downloadReceivedDataCallbackWrapper cb--downloadReceivedDataCallbackWrapper ::-    DownloadReceivedDataCallback ->-    Ptr () ->-    Word64 ->-    Ptr () ->-    IO ()-downloadReceivedDataCallbackWrapper _cb _ dataLength _ = do-    _cb  dataLength--onDownloadReceivedData :: (GObject a, MonadIO m) => a -> DownloadReceivedDataCallback -> m SignalHandlerId-onDownloadReceivedData obj cb = liftIO $ connectDownloadReceivedData obj cb SignalConnectBefore-afterDownloadReceivedData :: (GObject a, MonadIO m) => a -> DownloadReceivedDataCallback -> m SignalHandlerId-afterDownloadReceivedData obj cb = connectDownloadReceivedData obj cb SignalConnectAfter--connectDownloadReceivedData :: (GObject a, MonadIO m) =>-                               a -> DownloadReceivedDataCallback -> SignalConnectMode -> m SignalHandlerId-connectDownloadReceivedData obj cb after = liftIO $ do-    cb' <- mkDownloadReceivedDataCallback (downloadReceivedDataCallbackWrapper cb)-    connectSignalFunPtr obj "received-data" cb' after---- VVV Prop "allow-overwrite"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getDownloadAllowOverwrite :: (MonadIO m, DownloadK o) => o -> m Bool-getDownloadAllowOverwrite obj = liftIO $ getObjectPropertyBool obj "allow-overwrite"--setDownloadAllowOverwrite :: (MonadIO m, DownloadK o) => o -> Bool -> m ()-setDownloadAllowOverwrite obj val = liftIO $ setObjectPropertyBool obj "allow-overwrite" val--constructDownloadAllowOverwrite :: Bool -> IO ([Char], GValue)-constructDownloadAllowOverwrite val = constructObjectPropertyBool "allow-overwrite" val--data DownloadAllowOverwritePropertyInfo-instance AttrInfo DownloadAllowOverwritePropertyInfo where-    type AttrAllowedOps DownloadAllowOverwritePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DownloadAllowOverwritePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint DownloadAllowOverwritePropertyInfo = DownloadK-    type AttrGetType DownloadAllowOverwritePropertyInfo = Bool-    type AttrLabel DownloadAllowOverwritePropertyInfo = "allow-overwrite"-    attrGet _ = getDownloadAllowOverwrite-    attrSet _ = setDownloadAllowOverwrite-    attrConstruct _ = constructDownloadAllowOverwrite-    attrClear _ = undefined---- VVV Prop "destination"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Just False)--getDownloadDestination :: (MonadIO m, DownloadK o) => o -> m T.Text-getDownloadDestination obj = liftIO $ checkUnexpectedNothing "getDownloadDestination" $ getObjectPropertyString obj "destination"--data DownloadDestinationPropertyInfo-instance AttrInfo DownloadDestinationPropertyInfo where-    type AttrAllowedOps DownloadDestinationPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint DownloadDestinationPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DownloadDestinationPropertyInfo = DownloadK-    type AttrGetType DownloadDestinationPropertyInfo = T.Text-    type AttrLabel DownloadDestinationPropertyInfo = "destination"-    attrGet _ = getDownloadDestination-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "estimated-progress"-   -- Type: TBasicType TDouble-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getDownloadEstimatedProgress :: (MonadIO m, DownloadK o) => o -> m Double-getDownloadEstimatedProgress obj = liftIO $ getObjectPropertyDouble obj "estimated-progress"--data DownloadEstimatedProgressPropertyInfo-instance AttrInfo DownloadEstimatedProgressPropertyInfo where-    type AttrAllowedOps DownloadEstimatedProgressPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint DownloadEstimatedProgressPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DownloadEstimatedProgressPropertyInfo = DownloadK-    type AttrGetType DownloadEstimatedProgressPropertyInfo = Double-    type AttrLabel DownloadEstimatedProgressPropertyInfo = "estimated-progress"-    attrGet _ = getDownloadEstimatedProgress-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "response"-   -- Type: TInterface "WebKit2" "URIResponse"-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getDownloadResponse :: (MonadIO m, DownloadK o) => o -> m URIResponse-getDownloadResponse obj = liftIO $ checkUnexpectedNothing "getDownloadResponse" $ getObjectPropertyObject obj "response" URIResponse--data DownloadResponsePropertyInfo-instance AttrInfo DownloadResponsePropertyInfo where-    type AttrAllowedOps DownloadResponsePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DownloadResponsePropertyInfo = (~) ()-    type AttrBaseTypeConstraint DownloadResponsePropertyInfo = DownloadK-    type AttrGetType DownloadResponsePropertyInfo = URIResponse-    type AttrLabel DownloadResponsePropertyInfo = "response"-    attrGet _ = getDownloadResponse-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined--type instance AttributeList Download = DownloadAttributeList-type DownloadAttributeList = ('[ '("allowOverwrite", DownloadAllowOverwritePropertyInfo), '("destination", DownloadDestinationPropertyInfo), '("estimatedProgress", DownloadEstimatedProgressPropertyInfo), '("response", DownloadResponsePropertyInfo)] :: [(Symbol, *)])--downloadAllowOverwrite :: AttrLabelProxy "allowOverwrite"-downloadAllowOverwrite = AttrLabelProxy--downloadDestination :: AttrLabelProxy "destination"-downloadDestination = AttrLabelProxy--downloadEstimatedProgress :: AttrLabelProxy "estimatedProgress"-downloadEstimatedProgress = AttrLabelProxy--downloadResponse :: AttrLabelProxy "response"-downloadResponse = AttrLabelProxy--data DownloadCreatedDestinationSignalInfo-instance SignalInfo DownloadCreatedDestinationSignalInfo where-    type HaskellCallbackType DownloadCreatedDestinationSignalInfo = DownloadCreatedDestinationCallback-    connectSignal _ = connectDownloadCreatedDestination--data DownloadDecideDestinationSignalInfo-instance SignalInfo DownloadDecideDestinationSignalInfo where-    type HaskellCallbackType DownloadDecideDestinationSignalInfo = DownloadDecideDestinationCallback-    connectSignal _ = connectDownloadDecideDestination--data DownloadFailedSignalInfo-instance SignalInfo DownloadFailedSignalInfo where-    type HaskellCallbackType DownloadFailedSignalInfo = DownloadFailedCallback-    connectSignal _ = connectDownloadFailed--data DownloadFinishedSignalInfo-instance SignalInfo DownloadFinishedSignalInfo where-    type HaskellCallbackType DownloadFinishedSignalInfo = DownloadFinishedCallback-    connectSignal _ = connectDownloadFinished--data DownloadReceivedDataSignalInfo-instance SignalInfo DownloadReceivedDataSignalInfo where-    type HaskellCallbackType DownloadReceivedDataSignalInfo = DownloadReceivedDataCallback-    connectSignal _ = connectDownloadReceivedData--type instance SignalList Download = DownloadSignalList-type DownloadSignalList = ('[ '("createdDestination", DownloadCreatedDestinationSignalInfo), '("decideDestination", DownloadDecideDestinationSignalInfo), '("failed", DownloadFailedSignalInfo), '("finished", DownloadFinishedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("receivedData", DownloadReceivedDataSignalInfo)] :: [(Symbol, *)])---- method Download::cancel--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_download_cancel" webkit_download_cancel :: -    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"-    IO ()---downloadCancel ::-    (MonadIO m, DownloadK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-downloadCancel _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_download_cancel _obj'-    touchManagedPtr _obj-    return ()--data DownloadCancelMethodInfo-instance (signature ~ (m ()), MonadIO m, DownloadK a) => MethodInfo DownloadCancelMethodInfo a signature where-    overloadedMethod _ = downloadCancel---- method Download::get_allow_overwrite--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_download_get_allow_overwrite" webkit_download_get_allow_overwrite :: -    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"-    IO CInt---downloadGetAllowOverwrite ::-    (MonadIO m, DownloadK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-downloadGetAllowOverwrite _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_download_get_allow_overwrite _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DownloadGetAllowOverwriteMethodInfo-instance (signature ~ (m Bool), MonadIO m, DownloadK a) => MethodInfo DownloadGetAllowOverwriteMethodInfo a signature where-    overloadedMethod _ = downloadGetAllowOverwrite---- method Download::get_destination--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_download_get_destination" webkit_download_get_destination :: -    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"-    IO CString---downloadGetDestination ::-    (MonadIO m, DownloadK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-downloadGetDestination _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_download_get_destination _obj'-    checkUnexpectedReturnNULL "webkit_download_get_destination" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DownloadGetDestinationMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DownloadK a) => MethodInfo DownloadGetDestinationMethodInfo a signature where-    overloadedMethod _ = downloadGetDestination---- method Download::get_elapsed_time--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TDouble)--- throws : False--- Skip return : False--foreign import ccall "webkit_download_get_elapsed_time" webkit_download_get_elapsed_time :: -    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"-    IO CDouble---downloadGetElapsedTime ::-    (MonadIO m, DownloadK a) =>-    a                                       -- _obj-    -> m Double                             -- result-downloadGetElapsedTime _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_download_get_elapsed_time _obj'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'--data DownloadGetElapsedTimeMethodInfo-instance (signature ~ (m Double), MonadIO m, DownloadK a) => MethodInfo DownloadGetElapsedTimeMethodInfo a signature where-    overloadedMethod _ = downloadGetElapsedTime---- method Download::get_estimated_progress--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TDouble)--- throws : False--- Skip return : False--foreign import ccall "webkit_download_get_estimated_progress" webkit_download_get_estimated_progress :: -    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"-    IO CDouble---downloadGetEstimatedProgress ::-    (MonadIO m, DownloadK a) =>-    a                                       -- _obj-    -> m Double                             -- result-downloadGetEstimatedProgress _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_download_get_estimated_progress _obj'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'--data DownloadGetEstimatedProgressMethodInfo-instance (signature ~ (m Double), MonadIO m, DownloadK a) => MethodInfo DownloadGetEstimatedProgressMethodInfo a signature where-    overloadedMethod _ = downloadGetEstimatedProgress---- method Download::get_received_data_length--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt64)--- throws : False--- Skip return : False--foreign import ccall "webkit_download_get_received_data_length" webkit_download_get_received_data_length :: -    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"-    IO Word64---downloadGetReceivedDataLength ::-    (MonadIO m, DownloadK a) =>-    a                                       -- _obj-    -> m Word64                             -- result-downloadGetReceivedDataLength _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_download_get_received_data_length _obj'-    touchManagedPtr _obj-    return result--data DownloadGetReceivedDataLengthMethodInfo-instance (signature ~ (m Word64), MonadIO m, DownloadK a) => MethodInfo DownloadGetReceivedDataLengthMethodInfo a signature where-    overloadedMethod _ = downloadGetReceivedDataLength---- method Download::get_request--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "URIRequest")--- throws : False--- Skip return : False--foreign import ccall "webkit_download_get_request" webkit_download_get_request :: -    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"-    IO (Ptr URIRequest)---downloadGetRequest ::-    (MonadIO m, DownloadK a) =>-    a                                       -- _obj-    -> m URIRequest                         -- result-downloadGetRequest _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_download_get_request _obj'-    checkUnexpectedReturnNULL "webkit_download_get_request" result-    result' <- (newObject URIRequest) result-    touchManagedPtr _obj-    return result'--data DownloadGetRequestMethodInfo-instance (signature ~ (m URIRequest), MonadIO m, DownloadK a) => MethodInfo DownloadGetRequestMethodInfo a signature where-    overloadedMethod _ = downloadGetRequest---- method Download::get_response--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "URIResponse")--- throws : False--- Skip return : False--foreign import ccall "webkit_download_get_response" webkit_download_get_response :: -    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"-    IO (Ptr URIResponse)---downloadGetResponse ::-    (MonadIO m, DownloadK a) =>-    a                                       -- _obj-    -> m URIResponse                        -- result-downloadGetResponse _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_download_get_response _obj'-    checkUnexpectedReturnNULL "webkit_download_get_response" result-    result' <- (newObject URIResponse) result-    touchManagedPtr _obj-    return result'--data DownloadGetResponseMethodInfo-instance (signature ~ (m URIResponse), MonadIO m, DownloadK a) => MethodInfo DownloadGetResponseMethodInfo a signature where-    overloadedMethod _ = downloadGetResponse---- method Download::get_web_view--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "WebView")--- throws : False--- Skip return : False--foreign import ccall "webkit_download_get_web_view" webkit_download_get_web_view :: -    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"-    IO (Ptr WebView)---downloadGetWebView ::-    (MonadIO m, DownloadK a) =>-    a                                       -- _obj-    -> m WebView                            -- result-downloadGetWebView _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_download_get_web_view _obj'-    checkUnexpectedReturnNULL "webkit_download_get_web_view" result-    result' <- (newObject WebView) result-    touchManagedPtr _obj-    return result'--data DownloadGetWebViewMethodInfo-instance (signature ~ (m WebView), MonadIO m, DownloadK a) => MethodInfo DownloadGetWebViewMethodInfo a signature where-    overloadedMethod _ = downloadGetWebView---- method Download::set_allow_overwrite--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_download_set_allow_overwrite" webkit_download_set_allow_overwrite :: -    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"-    CInt ->                                 -- allowed : TBasicType TBoolean-    IO ()---downloadSetAllowOverwrite ::-    (MonadIO m, DownloadK a) =>-    a                                       -- _obj-    -> Bool                                 -- allowed-    -> m ()                                 -- result-downloadSetAllowOverwrite _obj allowed = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let allowed' = (fromIntegral . fromEnum) allowed-    webkit_download_set_allow_overwrite _obj' allowed'-    touchManagedPtr _obj-    return ()--data DownloadSetAllowOverwriteMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, DownloadK a) => MethodInfo DownloadSetAllowOverwriteMethodInfo a signature where-    overloadedMethod _ = downloadSetAllowOverwrite---- method Download::set_destination--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_download_set_destination" webkit_download_set_destination :: -    Ptr Download ->                         -- _obj : TInterface "WebKit2" "Download"-    CString ->                              -- uri : TBasicType TUTF8-    IO ()---downloadSetDestination ::-    (MonadIO m, DownloadK a) =>-    a                                       -- _obj-    -> T.Text                               -- uri-    -> m ()                                 -- result-downloadSetDestination _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    uri' <- textToCString uri-    webkit_download_set_destination _obj' uri'-    touchManagedPtr _obj-    freeMem uri'-    return ()--data DownloadSetDestinationMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, DownloadK a) => MethodInfo DownloadSetDestinationMethodInfo a signature where-    overloadedMethod _ = downloadSetDestination--
− GI/WebKit2/Objects/Download.hs-boot 
@@ -1,33 +0,0 @@-module GI.WebKit2.Objects.Download where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Download = Download (ForeignPtr Download)-instance GObject Download where-class GObject o => DownloadK o-instance (GObject o, IsDescendantOf Download o) => DownloadK o-data DownloadAllowOverwritePropertyInfo-data DownloadDestinationPropertyInfo-data DownloadEstimatedProgressPropertyInfo-data DownloadResponsePropertyInfo-data DownloadCreatedDestinationSignalInfo-data DownloadDecideDestinationSignalInfo-data DownloadFailedSignalInfo-data DownloadFinishedSignalInfo-data DownloadReceivedDataSignalInfo-data DownloadCancelMethodInfo-data DownloadGetAllowOverwriteMethodInfo-data DownloadGetDestinationMethodInfo-data DownloadGetElapsedTimeMethodInfo-data DownloadGetEstimatedProgressMethodInfo-data DownloadGetReceivedDataLengthMethodInfo-data DownloadGetRequestMethodInfo-data DownloadGetResponseMethodInfo-data DownloadGetWebViewMethodInfo-data DownloadSetAllowOverwriteMethodInfo-data DownloadSetDestinationMethodInfo
− GI/WebKit2/Objects/EditorState.hs 
@@ -1,160 +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.WebKit2.Objects.EditorState-    ( ---- * Exported types-    EditorState(..)                         ,-    EditorStateK                            ,-    toEditorState                           ,-    noEditorState                           ,--- -- * Methods--- ** editorStateGetTypingAttributes-    EditorStateGetTypingAttributesMethodInfo,-    editorStateGetTypingAttributes          ,----- -- * Properties--- ** TypingAttributes-    EditorStateTypingAttributesPropertyInfo ,-    editorStateTypingAttributes             ,-    getEditorStateTypingAttributes          ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject--newtype EditorState = EditorState (ForeignPtr EditorState)-foreign import ccall "webkit_editor_state_get_type"-    c_webkit_editor_state_get_type :: IO GType--type instance ParentTypes EditorState = EditorStateParentTypes-type EditorStateParentTypes = '[GObject.Object]--instance GObject EditorState where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_editor_state_get_type-    --class GObject o => EditorStateK o-instance (GObject o, IsDescendantOf EditorState o) => EditorStateK o--toEditorState :: EditorStateK o => o -> IO EditorState-toEditorState = unsafeCastTo EditorState--noEditorState :: Maybe EditorState-noEditorState = Nothing--type family ResolveEditorStateMethod (t :: Symbol) (o :: *) :: * where-    ResolveEditorStateMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveEditorStateMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveEditorStateMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveEditorStateMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveEditorStateMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveEditorStateMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveEditorStateMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveEditorStateMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveEditorStateMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveEditorStateMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveEditorStateMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveEditorStateMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveEditorStateMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveEditorStateMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveEditorStateMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveEditorStateMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveEditorStateMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveEditorStateMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveEditorStateMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveEditorStateMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveEditorStateMethod "getTypingAttributes" o = EditorStateGetTypingAttributesMethodInfo-    ResolveEditorStateMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveEditorStateMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveEditorStateMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveEditorStateMethod t EditorState, MethodInfo info EditorState p) => IsLabelProxy t (EditorState -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveEditorStateMethod t EditorState, MethodInfo info EditorState p) => IsLabel t (EditorState -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "typing-attributes"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getEditorStateTypingAttributes :: (MonadIO m, EditorStateK o) => o -> m Word32-getEditorStateTypingAttributes obj = liftIO $ getObjectPropertyUInt32 obj "typing-attributes"--data EditorStateTypingAttributesPropertyInfo-instance AttrInfo EditorStateTypingAttributesPropertyInfo where-    type AttrAllowedOps EditorStateTypingAttributesPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint EditorStateTypingAttributesPropertyInfo = (~) ()-    type AttrBaseTypeConstraint EditorStateTypingAttributesPropertyInfo = EditorStateK-    type AttrGetType EditorStateTypingAttributesPropertyInfo = Word32-    type AttrLabel EditorStateTypingAttributesPropertyInfo = "typing-attributes"-    attrGet _ = getEditorStateTypingAttributes-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined--type instance AttributeList EditorState = EditorStateAttributeList-type EditorStateAttributeList = ('[ '("typingAttributes", EditorStateTypingAttributesPropertyInfo)] :: [(Symbol, *)])--editorStateTypingAttributes :: AttrLabelProxy "typingAttributes"-editorStateTypingAttributes = AttrLabelProxy--type instance SignalList EditorState = EditorStateSignalList-type EditorStateSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method EditorState::get_typing_attributes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "EditorState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "webkit_editor_state_get_typing_attributes" webkit_editor_state_get_typing_attributes :: -    Ptr EditorState ->                      -- _obj : TInterface "WebKit2" "EditorState"-    IO Word32---editorStateGetTypingAttributes ::-    (MonadIO m, EditorStateK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-editorStateGetTypingAttributes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_editor_state_get_typing_attributes _obj'-    touchManagedPtr _obj-    return result--data EditorStateGetTypingAttributesMethodInfo-instance (signature ~ (m Word32), MonadIO m, EditorStateK a) => MethodInfo EditorStateGetTypingAttributesMethodInfo a signature where-    overloadedMethod _ = editorStateGetTypingAttributes--
− GI/WebKit2/Objects/EditorState.hs-boot 
@@ -1,15 +0,0 @@-module GI.WebKit2.Objects.EditorState where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EditorState = EditorState (ForeignPtr EditorState)-instance GObject EditorState where-class GObject o => EditorStateK o-instance (GObject o, IsDescendantOf EditorState o) => EditorStateK o-data EditorStateTypingAttributesPropertyInfo-data EditorStateGetTypingAttributesMethodInfo
− GI/WebKit2/Objects/FaviconDatabase.hs 
@@ -1,336 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.WebKit2.Objects.FaviconDatabase-    ( ---- * Exported types-    FaviconDatabase(..)                     ,-    FaviconDatabaseK                        ,-    toFaviconDatabase                       ,-    noFaviconDatabase                       ,--- -- * Methods--- ** faviconDatabaseClear-    FaviconDatabaseClearMethodInfo          ,-    faviconDatabaseClear                    ,----- ** faviconDatabaseGetFavicon-    FaviconDatabaseGetFaviconMethodInfo     ,-    faviconDatabaseGetFavicon               ,----- ** faviconDatabaseGetFaviconFinish-    FaviconDatabaseGetFaviconFinishMethodInfo,-    faviconDatabaseGetFaviconFinish         ,----- ** faviconDatabaseGetFaviconUri-    FaviconDatabaseGetFaviconUriMethodInfo  ,-    faviconDatabaseGetFaviconUri            ,----- -- * Signals--- ** FaviconChanged-    FaviconDatabaseFaviconChangedCallback   ,-    FaviconDatabaseFaviconChangedCallbackC  ,-    FaviconDatabaseFaviconChangedSignalInfo ,-    afterFaviconDatabaseFaviconChanged      ,-    faviconDatabaseFaviconChangedCallbackWrapper,-    faviconDatabaseFaviconChangedClosure    ,-    mkFaviconDatabaseFaviconChangedCallback ,-    noFaviconDatabaseFaviconChangedCallback ,-    onFaviconDatabaseFaviconChanged         ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject-import qualified GI.Gio as Gio-import qualified GI.Cairo as Cairo--newtype FaviconDatabase = FaviconDatabase (ForeignPtr FaviconDatabase)-foreign import ccall "webkit_favicon_database_get_type"-    c_webkit_favicon_database_get_type :: IO GType--type instance ParentTypes FaviconDatabase = FaviconDatabaseParentTypes-type FaviconDatabaseParentTypes = '[GObject.Object]--instance GObject FaviconDatabase where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_favicon_database_get_type-    --class GObject o => FaviconDatabaseK o-instance (GObject o, IsDescendantOf FaviconDatabase o) => FaviconDatabaseK o--toFaviconDatabase :: FaviconDatabaseK o => o -> IO FaviconDatabase-toFaviconDatabase = unsafeCastTo FaviconDatabase--noFaviconDatabase :: Maybe FaviconDatabase-noFaviconDatabase = Nothing--type family ResolveFaviconDatabaseMethod (t :: Symbol) (o :: *) :: * where-    ResolveFaviconDatabaseMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveFaviconDatabaseMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveFaviconDatabaseMethod "clear" o = FaviconDatabaseClearMethodInfo-    ResolveFaviconDatabaseMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveFaviconDatabaseMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveFaviconDatabaseMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveFaviconDatabaseMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveFaviconDatabaseMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveFaviconDatabaseMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveFaviconDatabaseMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveFaviconDatabaseMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveFaviconDatabaseMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveFaviconDatabaseMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveFaviconDatabaseMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveFaviconDatabaseMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveFaviconDatabaseMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveFaviconDatabaseMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveFaviconDatabaseMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveFaviconDatabaseMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveFaviconDatabaseMethod "getFavicon" o = FaviconDatabaseGetFaviconMethodInfo-    ResolveFaviconDatabaseMethod "getFaviconFinish" o = FaviconDatabaseGetFaviconFinishMethodInfo-    ResolveFaviconDatabaseMethod "getFaviconUri" o = FaviconDatabaseGetFaviconUriMethodInfo-    ResolveFaviconDatabaseMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveFaviconDatabaseMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveFaviconDatabaseMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveFaviconDatabaseMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveFaviconDatabaseMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveFaviconDatabaseMethod t FaviconDatabase, MethodInfo info FaviconDatabase p) => IsLabelProxy t (FaviconDatabase -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveFaviconDatabaseMethod t FaviconDatabase, MethodInfo info FaviconDatabase p) => IsLabel t (FaviconDatabase -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal FaviconDatabase::favicon-changed-type FaviconDatabaseFaviconChangedCallback =-    T.Text ->-    T.Text ->-    IO ()--noFaviconDatabaseFaviconChangedCallback :: Maybe FaviconDatabaseFaviconChangedCallback-noFaviconDatabaseFaviconChangedCallback = Nothing--type FaviconDatabaseFaviconChangedCallbackC =-    Ptr () ->                               -- object-    CString ->-    CString ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkFaviconDatabaseFaviconChangedCallback :: FaviconDatabaseFaviconChangedCallbackC -> IO (FunPtr FaviconDatabaseFaviconChangedCallbackC)--faviconDatabaseFaviconChangedClosure :: FaviconDatabaseFaviconChangedCallback -> IO Closure-faviconDatabaseFaviconChangedClosure cb = newCClosure =<< mkFaviconDatabaseFaviconChangedCallback wrapped-    where wrapped = faviconDatabaseFaviconChangedCallbackWrapper cb--faviconDatabaseFaviconChangedCallbackWrapper ::-    FaviconDatabaseFaviconChangedCallback ->-    Ptr () ->-    CString ->-    CString ->-    Ptr () ->-    IO ()-faviconDatabaseFaviconChangedCallbackWrapper _cb _ pageUri faviconUri _ = do-    pageUri' <- cstringToText pageUri-    faviconUri' <- cstringToText faviconUri-    _cb  pageUri' faviconUri'--onFaviconDatabaseFaviconChanged :: (GObject a, MonadIO m) => a -> FaviconDatabaseFaviconChangedCallback -> m SignalHandlerId-onFaviconDatabaseFaviconChanged obj cb = liftIO $ connectFaviconDatabaseFaviconChanged obj cb SignalConnectBefore-afterFaviconDatabaseFaviconChanged :: (GObject a, MonadIO m) => a -> FaviconDatabaseFaviconChangedCallback -> m SignalHandlerId-afterFaviconDatabaseFaviconChanged obj cb = connectFaviconDatabaseFaviconChanged obj cb SignalConnectAfter--connectFaviconDatabaseFaviconChanged :: (GObject a, MonadIO m) =>-                                        a -> FaviconDatabaseFaviconChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectFaviconDatabaseFaviconChanged obj cb after = liftIO $ do-    cb' <- mkFaviconDatabaseFaviconChangedCallback (faviconDatabaseFaviconChangedCallbackWrapper cb)-    connectSignalFunPtr obj "favicon-changed" cb' after--type instance AttributeList FaviconDatabase = FaviconDatabaseAttributeList-type FaviconDatabaseAttributeList = ('[ ] :: [(Symbol, *)])--data FaviconDatabaseFaviconChangedSignalInfo-instance SignalInfo FaviconDatabaseFaviconChangedSignalInfo where-    type HaskellCallbackType FaviconDatabaseFaviconChangedSignalInfo = FaviconDatabaseFaviconChangedCallback-    connectSignal _ = connectFaviconDatabaseFaviconChanged--type instance SignalList FaviconDatabase = FaviconDatabaseSignalList-type FaviconDatabaseSignalList = ('[ '("faviconChanged", FaviconDatabaseFaviconChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method FaviconDatabase::clear--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_favicon_database_clear" webkit_favicon_database_clear :: -    Ptr FaviconDatabase ->                  -- _obj : TInterface "WebKit2" "FaviconDatabase"-    IO ()---faviconDatabaseClear ::-    (MonadIO m, FaviconDatabaseK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-faviconDatabaseClear _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_favicon_database_clear _obj'-    touchManagedPtr _obj-    return ()--data FaviconDatabaseClearMethodInfo-instance (signature ~ (m ()), MonadIO m, FaviconDatabaseK a) => MethodInfo FaviconDatabaseClearMethodInfo a signature where-    overloadedMethod _ = faviconDatabaseClear---- method FaviconDatabase::get_favicon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_favicon_database_get_favicon" webkit_favicon_database_get_favicon :: -    Ptr FaviconDatabase ->                  -- _obj : TInterface "WebKit2" "FaviconDatabase"-    CString ->                              -- page_uri : TBasicType TUTF8-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---faviconDatabaseGetFavicon ::-    (MonadIO m, FaviconDatabaseK a, Gio.CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- pageUri-    -> Maybe (b)                            -- cancellable-    -> Maybe (Gio.AsyncReadyCallback)       -- callback-    -> m ()                                 -- result-faviconDatabaseGetFavicon _obj pageUri cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    pageUri' <- textToCString pageUri-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    webkit_favicon_database_get_favicon _obj' pageUri' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem pageUri'-    return ()--data FaviconDatabaseGetFaviconMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, FaviconDatabaseK a, Gio.CancellableK b) => MethodInfo FaviconDatabaseGetFaviconMethodInfo a signature where-    overloadedMethod _ = faviconDatabaseGetFavicon---- method FaviconDatabase::get_favicon_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "cairo" "Surface")--- throws : True--- Skip return : False--foreign import ccall "webkit_favicon_database_get_favicon_finish" webkit_favicon_database_get_favicon_finish :: -    Ptr FaviconDatabase ->                  -- _obj : TInterface "WebKit2" "FaviconDatabase"-    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Cairo.Surface)---faviconDatabaseGetFaviconFinish ::-    (MonadIO m, FaviconDatabaseK a, Gio.AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m Cairo.Surface                      -- result-faviconDatabaseGetFaviconFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ webkit_favicon_database_get_favicon_finish _obj' result_'-        checkUnexpectedReturnNULL "webkit_favicon_database_get_favicon_finish" result-        result' <- (wrapBoxed Cairo.Surface) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data FaviconDatabaseGetFaviconFinishMethodInfo-instance (signature ~ (b -> m Cairo.Surface), MonadIO m, FaviconDatabaseK a, Gio.AsyncResultK b) => MethodInfo FaviconDatabaseGetFaviconFinishMethodInfo a signature where-    overloadedMethod _ = faviconDatabaseGetFaviconFinish---- method FaviconDatabase::get_favicon_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_favicon_database_get_favicon_uri" webkit_favicon_database_get_favicon_uri :: -    Ptr FaviconDatabase ->                  -- _obj : TInterface "WebKit2" "FaviconDatabase"-    CString ->                              -- page_uri : TBasicType TUTF8-    IO CString---faviconDatabaseGetFaviconUri ::-    (MonadIO m, FaviconDatabaseK a) =>-    a                                       -- _obj-    -> T.Text                               -- pageUri-    -> m T.Text                             -- result-faviconDatabaseGetFaviconUri _obj pageUri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    pageUri' <- textToCString pageUri-    result <- webkit_favicon_database_get_favicon_uri _obj' pageUri'-    checkUnexpectedReturnNULL "webkit_favicon_database_get_favicon_uri" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    freeMem pageUri'-    return result'--data FaviconDatabaseGetFaviconUriMethodInfo-instance (signature ~ (T.Text -> m T.Text), MonadIO m, FaviconDatabaseK a) => MethodInfo FaviconDatabaseGetFaviconUriMethodInfo a signature where-    overloadedMethod _ = faviconDatabaseGetFaviconUri--
− GI/WebKit2/Objects/FaviconDatabase.hs-boot 
@@ -1,18 +0,0 @@-module GI.WebKit2.Objects.FaviconDatabase where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FaviconDatabase = FaviconDatabase (ForeignPtr FaviconDatabase)-instance GObject FaviconDatabase where-class GObject o => FaviconDatabaseK o-instance (GObject o, IsDescendantOf FaviconDatabase o) => FaviconDatabaseK o-data FaviconDatabaseFaviconChangedSignalInfo-data FaviconDatabaseClearMethodInfo-data FaviconDatabaseGetFaviconMethodInfo-data FaviconDatabaseGetFaviconFinishMethodInfo-data FaviconDatabaseGetFaviconUriMethodInfo
− GI/WebKit2/Objects/FileChooserRequest.hs 
@@ -1,425 +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.WebKit2.Objects.FileChooserRequest-    ( ---- * Exported types-    FileChooserRequest(..)                  ,-    FileChooserRequestK                     ,-    toFileChooserRequest                    ,-    noFileChooserRequest                    ,--- -- * Methods--- ** fileChooserRequestCancel-    FileChooserRequestCancelMethodInfo      ,-    fileChooserRequestCancel                ,----- ** fileChooserRequestGetMimeTypes-    FileChooserRequestGetMimeTypesMethodInfo,-    fileChooserRequestGetMimeTypes          ,----- ** fileChooserRequestGetMimeTypesFilter-    FileChooserRequestGetMimeTypesFilterMethodInfo,-    fileChooserRequestGetMimeTypesFilter    ,----- ** fileChooserRequestGetSelectMultiple-    FileChooserRequestGetSelectMultipleMethodInfo,-    fileChooserRequestGetSelectMultiple     ,----- ** fileChooserRequestGetSelectedFiles-    FileChooserRequestGetSelectedFilesMethodInfo,-    fileChooserRequestGetSelectedFiles      ,----- ** fileChooserRequestSelectFiles-    FileChooserRequestSelectFilesMethodInfo ,-    fileChooserRequestSelectFiles           ,----- -- * Properties--- ** Filter-    FileChooserRequestFilterPropertyInfo    ,-    fileChooserRequestFilter                ,-    getFileChooserRequestFilter             ,----- ** MimeTypes-    FileChooserRequestMimeTypesPropertyInfo ,-    fileChooserRequestMimeTypes             ,-    getFileChooserRequestMimeTypes          ,----- ** SelectMultiple-    FileChooserRequestSelectMultiplePropertyInfo,-    fileChooserRequestSelectMultiple        ,-    getFileChooserRequestSelectMultiple     ,----- ** SelectedFiles-    FileChooserRequestSelectedFilesPropertyInfo,-    fileChooserRequestSelectedFiles         ,-    getFileChooserRequestSelectedFiles      ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject-import qualified GI.Gtk as Gtk--newtype FileChooserRequest = FileChooserRequest (ForeignPtr FileChooserRequest)-foreign import ccall "webkit_file_chooser_request_get_type"-    c_webkit_file_chooser_request_get_type :: IO GType--type instance ParentTypes FileChooserRequest = FileChooserRequestParentTypes-type FileChooserRequestParentTypes = '[GObject.Object]--instance GObject FileChooserRequest where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_file_chooser_request_get_type-    --class GObject o => FileChooserRequestK o-instance (GObject o, IsDescendantOf FileChooserRequest o) => FileChooserRequestK o--toFileChooserRequest :: FileChooserRequestK o => o -> IO FileChooserRequest-toFileChooserRequest = unsafeCastTo FileChooserRequest--noFileChooserRequest :: Maybe FileChooserRequest-noFileChooserRequest = Nothing--type family ResolveFileChooserRequestMethod (t :: Symbol) (o :: *) :: * where-    ResolveFileChooserRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveFileChooserRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveFileChooserRequestMethod "cancel" o = FileChooserRequestCancelMethodInfo-    ResolveFileChooserRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveFileChooserRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveFileChooserRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveFileChooserRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveFileChooserRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveFileChooserRequestMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveFileChooserRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveFileChooserRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveFileChooserRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveFileChooserRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveFileChooserRequestMethod "selectFiles" o = FileChooserRequestSelectFilesMethodInfo-    ResolveFileChooserRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveFileChooserRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveFileChooserRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveFileChooserRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveFileChooserRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveFileChooserRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveFileChooserRequestMethod "getMimeTypes" o = FileChooserRequestGetMimeTypesMethodInfo-    ResolveFileChooserRequestMethod "getMimeTypesFilter" o = FileChooserRequestGetMimeTypesFilterMethodInfo-    ResolveFileChooserRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveFileChooserRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveFileChooserRequestMethod "getSelectMultiple" o = FileChooserRequestGetSelectMultipleMethodInfo-    ResolveFileChooserRequestMethod "getSelectedFiles" o = FileChooserRequestGetSelectedFilesMethodInfo-    ResolveFileChooserRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveFileChooserRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveFileChooserRequestMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveFileChooserRequestMethod t FileChooserRequest, MethodInfo info FileChooserRequest p) => IsLabelProxy t (FileChooserRequest -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveFileChooserRequestMethod t FileChooserRequest, MethodInfo info FileChooserRequest p) => IsLabel t (FileChooserRequest -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "filter"-   -- Type: TInterface "Gtk" "FileFilter"-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getFileChooserRequestFilter :: (MonadIO m, FileChooserRequestK o) => o -> m (Maybe Gtk.FileFilter)-getFileChooserRequestFilter obj = liftIO $ getObjectPropertyObject obj "filter" Gtk.FileFilter--data FileChooserRequestFilterPropertyInfo-instance AttrInfo FileChooserRequestFilterPropertyInfo where-    type AttrAllowedOps FileChooserRequestFilterPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint FileChooserRequestFilterPropertyInfo = (~) ()-    type AttrBaseTypeConstraint FileChooserRequestFilterPropertyInfo = FileChooserRequestK-    type AttrGetType FileChooserRequestFilterPropertyInfo = (Maybe Gtk.FileFilter)-    type AttrLabel FileChooserRequestFilterPropertyInfo = "filter"-    attrGet _ = getFileChooserRequestFilter-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "mime-types"-   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getFileChooserRequestMimeTypes :: (MonadIO m, FileChooserRequestK o) => o -> m [T.Text]-getFileChooserRequestMimeTypes obj = liftIO $ checkUnexpectedNothing "getFileChooserRequestMimeTypes" $ getObjectPropertyStringArray obj "mime-types"--data FileChooserRequestMimeTypesPropertyInfo-instance AttrInfo FileChooserRequestMimeTypesPropertyInfo where-    type AttrAllowedOps FileChooserRequestMimeTypesPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint FileChooserRequestMimeTypesPropertyInfo = (~) ()-    type AttrBaseTypeConstraint FileChooserRequestMimeTypesPropertyInfo = FileChooserRequestK-    type AttrGetType FileChooserRequestMimeTypesPropertyInfo = [T.Text]-    type AttrLabel FileChooserRequestMimeTypesPropertyInfo = "mime-types"-    attrGet _ = getFileChooserRequestMimeTypes-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "select-multiple"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getFileChooserRequestSelectMultiple :: (MonadIO m, FileChooserRequestK o) => o -> m Bool-getFileChooserRequestSelectMultiple obj = liftIO $ getObjectPropertyBool obj "select-multiple"--data FileChooserRequestSelectMultiplePropertyInfo-instance AttrInfo FileChooserRequestSelectMultiplePropertyInfo where-    type AttrAllowedOps FileChooserRequestSelectMultiplePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint FileChooserRequestSelectMultiplePropertyInfo = (~) ()-    type AttrBaseTypeConstraint FileChooserRequestSelectMultiplePropertyInfo = FileChooserRequestK-    type AttrGetType FileChooserRequestSelectMultiplePropertyInfo = Bool-    type AttrLabel FileChooserRequestSelectMultiplePropertyInfo = "select-multiple"-    attrGet _ = getFileChooserRequestSelectMultiple-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "selected-files"-   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getFileChooserRequestSelectedFiles :: (MonadIO m, FileChooserRequestK o) => o -> m [T.Text]-getFileChooserRequestSelectedFiles obj = liftIO $ checkUnexpectedNothing "getFileChooserRequestSelectedFiles" $ getObjectPropertyStringArray obj "selected-files"--data FileChooserRequestSelectedFilesPropertyInfo-instance AttrInfo FileChooserRequestSelectedFilesPropertyInfo where-    type AttrAllowedOps FileChooserRequestSelectedFilesPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint FileChooserRequestSelectedFilesPropertyInfo = (~) ()-    type AttrBaseTypeConstraint FileChooserRequestSelectedFilesPropertyInfo = FileChooserRequestK-    type AttrGetType FileChooserRequestSelectedFilesPropertyInfo = [T.Text]-    type AttrLabel FileChooserRequestSelectedFilesPropertyInfo = "selected-files"-    attrGet _ = getFileChooserRequestSelectedFiles-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined--type instance AttributeList FileChooserRequest = FileChooserRequestAttributeList-type FileChooserRequestAttributeList = ('[ '("filter", FileChooserRequestFilterPropertyInfo), '("mimeTypes", FileChooserRequestMimeTypesPropertyInfo), '("selectMultiple", FileChooserRequestSelectMultiplePropertyInfo), '("selectedFiles", FileChooserRequestSelectedFilesPropertyInfo)] :: [(Symbol, *)])--fileChooserRequestFilter :: AttrLabelProxy "filter"-fileChooserRequestFilter = AttrLabelProxy--fileChooserRequestMimeTypes :: AttrLabelProxy "mimeTypes"-fileChooserRequestMimeTypes = AttrLabelProxy--fileChooserRequestSelectMultiple :: AttrLabelProxy "selectMultiple"-fileChooserRequestSelectMultiple = AttrLabelProxy--fileChooserRequestSelectedFiles :: AttrLabelProxy "selectedFiles"-fileChooserRequestSelectedFiles = AttrLabelProxy--type instance SignalList FileChooserRequest = FileChooserRequestSignalList-type FileChooserRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method FileChooserRequest::cancel--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_file_chooser_request_cancel" webkit_file_chooser_request_cancel :: -    Ptr FileChooserRequest ->               -- _obj : TInterface "WebKit2" "FileChooserRequest"-    IO ()---fileChooserRequestCancel ::-    (MonadIO m, FileChooserRequestK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-fileChooserRequestCancel _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_file_chooser_request_cancel _obj'-    touchManagedPtr _obj-    return ()--data FileChooserRequestCancelMethodInfo-instance (signature ~ (m ()), MonadIO m, FileChooserRequestK a) => MethodInfo FileChooserRequestCancelMethodInfo a signature where-    overloadedMethod _ = fileChooserRequestCancel---- method FileChooserRequest::get_mime_types--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "webkit_file_chooser_request_get_mime_types" webkit_file_chooser_request_get_mime_types :: -    Ptr FileChooserRequest ->               -- _obj : TInterface "WebKit2" "FileChooserRequest"-    IO (Ptr CString)---fileChooserRequestGetMimeTypes ::-    (MonadIO m, FileChooserRequestK a) =>-    a                                       -- _obj-    -> m [T.Text]                           -- result-fileChooserRequestGetMimeTypes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_file_chooser_request_get_mime_types _obj'-    checkUnexpectedReturnNULL "webkit_file_chooser_request_get_mime_types" result-    result' <- unpackZeroTerminatedUTF8CArray result-    touchManagedPtr _obj-    return result'--data FileChooserRequestGetMimeTypesMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, FileChooserRequestK a) => MethodInfo FileChooserRequestGetMimeTypesMethodInfo a signature where-    overloadedMethod _ = fileChooserRequestGetMimeTypes---- method FileChooserRequest::get_mime_types_filter--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gtk" "FileFilter")--- throws : False--- Skip return : False--foreign import ccall "webkit_file_chooser_request_get_mime_types_filter" webkit_file_chooser_request_get_mime_types_filter :: -    Ptr FileChooserRequest ->               -- _obj : TInterface "WebKit2" "FileChooserRequest"-    IO (Ptr Gtk.FileFilter)---fileChooserRequestGetMimeTypesFilter ::-    (MonadIO m, FileChooserRequestK a) =>-    a                                       -- _obj-    -> m Gtk.FileFilter                     -- result-fileChooserRequestGetMimeTypesFilter _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_file_chooser_request_get_mime_types_filter _obj'-    checkUnexpectedReturnNULL "webkit_file_chooser_request_get_mime_types_filter" result-    result' <- (newObject Gtk.FileFilter) result-    touchManagedPtr _obj-    return result'--data FileChooserRequestGetMimeTypesFilterMethodInfo-instance (signature ~ (m Gtk.FileFilter), MonadIO m, FileChooserRequestK a) => MethodInfo FileChooserRequestGetMimeTypesFilterMethodInfo a signature where-    overloadedMethod _ = fileChooserRequestGetMimeTypesFilter---- method FileChooserRequest::get_select_multiple--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_file_chooser_request_get_select_multiple" webkit_file_chooser_request_get_select_multiple :: -    Ptr FileChooserRequest ->               -- _obj : TInterface "WebKit2" "FileChooserRequest"-    IO CInt---fileChooserRequestGetSelectMultiple ::-    (MonadIO m, FileChooserRequestK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-fileChooserRequestGetSelectMultiple _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_file_chooser_request_get_select_multiple _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data FileChooserRequestGetSelectMultipleMethodInfo-instance (signature ~ (m Bool), MonadIO m, FileChooserRequestK a) => MethodInfo FileChooserRequestGetSelectMultipleMethodInfo a signature where-    overloadedMethod _ = fileChooserRequestGetSelectMultiple---- method FileChooserRequest::get_selected_files--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "webkit_file_chooser_request_get_selected_files" webkit_file_chooser_request_get_selected_files :: -    Ptr FileChooserRequest ->               -- _obj : TInterface "WebKit2" "FileChooserRequest"-    IO (Ptr CString)---fileChooserRequestGetSelectedFiles ::-    (MonadIO m, FileChooserRequestK a) =>-    a                                       -- _obj-    -> m [T.Text]                           -- result-fileChooserRequestGetSelectedFiles _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_file_chooser_request_get_selected_files _obj'-    checkUnexpectedReturnNULL "webkit_file_chooser_request_get_selected_files" result-    result' <- unpackZeroTerminatedUTF8CArray result-    touchManagedPtr _obj-    return result'--data FileChooserRequestGetSelectedFilesMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, FileChooserRequestK a) => MethodInfo FileChooserRequestGetSelectedFilesMethodInfo a signature where-    overloadedMethod _ = fileChooserRequestGetSelectedFiles---- method FileChooserRequest::select_files--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "files", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_file_chooser_request_select_files" webkit_file_chooser_request_select_files :: -    Ptr FileChooserRequest ->               -- _obj : TInterface "WebKit2" "FileChooserRequest"-    Ptr CString ->                          -- files : TCArray True (-1) (-1) (TBasicType TUTF8)-    IO ()---fileChooserRequestSelectFiles ::-    (MonadIO m, FileChooserRequestK a) =>-    a                                       -- _obj-    -> [T.Text]                             -- files-    -> m ()                                 -- result-fileChooserRequestSelectFiles _obj files = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    files' <- packZeroTerminatedUTF8CArray files-    webkit_file_chooser_request_select_files _obj' files'-    touchManagedPtr _obj-    mapZeroTerminatedCArray freeMem files'-    freeMem files'-    return ()--data FileChooserRequestSelectFilesMethodInfo-instance (signature ~ ([T.Text] -> m ()), MonadIO m, FileChooserRequestK a) => MethodInfo FileChooserRequestSelectFilesMethodInfo a signature where-    overloadedMethod _ = fileChooserRequestSelectFiles--
− GI/WebKit2/Objects/FileChooserRequest.hs-boot 
@@ -1,23 +0,0 @@-module GI.WebKit2.Objects.FileChooserRequest where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FileChooserRequest = FileChooserRequest (ForeignPtr FileChooserRequest)-instance GObject FileChooserRequest where-class GObject o => FileChooserRequestK o-instance (GObject o, IsDescendantOf FileChooserRequest o) => FileChooserRequestK o-data FileChooserRequestFilterPropertyInfo-data FileChooserRequestMimeTypesPropertyInfo-data FileChooserRequestSelectMultiplePropertyInfo-data FileChooserRequestSelectedFilesPropertyInfo-data FileChooserRequestCancelMethodInfo-data FileChooserRequestGetMimeTypesMethodInfo-data FileChooserRequestGetMimeTypesFilterMethodInfo-data FileChooserRequestGetSelectMultipleMethodInfo-data FileChooserRequestGetSelectedFilesMethodInfo-data FileChooserRequestSelectFilesMethodInfo
− GI/WebKit2/Objects/FindController.hs 
@@ -1,709 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.WebKit2.Objects.FindController-    ( ---- * Exported types-    FindController(..)                      ,-    FindControllerK                         ,-    toFindController                        ,-    noFindController                        ,--- -- * Methods--- ** findControllerCountMatches-    FindControllerCountMatchesMethodInfo    ,-    findControllerCountMatches              ,----- ** findControllerGetMaxMatchCount-    FindControllerGetMaxMatchCountMethodInfo,-    findControllerGetMaxMatchCount          ,----- ** findControllerGetOptions-    FindControllerGetOptionsMethodInfo      ,-    findControllerGetOptions                ,----- ** findControllerGetSearchText-    FindControllerGetSearchTextMethodInfo   ,-    findControllerGetSearchText             ,----- ** findControllerGetWebView-    FindControllerGetWebViewMethodInfo      ,-    findControllerGetWebView                ,----- ** findControllerSearch-    FindControllerSearchMethodInfo          ,-    findControllerSearch                    ,----- ** findControllerSearchFinish-    FindControllerSearchFinishMethodInfo    ,-    findControllerSearchFinish              ,----- ** findControllerSearchNext-    FindControllerSearchNextMethodInfo      ,-    findControllerSearchNext                ,----- ** findControllerSearchPrevious-    FindControllerSearchPreviousMethodInfo  ,-    findControllerSearchPrevious            ,----- -- * Properties--- ** MaxMatchCount-    FindControllerMaxMatchCountPropertyInfo ,-    findControllerMaxMatchCount             ,-    getFindControllerMaxMatchCount          ,----- ** Options-    FindControllerOptionsPropertyInfo       ,-    findControllerOptions                   ,-    getFindControllerOptions                ,----- ** Text-    FindControllerTextPropertyInfo          ,-    findControllerText                      ,-    getFindControllerText                   ,----- ** WebView-    FindControllerWebViewPropertyInfo       ,-    constructFindControllerWebView          ,-    findControllerWebView                   ,-    getFindControllerWebView                ,----- -- * Signals--- ** CountedMatches-    FindControllerCountedMatchesCallback    ,-    FindControllerCountedMatchesCallbackC   ,-    FindControllerCountedMatchesSignalInfo  ,-    afterFindControllerCountedMatches       ,-    findControllerCountedMatchesCallbackWrapper,-    findControllerCountedMatchesClosure     ,-    mkFindControllerCountedMatchesCallback  ,-    noFindControllerCountedMatchesCallback  ,-    onFindControllerCountedMatches          ,----- ** FailedToFindText-    FindControllerFailedToFindTextCallback  ,-    FindControllerFailedToFindTextCallbackC ,-    FindControllerFailedToFindTextSignalInfo,-    afterFindControllerFailedToFindText     ,-    findControllerFailedToFindTextCallbackWrapper,-    findControllerFailedToFindTextClosure   ,-    mkFindControllerFailedToFindTextCallback,-    noFindControllerFailedToFindTextCallback,-    onFindControllerFailedToFindText        ,----- ** FoundText-    FindControllerFoundTextCallback         ,-    FindControllerFoundTextCallbackC        ,-    FindControllerFoundTextSignalInfo       ,-    afterFindControllerFoundText            ,-    findControllerFoundTextCallbackWrapper  ,-    findControllerFoundTextClosure          ,-    mkFindControllerFoundTextCallback       ,-    noFindControllerFoundTextCallback       ,-    onFindControllerFoundText               ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject--newtype FindController = FindController (ForeignPtr FindController)-foreign import ccall "webkit_find_controller_get_type"-    c_webkit_find_controller_get_type :: IO GType--type instance ParentTypes FindController = FindControllerParentTypes-type FindControllerParentTypes = '[GObject.Object]--instance GObject FindController where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_find_controller_get_type-    --class GObject o => FindControllerK o-instance (GObject o, IsDescendantOf FindController o) => FindControllerK o--toFindController :: FindControllerK o => o -> IO FindController-toFindController = unsafeCastTo FindController--noFindController :: Maybe FindController-noFindController = Nothing--type family ResolveFindControllerMethod (t :: Symbol) (o :: *) :: * where-    ResolveFindControllerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveFindControllerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveFindControllerMethod "countMatches" o = FindControllerCountMatchesMethodInfo-    ResolveFindControllerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveFindControllerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveFindControllerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveFindControllerMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveFindControllerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveFindControllerMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveFindControllerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveFindControllerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveFindControllerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveFindControllerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveFindControllerMethod "search" o = FindControllerSearchMethodInfo-    ResolveFindControllerMethod "searchFinish" o = FindControllerSearchFinishMethodInfo-    ResolveFindControllerMethod "searchNext" o = FindControllerSearchNextMethodInfo-    ResolveFindControllerMethod "searchPrevious" o = FindControllerSearchPreviousMethodInfo-    ResolveFindControllerMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveFindControllerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveFindControllerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveFindControllerMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveFindControllerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveFindControllerMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveFindControllerMethod "getMaxMatchCount" o = FindControllerGetMaxMatchCountMethodInfo-    ResolveFindControllerMethod "getOptions" o = FindControllerGetOptionsMethodInfo-    ResolveFindControllerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveFindControllerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveFindControllerMethod "getSearchText" o = FindControllerGetSearchTextMethodInfo-    ResolveFindControllerMethod "getWebView" o = FindControllerGetWebViewMethodInfo-    ResolveFindControllerMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveFindControllerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveFindControllerMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveFindControllerMethod t FindController, MethodInfo info FindController p) => IsLabelProxy t (FindController -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveFindControllerMethod t FindController, MethodInfo info FindController p) => IsLabel t (FindController -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal FindController::counted-matches-type FindControllerCountedMatchesCallback =-    Word32 ->-    IO ()--noFindControllerCountedMatchesCallback :: Maybe FindControllerCountedMatchesCallback-noFindControllerCountedMatchesCallback = Nothing--type FindControllerCountedMatchesCallbackC =-    Ptr () ->                               -- object-    Word32 ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkFindControllerCountedMatchesCallback :: FindControllerCountedMatchesCallbackC -> IO (FunPtr FindControllerCountedMatchesCallbackC)--findControllerCountedMatchesClosure :: FindControllerCountedMatchesCallback -> IO Closure-findControllerCountedMatchesClosure cb = newCClosure =<< mkFindControllerCountedMatchesCallback wrapped-    where wrapped = findControllerCountedMatchesCallbackWrapper cb--findControllerCountedMatchesCallbackWrapper ::-    FindControllerCountedMatchesCallback ->-    Ptr () ->-    Word32 ->-    Ptr () ->-    IO ()-findControllerCountedMatchesCallbackWrapper _cb _ matchCount _ = do-    _cb  matchCount--onFindControllerCountedMatches :: (GObject a, MonadIO m) => a -> FindControllerCountedMatchesCallback -> m SignalHandlerId-onFindControllerCountedMatches obj cb = liftIO $ connectFindControllerCountedMatches obj cb SignalConnectBefore-afterFindControllerCountedMatches :: (GObject a, MonadIO m) => a -> FindControllerCountedMatchesCallback -> m SignalHandlerId-afterFindControllerCountedMatches obj cb = connectFindControllerCountedMatches obj cb SignalConnectAfter--connectFindControllerCountedMatches :: (GObject a, MonadIO m) =>-                                       a -> FindControllerCountedMatchesCallback -> SignalConnectMode -> m SignalHandlerId-connectFindControllerCountedMatches obj cb after = liftIO $ do-    cb' <- mkFindControllerCountedMatchesCallback (findControllerCountedMatchesCallbackWrapper cb)-    connectSignalFunPtr obj "counted-matches" cb' after---- signal FindController::failed-to-find-text-type FindControllerFailedToFindTextCallback =-    IO ()--noFindControllerFailedToFindTextCallback :: Maybe FindControllerFailedToFindTextCallback-noFindControllerFailedToFindTextCallback = Nothing--type FindControllerFailedToFindTextCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkFindControllerFailedToFindTextCallback :: FindControllerFailedToFindTextCallbackC -> IO (FunPtr FindControllerFailedToFindTextCallbackC)--findControllerFailedToFindTextClosure :: FindControllerFailedToFindTextCallback -> IO Closure-findControllerFailedToFindTextClosure cb = newCClosure =<< mkFindControllerFailedToFindTextCallback wrapped-    where wrapped = findControllerFailedToFindTextCallbackWrapper cb--findControllerFailedToFindTextCallbackWrapper ::-    FindControllerFailedToFindTextCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-findControllerFailedToFindTextCallbackWrapper _cb _ _ = do-    _cb --onFindControllerFailedToFindText :: (GObject a, MonadIO m) => a -> FindControllerFailedToFindTextCallback -> m SignalHandlerId-onFindControllerFailedToFindText obj cb = liftIO $ connectFindControllerFailedToFindText obj cb SignalConnectBefore-afterFindControllerFailedToFindText :: (GObject a, MonadIO m) => a -> FindControllerFailedToFindTextCallback -> m SignalHandlerId-afterFindControllerFailedToFindText obj cb = connectFindControllerFailedToFindText obj cb SignalConnectAfter--connectFindControllerFailedToFindText :: (GObject a, MonadIO m) =>-                                         a -> FindControllerFailedToFindTextCallback -> SignalConnectMode -> m SignalHandlerId-connectFindControllerFailedToFindText obj cb after = liftIO $ do-    cb' <- mkFindControllerFailedToFindTextCallback (findControllerFailedToFindTextCallbackWrapper cb)-    connectSignalFunPtr obj "failed-to-find-text" cb' after---- signal FindController::found-text-type FindControllerFoundTextCallback =-    Word32 ->-    IO ()--noFindControllerFoundTextCallback :: Maybe FindControllerFoundTextCallback-noFindControllerFoundTextCallback = Nothing--type FindControllerFoundTextCallbackC =-    Ptr () ->                               -- object-    Word32 ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkFindControllerFoundTextCallback :: FindControllerFoundTextCallbackC -> IO (FunPtr FindControllerFoundTextCallbackC)--findControllerFoundTextClosure :: FindControllerFoundTextCallback -> IO Closure-findControllerFoundTextClosure cb = newCClosure =<< mkFindControllerFoundTextCallback wrapped-    where wrapped = findControllerFoundTextCallbackWrapper cb--findControllerFoundTextCallbackWrapper ::-    FindControllerFoundTextCallback ->-    Ptr () ->-    Word32 ->-    Ptr () ->-    IO ()-findControllerFoundTextCallbackWrapper _cb _ matchCount _ = do-    _cb  matchCount--onFindControllerFoundText :: (GObject a, MonadIO m) => a -> FindControllerFoundTextCallback -> m SignalHandlerId-onFindControllerFoundText obj cb = liftIO $ connectFindControllerFoundText obj cb SignalConnectBefore-afterFindControllerFoundText :: (GObject a, MonadIO m) => a -> FindControllerFoundTextCallback -> m SignalHandlerId-afterFindControllerFoundText obj cb = connectFindControllerFoundText obj cb SignalConnectAfter--connectFindControllerFoundText :: (GObject a, MonadIO m) =>-                                  a -> FindControllerFoundTextCallback -> SignalConnectMode -> m SignalHandlerId-connectFindControllerFoundText obj cb after = liftIO $ do-    cb' <- mkFindControllerFoundTextCallback (findControllerFoundTextCallbackWrapper cb)-    connectSignalFunPtr obj "found-text" cb' after---- VVV Prop "max-match-count"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getFindControllerMaxMatchCount :: (MonadIO m, FindControllerK o) => o -> m Word32-getFindControllerMaxMatchCount obj = liftIO $ getObjectPropertyUInt32 obj "max-match-count"--data FindControllerMaxMatchCountPropertyInfo-instance AttrInfo FindControllerMaxMatchCountPropertyInfo where-    type AttrAllowedOps FindControllerMaxMatchCountPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint FindControllerMaxMatchCountPropertyInfo = (~) ()-    type AttrBaseTypeConstraint FindControllerMaxMatchCountPropertyInfo = FindControllerK-    type AttrGetType FindControllerMaxMatchCountPropertyInfo = Word32-    type AttrLabel FindControllerMaxMatchCountPropertyInfo = "max-match-count"-    attrGet _ = getFindControllerMaxMatchCount-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "options"-   -- Type: TInterface "WebKit2" "FindOptions"-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getFindControllerOptions :: (MonadIO m, FindControllerK o) => o -> m [FindOptions]-getFindControllerOptions obj = liftIO $ getObjectPropertyFlags obj "options"--data FindControllerOptionsPropertyInfo-instance AttrInfo FindControllerOptionsPropertyInfo where-    type AttrAllowedOps FindControllerOptionsPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint FindControllerOptionsPropertyInfo = (~) ()-    type AttrBaseTypeConstraint FindControllerOptionsPropertyInfo = FindControllerK-    type AttrGetType FindControllerOptionsPropertyInfo = [FindOptions]-    type AttrLabel FindControllerOptionsPropertyInfo = "options"-    attrGet _ = getFindControllerOptions-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "text"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getFindControllerText :: (MonadIO m, FindControllerK o) => o -> m (Maybe T.Text)-getFindControllerText obj = liftIO $ getObjectPropertyString obj "text"--data FindControllerTextPropertyInfo-instance AttrInfo FindControllerTextPropertyInfo where-    type AttrAllowedOps FindControllerTextPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint FindControllerTextPropertyInfo = (~) ()-    type AttrBaseTypeConstraint FindControllerTextPropertyInfo = FindControllerK-    type AttrGetType FindControllerTextPropertyInfo = (Maybe T.Text)-    type AttrLabel FindControllerTextPropertyInfo = "text"-    attrGet _ = getFindControllerText-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "web-view"-   -- Type: TInterface "WebKit2" "WebView"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getFindControllerWebView :: (MonadIO m, FindControllerK o) => o -> m WebView-getFindControllerWebView obj = liftIO $ checkUnexpectedNothing "getFindControllerWebView" $ getObjectPropertyObject obj "web-view" WebView--constructFindControllerWebView :: (WebViewK a) => a -> IO ([Char], GValue)-constructFindControllerWebView val = constructObjectPropertyObject "web-view" (Just val)--data FindControllerWebViewPropertyInfo-instance AttrInfo FindControllerWebViewPropertyInfo where-    type AttrAllowedOps FindControllerWebViewPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint FindControllerWebViewPropertyInfo = WebViewK-    type AttrBaseTypeConstraint FindControllerWebViewPropertyInfo = FindControllerK-    type AttrGetType FindControllerWebViewPropertyInfo = WebView-    type AttrLabel FindControllerWebViewPropertyInfo = "web-view"-    attrGet _ = getFindControllerWebView-    attrSet _ = undefined-    attrConstruct _ = constructFindControllerWebView-    attrClear _ = undefined--type instance AttributeList FindController = FindControllerAttributeList-type FindControllerAttributeList = ('[ '("maxMatchCount", FindControllerMaxMatchCountPropertyInfo), '("options", FindControllerOptionsPropertyInfo), '("text", FindControllerTextPropertyInfo), '("webView", FindControllerWebViewPropertyInfo)] :: [(Symbol, *)])--findControllerMaxMatchCount :: AttrLabelProxy "maxMatchCount"-findControllerMaxMatchCount = AttrLabelProxy--findControllerOptions :: AttrLabelProxy "options"-findControllerOptions = AttrLabelProxy--findControllerText :: AttrLabelProxy "text"-findControllerText = AttrLabelProxy--findControllerWebView :: AttrLabelProxy "webView"-findControllerWebView = AttrLabelProxy--data FindControllerCountedMatchesSignalInfo-instance SignalInfo FindControllerCountedMatchesSignalInfo where-    type HaskellCallbackType FindControllerCountedMatchesSignalInfo = FindControllerCountedMatchesCallback-    connectSignal _ = connectFindControllerCountedMatches--data FindControllerFailedToFindTextSignalInfo-instance SignalInfo FindControllerFailedToFindTextSignalInfo where-    type HaskellCallbackType FindControllerFailedToFindTextSignalInfo = FindControllerFailedToFindTextCallback-    connectSignal _ = connectFindControllerFailedToFindText--data FindControllerFoundTextSignalInfo-instance SignalInfo FindControllerFoundTextSignalInfo where-    type HaskellCallbackType FindControllerFoundTextSignalInfo = FindControllerFoundTextCallback-    connectSignal _ = connectFindControllerFoundText--type instance SignalList FindController = FindControllerSignalList-type FindControllerSignalList = ('[ '("countedMatches", FindControllerCountedMatchesSignalInfo), '("failedToFindText", FindControllerFailedToFindTextSignalInfo), '("foundText", FindControllerFoundTextSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method FindController::count_matches--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "find_options", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_match_count", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_find_controller_count_matches" webkit_find_controller_count_matches :: -    Ptr FindController ->                   -- _obj : TInterface "WebKit2" "FindController"-    CString ->                              -- search_text : TBasicType TUTF8-    Word32 ->                               -- find_options : TBasicType TUInt32-    Word32 ->                               -- max_match_count : TBasicType TUInt-    IO ()---findControllerCountMatches ::-    (MonadIO m, FindControllerK a) =>-    a                                       -- _obj-    -> T.Text                               -- searchText-    -> Word32                               -- findOptions-    -> Word32                               -- maxMatchCount-    -> m ()                                 -- result-findControllerCountMatches _obj searchText findOptions maxMatchCount = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    searchText' <- textToCString searchText-    webkit_find_controller_count_matches _obj' searchText' findOptions maxMatchCount-    touchManagedPtr _obj-    freeMem searchText'-    return ()--data FindControllerCountMatchesMethodInfo-instance (signature ~ (T.Text -> Word32 -> Word32 -> m ()), MonadIO m, FindControllerK a) => MethodInfo FindControllerCountMatchesMethodInfo a signature where-    overloadedMethod _ = findControllerCountMatches---- method FindController::get_max_match_count--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "webkit_find_controller_get_max_match_count" webkit_find_controller_get_max_match_count :: -    Ptr FindController ->                   -- _obj : TInterface "WebKit2" "FindController"-    IO Word32---findControllerGetMaxMatchCount ::-    (MonadIO m, FindControllerK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-findControllerGetMaxMatchCount _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_find_controller_get_max_match_count _obj'-    touchManagedPtr _obj-    return result--data FindControllerGetMaxMatchCountMethodInfo-instance (signature ~ (m Word32), MonadIO m, FindControllerK a) => MethodInfo FindControllerGetMaxMatchCountMethodInfo a signature where-    overloadedMethod _ = findControllerGetMaxMatchCount---- method FindController::get_options--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt32)--- throws : False--- Skip return : False--foreign import ccall "webkit_find_controller_get_options" webkit_find_controller_get_options :: -    Ptr FindController ->                   -- _obj : TInterface "WebKit2" "FindController"-    IO Word32---findControllerGetOptions ::-    (MonadIO m, FindControllerK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-findControllerGetOptions _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_find_controller_get_options _obj'-    touchManagedPtr _obj-    return result--data FindControllerGetOptionsMethodInfo-instance (signature ~ (m Word32), MonadIO m, FindControllerK a) => MethodInfo FindControllerGetOptionsMethodInfo a signature where-    overloadedMethod _ = findControllerGetOptions---- method FindController::get_search_text--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_find_controller_get_search_text" webkit_find_controller_get_search_text :: -    Ptr FindController ->                   -- _obj : TInterface "WebKit2" "FindController"-    IO CString---findControllerGetSearchText ::-    (MonadIO m, FindControllerK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-findControllerGetSearchText _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_find_controller_get_search_text _obj'-    checkUnexpectedReturnNULL "webkit_find_controller_get_search_text" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data FindControllerGetSearchTextMethodInfo-instance (signature ~ (m T.Text), MonadIO m, FindControllerK a) => MethodInfo FindControllerGetSearchTextMethodInfo a signature where-    overloadedMethod _ = findControllerGetSearchText---- method FindController::get_web_view--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "WebView")--- throws : False--- Skip return : False--foreign import ccall "webkit_find_controller_get_web_view" webkit_find_controller_get_web_view :: -    Ptr FindController ->                   -- _obj : TInterface "WebKit2" "FindController"-    IO (Ptr WebView)---findControllerGetWebView ::-    (MonadIO m, FindControllerK a) =>-    a                                       -- _obj-    -> m WebView                            -- result-findControllerGetWebView _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_find_controller_get_web_view _obj'-    checkUnexpectedReturnNULL "webkit_find_controller_get_web_view" result-    result' <- (newObject WebView) result-    touchManagedPtr _obj-    return result'--data FindControllerGetWebViewMethodInfo-instance (signature ~ (m WebView), MonadIO m, FindControllerK a) => MethodInfo FindControllerGetWebViewMethodInfo a signature where-    overloadedMethod _ = findControllerGetWebView---- method FindController::search--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "find_options", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_match_count", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_find_controller_search" webkit_find_controller_search :: -    Ptr FindController ->                   -- _obj : TInterface "WebKit2" "FindController"-    CString ->                              -- search_text : TBasicType TUTF8-    Word32 ->                               -- find_options : TBasicType TUInt32-    Word32 ->                               -- max_match_count : TBasicType TUInt-    IO ()---findControllerSearch ::-    (MonadIO m, FindControllerK a) =>-    a                                       -- _obj-    -> T.Text                               -- searchText-    -> Word32                               -- findOptions-    -> Word32                               -- maxMatchCount-    -> m ()                                 -- result-findControllerSearch _obj searchText findOptions maxMatchCount = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    searchText' <- textToCString searchText-    webkit_find_controller_search _obj' searchText' findOptions maxMatchCount-    touchManagedPtr _obj-    freeMem searchText'-    return ()--data FindControllerSearchMethodInfo-instance (signature ~ (T.Text -> Word32 -> Word32 -> m ()), MonadIO m, FindControllerK a) => MethodInfo FindControllerSearchMethodInfo a signature where-    overloadedMethod _ = findControllerSearch---- method FindController::search_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_find_controller_search_finish" webkit_find_controller_search_finish :: -    Ptr FindController ->                   -- _obj : TInterface "WebKit2" "FindController"-    IO ()---findControllerSearchFinish ::-    (MonadIO m, FindControllerK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-findControllerSearchFinish _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_find_controller_search_finish _obj'-    touchManagedPtr _obj-    return ()--data FindControllerSearchFinishMethodInfo-instance (signature ~ (m ()), MonadIO m, FindControllerK a) => MethodInfo FindControllerSearchFinishMethodInfo a signature where-    overloadedMethod _ = findControllerSearchFinish---- method FindController::search_next--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_find_controller_search_next" webkit_find_controller_search_next :: -    Ptr FindController ->                   -- _obj : TInterface "WebKit2" "FindController"-    IO ()---findControllerSearchNext ::-    (MonadIO m, FindControllerK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-findControllerSearchNext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_find_controller_search_next _obj'-    touchManagedPtr _obj-    return ()--data FindControllerSearchNextMethodInfo-instance (signature ~ (m ()), MonadIO m, FindControllerK a) => MethodInfo FindControllerSearchNextMethodInfo a signature where-    overloadedMethod _ = findControllerSearchNext---- method FindController::search_previous--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_find_controller_search_previous" webkit_find_controller_search_previous :: -    Ptr FindController ->                   -- _obj : TInterface "WebKit2" "FindController"-    IO ()---findControllerSearchPrevious ::-    (MonadIO m, FindControllerK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-findControllerSearchPrevious _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_find_controller_search_previous _obj'-    touchManagedPtr _obj-    return ()--data FindControllerSearchPreviousMethodInfo-instance (signature ~ (m ()), MonadIO m, FindControllerK a) => MethodInfo FindControllerSearchPreviousMethodInfo a signature where-    overloadedMethod _ = findControllerSearchPrevious--
− GI/WebKit2/Objects/FindController.hs-boot 
@@ -1,29 +0,0 @@-module GI.WebKit2.Objects.FindController where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FindController = FindController (ForeignPtr FindController)-instance GObject FindController where-class GObject o => FindControllerK o-instance (GObject o, IsDescendantOf FindController o) => FindControllerK o-data FindControllerMaxMatchCountPropertyInfo-data FindControllerOptionsPropertyInfo-data FindControllerTextPropertyInfo-data FindControllerWebViewPropertyInfo-data FindControllerCountedMatchesSignalInfo-data FindControllerFailedToFindTextSignalInfo-data FindControllerFoundTextSignalInfo-data FindControllerCountMatchesMethodInfo-data FindControllerGetMaxMatchCountMethodInfo-data FindControllerGetOptionsMethodInfo-data FindControllerGetSearchTextMethodInfo-data FindControllerGetWebViewMethodInfo-data FindControllerSearchMethodInfo-data FindControllerSearchFinishMethodInfo-data FindControllerSearchNextMethodInfo-data FindControllerSearchPreviousMethodInfo
− GI/WebKit2/Objects/FormSubmissionRequest.hs 
@@ -1,166 +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.WebKit2.Objects.FormSubmissionRequest-    ( ---- * Exported types-    FormSubmissionRequest(..)               ,-    FormSubmissionRequestK                  ,-    toFormSubmissionRequest                 ,-    noFormSubmissionRequest                 ,--- -- * Methods--- ** formSubmissionRequestGetTextFields-    FormSubmissionRequestGetTextFieldsMethodInfo,-    formSubmissionRequestGetTextFields      ,----- ** formSubmissionRequestSubmit-    FormSubmissionRequestSubmitMethodInfo   ,-    formSubmissionRequestSubmit             ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject--newtype FormSubmissionRequest = FormSubmissionRequest (ForeignPtr FormSubmissionRequest)-foreign import ccall "webkit_form_submission_request_get_type"-    c_webkit_form_submission_request_get_type :: IO GType--type instance ParentTypes FormSubmissionRequest = FormSubmissionRequestParentTypes-type FormSubmissionRequestParentTypes = '[GObject.Object]--instance GObject FormSubmissionRequest where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_form_submission_request_get_type-    --class GObject o => FormSubmissionRequestK o-instance (GObject o, IsDescendantOf FormSubmissionRequest o) => FormSubmissionRequestK o--toFormSubmissionRequest :: FormSubmissionRequestK o => o -> IO FormSubmissionRequest-toFormSubmissionRequest = unsafeCastTo FormSubmissionRequest--noFormSubmissionRequest :: Maybe FormSubmissionRequest-noFormSubmissionRequest = Nothing--type family ResolveFormSubmissionRequestMethod (t :: Symbol) (o :: *) :: * where-    ResolveFormSubmissionRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveFormSubmissionRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveFormSubmissionRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveFormSubmissionRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveFormSubmissionRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveFormSubmissionRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveFormSubmissionRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveFormSubmissionRequestMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveFormSubmissionRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveFormSubmissionRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveFormSubmissionRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveFormSubmissionRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveFormSubmissionRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveFormSubmissionRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveFormSubmissionRequestMethod "submit" o = FormSubmissionRequestSubmitMethodInfo-    ResolveFormSubmissionRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveFormSubmissionRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveFormSubmissionRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveFormSubmissionRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveFormSubmissionRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveFormSubmissionRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveFormSubmissionRequestMethod "getTextFields" o = FormSubmissionRequestGetTextFieldsMethodInfo-    ResolveFormSubmissionRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveFormSubmissionRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveFormSubmissionRequestMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveFormSubmissionRequestMethod t FormSubmissionRequest, MethodInfo info FormSubmissionRequest p) => IsLabelProxy t (FormSubmissionRequest -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveFormSubmissionRequestMethod t FormSubmissionRequest, MethodInfo info FormSubmissionRequest p) => IsLabel t (FormSubmissionRequest -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList FormSubmissionRequest = FormSubmissionRequestAttributeList-type FormSubmissionRequestAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList FormSubmissionRequest = FormSubmissionRequestSignalList-type FormSubmissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method FormSubmissionRequest::get_text_fields--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FormSubmissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGHash (TBasicType TPtr) (TBasicType TPtr))--- throws : False--- Skip return : False--foreign import ccall "webkit_form_submission_request_get_text_fields" webkit_form_submission_request_get_text_fields :: -    Ptr FormSubmissionRequest ->            -- _obj : TInterface "WebKit2" "FormSubmissionRequest"-    IO (Ptr (GHashTable (Ptr ()) (Ptr ())))---formSubmissionRequestGetTextFields ::-    (MonadIO m, FormSubmissionRequestK a) =>-    a                                       -- _obj-    -> m (Map.Map (Ptr ()) (Ptr ()))        -- result-formSubmissionRequestGetTextFields _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_form_submission_request_get_text_fields _obj'-    checkUnexpectedReturnNULL "webkit_form_submission_request_get_text_fields" result-    result' <- unpackGHashTable result-    let result'' = mapFirst ptrUnpackPtr result'-    let result''' = mapSecond ptrUnpackPtr result''-    let result'''' = Map.fromList result'''-    touchManagedPtr _obj-    return result''''--data FormSubmissionRequestGetTextFieldsMethodInfo-instance (signature ~ (m (Map.Map (Ptr ()) (Ptr ()))), MonadIO m, FormSubmissionRequestK a) => MethodInfo FormSubmissionRequestGetTextFieldsMethodInfo a signature where-    overloadedMethod _ = formSubmissionRequestGetTextFields---- method FormSubmissionRequest::submit--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "FormSubmissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_form_submission_request_submit" webkit_form_submission_request_submit :: -    Ptr FormSubmissionRequest ->            -- _obj : TInterface "WebKit2" "FormSubmissionRequest"-    IO ()---formSubmissionRequestSubmit ::-    (MonadIO m, FormSubmissionRequestK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-formSubmissionRequestSubmit _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_form_submission_request_submit _obj'-    touchManagedPtr _obj-    return ()--data FormSubmissionRequestSubmitMethodInfo-instance (signature ~ (m ()), MonadIO m, FormSubmissionRequestK a) => MethodInfo FormSubmissionRequestSubmitMethodInfo a signature where-    overloadedMethod _ = formSubmissionRequestSubmit--
− GI/WebKit2/Objects/FormSubmissionRequest.hs-boot 
@@ -1,15 +0,0 @@-module GI.WebKit2.Objects.FormSubmissionRequest where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FormSubmissionRequest = FormSubmissionRequest (ForeignPtr FormSubmissionRequest)-instance GObject FormSubmissionRequest where-class GObject o => FormSubmissionRequestK o-instance (GObject o, IsDescendantOf FormSubmissionRequest o) => FormSubmissionRequestK o-data FormSubmissionRequestGetTextFieldsMethodInfo-data FormSubmissionRequestSubmitMethodInfo
− GI/WebKit2/Objects/GeolocationPermissionRequest.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)--}--module GI.WebKit2.Objects.GeolocationPermissionRequest-    ( ---- * Exported types-    GeolocationPermissionRequest(..)        ,-    GeolocationPermissionRequestK           ,-    toGeolocationPermissionRequest          ,-    noGeolocationPermissionRequest          ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject--newtype GeolocationPermissionRequest = GeolocationPermissionRequest (ForeignPtr GeolocationPermissionRequest)-foreign import ccall "webkit_geolocation_permission_request_get_type"-    c_webkit_geolocation_permission_request_get_type :: IO GType--type instance ParentTypes GeolocationPermissionRequest = GeolocationPermissionRequestParentTypes-type GeolocationPermissionRequestParentTypes = '[GObject.Object, PermissionRequest]--instance GObject GeolocationPermissionRequest where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_geolocation_permission_request_get_type-    --class GObject o => GeolocationPermissionRequestK o-instance (GObject o, IsDescendantOf GeolocationPermissionRequest o) => GeolocationPermissionRequestK o--toGeolocationPermissionRequest :: GeolocationPermissionRequestK o => o -> IO GeolocationPermissionRequest-toGeolocationPermissionRequest = unsafeCastTo GeolocationPermissionRequest--noGeolocationPermissionRequest :: Maybe GeolocationPermissionRequest-noGeolocationPermissionRequest = Nothing--type family ResolveGeolocationPermissionRequestMethod (t :: Symbol) (o :: *) :: * where-    ResolveGeolocationPermissionRequestMethod "allow" o = PermissionRequestAllowMethodInfo-    ResolveGeolocationPermissionRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveGeolocationPermissionRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveGeolocationPermissionRequestMethod "deny" o = PermissionRequestDenyMethodInfo-    ResolveGeolocationPermissionRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveGeolocationPermissionRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveGeolocationPermissionRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveGeolocationPermissionRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveGeolocationPermissionRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveGeolocationPermissionRequestMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveGeolocationPermissionRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveGeolocationPermissionRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveGeolocationPermissionRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveGeolocationPermissionRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveGeolocationPermissionRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveGeolocationPermissionRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveGeolocationPermissionRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveGeolocationPermissionRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveGeolocationPermissionRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveGeolocationPermissionRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveGeolocationPermissionRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveGeolocationPermissionRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveGeolocationPermissionRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveGeolocationPermissionRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveGeolocationPermissionRequestMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveGeolocationPermissionRequestMethod t GeolocationPermissionRequest, MethodInfo info GeolocationPermissionRequest p) => IsLabelProxy t (GeolocationPermissionRequest -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveGeolocationPermissionRequestMethod t GeolocationPermissionRequest, MethodInfo info GeolocationPermissionRequest p) => IsLabel t (GeolocationPermissionRequest -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList GeolocationPermissionRequest = GeolocationPermissionRequestAttributeList-type GeolocationPermissionRequestAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList GeolocationPermissionRequest = GeolocationPermissionRequestSignalList-type GeolocationPermissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--
− GI/WebKit2/Objects/GeolocationPermissionRequest.hs-boot 
@@ -1,13 +0,0 @@-module GI.WebKit2.Objects.GeolocationPermissionRequest where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype GeolocationPermissionRequest = GeolocationPermissionRequest (ForeignPtr GeolocationPermissionRequest)-instance GObject GeolocationPermissionRequest where-class GObject o => GeolocationPermissionRequestK o-instance (GObject o, IsDescendantOf GeolocationPermissionRequest o) => GeolocationPermissionRequestK o
− GI/WebKit2/Objects/HitTestResult.hs 
@@ -1,708 +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.WebKit2.Objects.HitTestResult-    ( ---- * Exported types-    HitTestResult(..)                       ,-    HitTestResultK                          ,-    toHitTestResult                         ,-    noHitTestResult                         ,--- -- * Methods--- ** hitTestResultContextIsEditable-    HitTestResultContextIsEditableMethodInfo,-    hitTestResultContextIsEditable          ,----- ** hitTestResultContextIsImage-    HitTestResultContextIsImageMethodInfo   ,-    hitTestResultContextIsImage             ,----- ** hitTestResultContextIsLink-    HitTestResultContextIsLinkMethodInfo    ,-    hitTestResultContextIsLink              ,----- ** hitTestResultContextIsMedia-    HitTestResultContextIsMediaMethodInfo   ,-    hitTestResultContextIsMedia             ,----- ** hitTestResultContextIsScrollbar-    HitTestResultContextIsScrollbarMethodInfo,-    hitTestResultContextIsScrollbar         ,----- ** hitTestResultContextIsSelection-    HitTestResultContextIsSelectionMethodInfo,-    hitTestResultContextIsSelection         ,----- ** hitTestResultGetContext-    HitTestResultGetContextMethodInfo       ,-    hitTestResultGetContext                 ,----- ** hitTestResultGetImageUri-    HitTestResultGetImageUriMethodInfo      ,-    hitTestResultGetImageUri                ,----- ** hitTestResultGetLinkLabel-    HitTestResultGetLinkLabelMethodInfo     ,-    hitTestResultGetLinkLabel               ,----- ** hitTestResultGetLinkTitle-    HitTestResultGetLinkTitleMethodInfo     ,-    hitTestResultGetLinkTitle               ,----- ** hitTestResultGetLinkUri-    HitTestResultGetLinkUriMethodInfo       ,-    hitTestResultGetLinkUri                 ,----- ** hitTestResultGetMediaUri-    HitTestResultGetMediaUriMethodInfo      ,-    hitTestResultGetMediaUri                ,----- -- * Properties--- ** Context-    HitTestResultContextPropertyInfo        ,-    constructHitTestResultContext           ,-    getHitTestResultContext                 ,-    hitTestResultContext                    ,----- ** ImageUri-    HitTestResultImageUriPropertyInfo       ,-    constructHitTestResultImageUri          ,-    getHitTestResultImageUri                ,-    hitTestResultImageUri                   ,----- ** LinkLabel-    HitTestResultLinkLabelPropertyInfo      ,-    constructHitTestResultLinkLabel         ,-    getHitTestResultLinkLabel               ,-    hitTestResultLinkLabel                  ,----- ** LinkTitle-    HitTestResultLinkTitlePropertyInfo      ,-    constructHitTestResultLinkTitle         ,-    getHitTestResultLinkTitle               ,-    hitTestResultLinkTitle                  ,----- ** LinkUri-    HitTestResultLinkUriPropertyInfo        ,-    constructHitTestResultLinkUri           ,-    getHitTestResultLinkUri                 ,-    hitTestResultLinkUri                    ,----- ** MediaUri-    HitTestResultMediaUriPropertyInfo       ,-    constructHitTestResultMediaUri          ,-    getHitTestResultMediaUri                ,-    hitTestResultMediaUri                   ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject--newtype HitTestResult = HitTestResult (ForeignPtr HitTestResult)-foreign import ccall "webkit_hit_test_result_get_type"-    c_webkit_hit_test_result_get_type :: IO GType--type instance ParentTypes HitTestResult = HitTestResultParentTypes-type HitTestResultParentTypes = '[GObject.Object]--instance GObject HitTestResult where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_hit_test_result_get_type-    --class GObject o => HitTestResultK o-instance (GObject o, IsDescendantOf HitTestResult o) => HitTestResultK o--toHitTestResult :: HitTestResultK o => o -> IO HitTestResult-toHitTestResult = unsafeCastTo HitTestResult--noHitTestResult :: Maybe HitTestResult-noHitTestResult = Nothing--type family ResolveHitTestResultMethod (t :: Symbol) (o :: *) :: * where-    ResolveHitTestResultMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveHitTestResultMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveHitTestResultMethod "contextIsEditable" o = HitTestResultContextIsEditableMethodInfo-    ResolveHitTestResultMethod "contextIsImage" o = HitTestResultContextIsImageMethodInfo-    ResolveHitTestResultMethod "contextIsLink" o = HitTestResultContextIsLinkMethodInfo-    ResolveHitTestResultMethod "contextIsMedia" o = HitTestResultContextIsMediaMethodInfo-    ResolveHitTestResultMethod "contextIsScrollbar" o = HitTestResultContextIsScrollbarMethodInfo-    ResolveHitTestResultMethod "contextIsSelection" o = HitTestResultContextIsSelectionMethodInfo-    ResolveHitTestResultMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveHitTestResultMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveHitTestResultMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveHitTestResultMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveHitTestResultMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveHitTestResultMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveHitTestResultMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveHitTestResultMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveHitTestResultMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveHitTestResultMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveHitTestResultMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveHitTestResultMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveHitTestResultMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveHitTestResultMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveHitTestResultMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveHitTestResultMethod "getContext" o = HitTestResultGetContextMethodInfo-    ResolveHitTestResultMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveHitTestResultMethod "getImageUri" o = HitTestResultGetImageUriMethodInfo-    ResolveHitTestResultMethod "getLinkLabel" o = HitTestResultGetLinkLabelMethodInfo-    ResolveHitTestResultMethod "getLinkTitle" o = HitTestResultGetLinkTitleMethodInfo-    ResolveHitTestResultMethod "getLinkUri" o = HitTestResultGetLinkUriMethodInfo-    ResolveHitTestResultMethod "getMediaUri" o = HitTestResultGetMediaUriMethodInfo-    ResolveHitTestResultMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveHitTestResultMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveHitTestResultMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveHitTestResultMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveHitTestResultMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveHitTestResultMethod t HitTestResult, MethodInfo info HitTestResult p) => IsLabelProxy t (HitTestResult -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveHitTestResultMethod t HitTestResult, MethodInfo info HitTestResult p) => IsLabel t (HitTestResult -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "context"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getHitTestResultContext :: (MonadIO m, HitTestResultK o) => o -> m Word32-getHitTestResultContext obj = liftIO $ getObjectPropertyUInt32 obj "context"--constructHitTestResultContext :: Word32 -> IO ([Char], GValue)-constructHitTestResultContext val = constructObjectPropertyUInt32 "context" val--data HitTestResultContextPropertyInfo-instance AttrInfo HitTestResultContextPropertyInfo where-    type AttrAllowedOps HitTestResultContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint HitTestResultContextPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint HitTestResultContextPropertyInfo = HitTestResultK-    type AttrGetType HitTestResultContextPropertyInfo = Word32-    type AttrLabel HitTestResultContextPropertyInfo = "context"-    attrGet _ = getHitTestResultContext-    attrSet _ = undefined-    attrConstruct _ = constructHitTestResultContext-    attrClear _ = undefined---- VVV Prop "image-uri"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getHitTestResultImageUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text-getHitTestResultImageUri obj = liftIO $ checkUnexpectedNothing "getHitTestResultImageUri" $ getObjectPropertyString obj "image-uri"--constructHitTestResultImageUri :: T.Text -> IO ([Char], GValue)-constructHitTestResultImageUri val = constructObjectPropertyString "image-uri" (Just val)--data HitTestResultImageUriPropertyInfo-instance AttrInfo HitTestResultImageUriPropertyInfo where-    type AttrAllowedOps HitTestResultImageUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint HitTestResultImageUriPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint HitTestResultImageUriPropertyInfo = HitTestResultK-    type AttrGetType HitTestResultImageUriPropertyInfo = T.Text-    type AttrLabel HitTestResultImageUriPropertyInfo = "image-uri"-    attrGet _ = getHitTestResultImageUri-    attrSet _ = undefined-    attrConstruct _ = constructHitTestResultImageUri-    attrClear _ = undefined---- VVV Prop "link-label"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getHitTestResultLinkLabel :: (MonadIO m, HitTestResultK o) => o -> m T.Text-getHitTestResultLinkLabel obj = liftIO $ checkUnexpectedNothing "getHitTestResultLinkLabel" $ getObjectPropertyString obj "link-label"--constructHitTestResultLinkLabel :: T.Text -> IO ([Char], GValue)-constructHitTestResultLinkLabel val = constructObjectPropertyString "link-label" (Just val)--data HitTestResultLinkLabelPropertyInfo-instance AttrInfo HitTestResultLinkLabelPropertyInfo where-    type AttrAllowedOps HitTestResultLinkLabelPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint HitTestResultLinkLabelPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint HitTestResultLinkLabelPropertyInfo = HitTestResultK-    type AttrGetType HitTestResultLinkLabelPropertyInfo = T.Text-    type AttrLabel HitTestResultLinkLabelPropertyInfo = "link-label"-    attrGet _ = getHitTestResultLinkLabel-    attrSet _ = undefined-    attrConstruct _ = constructHitTestResultLinkLabel-    attrClear _ = undefined---- VVV Prop "link-title"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getHitTestResultLinkTitle :: (MonadIO m, HitTestResultK o) => o -> m T.Text-getHitTestResultLinkTitle obj = liftIO $ checkUnexpectedNothing "getHitTestResultLinkTitle" $ getObjectPropertyString obj "link-title"--constructHitTestResultLinkTitle :: T.Text -> IO ([Char], GValue)-constructHitTestResultLinkTitle val = constructObjectPropertyString "link-title" (Just val)--data HitTestResultLinkTitlePropertyInfo-instance AttrInfo HitTestResultLinkTitlePropertyInfo where-    type AttrAllowedOps HitTestResultLinkTitlePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint HitTestResultLinkTitlePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint HitTestResultLinkTitlePropertyInfo = HitTestResultK-    type AttrGetType HitTestResultLinkTitlePropertyInfo = T.Text-    type AttrLabel HitTestResultLinkTitlePropertyInfo = "link-title"-    attrGet _ = getHitTestResultLinkTitle-    attrSet _ = undefined-    attrConstruct _ = constructHitTestResultLinkTitle-    attrClear _ = undefined---- VVV Prop "link-uri"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getHitTestResultLinkUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text-getHitTestResultLinkUri obj = liftIO $ checkUnexpectedNothing "getHitTestResultLinkUri" $ getObjectPropertyString obj "link-uri"--constructHitTestResultLinkUri :: T.Text -> IO ([Char], GValue)-constructHitTestResultLinkUri val = constructObjectPropertyString "link-uri" (Just val)--data HitTestResultLinkUriPropertyInfo-instance AttrInfo HitTestResultLinkUriPropertyInfo where-    type AttrAllowedOps HitTestResultLinkUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint HitTestResultLinkUriPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint HitTestResultLinkUriPropertyInfo = HitTestResultK-    type AttrGetType HitTestResultLinkUriPropertyInfo = T.Text-    type AttrLabel HitTestResultLinkUriPropertyInfo = "link-uri"-    attrGet _ = getHitTestResultLinkUri-    attrSet _ = undefined-    attrConstruct _ = constructHitTestResultLinkUri-    attrClear _ = undefined---- VVV Prop "media-uri"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getHitTestResultMediaUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text-getHitTestResultMediaUri obj = liftIO $ checkUnexpectedNothing "getHitTestResultMediaUri" $ getObjectPropertyString obj "media-uri"--constructHitTestResultMediaUri :: T.Text -> IO ([Char], GValue)-constructHitTestResultMediaUri val = constructObjectPropertyString "media-uri" (Just val)--data HitTestResultMediaUriPropertyInfo-instance AttrInfo HitTestResultMediaUriPropertyInfo where-    type AttrAllowedOps HitTestResultMediaUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint HitTestResultMediaUriPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint HitTestResultMediaUriPropertyInfo = HitTestResultK-    type AttrGetType HitTestResultMediaUriPropertyInfo = T.Text-    type AttrLabel HitTestResultMediaUriPropertyInfo = "media-uri"-    attrGet _ = getHitTestResultMediaUri-    attrSet _ = undefined-    attrConstruct _ = constructHitTestResultMediaUri-    attrClear _ = undefined--type instance AttributeList HitTestResult = HitTestResultAttributeList-type HitTestResultAttributeList = ('[ '("context", HitTestResultContextPropertyInfo), '("imageUri", HitTestResultImageUriPropertyInfo), '("linkLabel", HitTestResultLinkLabelPropertyInfo), '("linkTitle", HitTestResultLinkTitlePropertyInfo), '("linkUri", HitTestResultLinkUriPropertyInfo), '("mediaUri", HitTestResultMediaUriPropertyInfo)] :: [(Symbol, *)])--hitTestResultContext :: AttrLabelProxy "context"-hitTestResultContext = AttrLabelProxy--hitTestResultImageUri :: AttrLabelProxy "imageUri"-hitTestResultImageUri = AttrLabelProxy--hitTestResultLinkLabel :: AttrLabelProxy "linkLabel"-hitTestResultLinkLabel = AttrLabelProxy--hitTestResultLinkTitle :: AttrLabelProxy "linkTitle"-hitTestResultLinkTitle = AttrLabelProxy--hitTestResultLinkUri :: AttrLabelProxy "linkUri"-hitTestResultLinkUri = AttrLabelProxy--hitTestResultMediaUri :: AttrLabelProxy "mediaUri"-hitTestResultMediaUri = AttrLabelProxy--type instance SignalList HitTestResult = HitTestResultSignalList-type HitTestResultSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method HitTestResult::context_is_editable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_hit_test_result_context_is_editable" webkit_hit_test_result_context_is_editable :: -    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"-    IO CInt---hitTestResultContextIsEditable ::-    (MonadIO m, HitTestResultK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-hitTestResultContextIsEditable _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_hit_test_result_context_is_editable _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data HitTestResultContextIsEditableMethodInfo-instance (signature ~ (m Bool), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultContextIsEditableMethodInfo a signature where-    overloadedMethod _ = hitTestResultContextIsEditable---- method HitTestResult::context_is_image--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_hit_test_result_context_is_image" webkit_hit_test_result_context_is_image :: -    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"-    IO CInt---hitTestResultContextIsImage ::-    (MonadIO m, HitTestResultK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-hitTestResultContextIsImage _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_hit_test_result_context_is_image _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data HitTestResultContextIsImageMethodInfo-instance (signature ~ (m Bool), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultContextIsImageMethodInfo a signature where-    overloadedMethod _ = hitTestResultContextIsImage---- method HitTestResult::context_is_link--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_hit_test_result_context_is_link" webkit_hit_test_result_context_is_link :: -    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"-    IO CInt---hitTestResultContextIsLink ::-    (MonadIO m, HitTestResultK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-hitTestResultContextIsLink _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_hit_test_result_context_is_link _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data HitTestResultContextIsLinkMethodInfo-instance (signature ~ (m Bool), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultContextIsLinkMethodInfo a signature where-    overloadedMethod _ = hitTestResultContextIsLink---- method HitTestResult::context_is_media--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_hit_test_result_context_is_media" webkit_hit_test_result_context_is_media :: -    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"-    IO CInt---hitTestResultContextIsMedia ::-    (MonadIO m, HitTestResultK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-hitTestResultContextIsMedia _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_hit_test_result_context_is_media _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data HitTestResultContextIsMediaMethodInfo-instance (signature ~ (m Bool), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultContextIsMediaMethodInfo a signature where-    overloadedMethod _ = hitTestResultContextIsMedia---- method HitTestResult::context_is_scrollbar--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_hit_test_result_context_is_scrollbar" webkit_hit_test_result_context_is_scrollbar :: -    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"-    IO CInt---hitTestResultContextIsScrollbar ::-    (MonadIO m, HitTestResultK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-hitTestResultContextIsScrollbar _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_hit_test_result_context_is_scrollbar _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data HitTestResultContextIsScrollbarMethodInfo-instance (signature ~ (m Bool), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultContextIsScrollbarMethodInfo a signature where-    overloadedMethod _ = hitTestResultContextIsScrollbar---- method HitTestResult::context_is_selection--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_hit_test_result_context_is_selection" webkit_hit_test_result_context_is_selection :: -    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"-    IO CInt---hitTestResultContextIsSelection ::-    (MonadIO m, HitTestResultK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-hitTestResultContextIsSelection _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_hit_test_result_context_is_selection _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data HitTestResultContextIsSelectionMethodInfo-instance (signature ~ (m Bool), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultContextIsSelectionMethodInfo a signature where-    overloadedMethod _ = hitTestResultContextIsSelection---- method HitTestResult::get_context--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "webkit_hit_test_result_get_context" webkit_hit_test_result_get_context :: -    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"-    IO Word32---hitTestResultGetContext ::-    (MonadIO m, HitTestResultK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-hitTestResultGetContext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_hit_test_result_get_context _obj'-    touchManagedPtr _obj-    return result--data HitTestResultGetContextMethodInfo-instance (signature ~ (m Word32), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultGetContextMethodInfo a signature where-    overloadedMethod _ = hitTestResultGetContext---- method HitTestResult::get_image_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_hit_test_result_get_image_uri" webkit_hit_test_result_get_image_uri :: -    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"-    IO CString---hitTestResultGetImageUri ::-    (MonadIO m, HitTestResultK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-hitTestResultGetImageUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_hit_test_result_get_image_uri _obj'-    checkUnexpectedReturnNULL "webkit_hit_test_result_get_image_uri" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data HitTestResultGetImageUriMethodInfo-instance (signature ~ (m T.Text), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultGetImageUriMethodInfo a signature where-    overloadedMethod _ = hitTestResultGetImageUri---- method HitTestResult::get_link_label--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_hit_test_result_get_link_label" webkit_hit_test_result_get_link_label :: -    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"-    IO CString---hitTestResultGetLinkLabel ::-    (MonadIO m, HitTestResultK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-hitTestResultGetLinkLabel _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_hit_test_result_get_link_label _obj'-    checkUnexpectedReturnNULL "webkit_hit_test_result_get_link_label" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data HitTestResultGetLinkLabelMethodInfo-instance (signature ~ (m T.Text), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultGetLinkLabelMethodInfo a signature where-    overloadedMethod _ = hitTestResultGetLinkLabel---- method HitTestResult::get_link_title--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_hit_test_result_get_link_title" webkit_hit_test_result_get_link_title :: -    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"-    IO CString---hitTestResultGetLinkTitle ::-    (MonadIO m, HitTestResultK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-hitTestResultGetLinkTitle _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_hit_test_result_get_link_title _obj'-    checkUnexpectedReturnNULL "webkit_hit_test_result_get_link_title" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data HitTestResultGetLinkTitleMethodInfo-instance (signature ~ (m T.Text), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultGetLinkTitleMethodInfo a signature where-    overloadedMethod _ = hitTestResultGetLinkTitle---- method HitTestResult::get_link_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_hit_test_result_get_link_uri" webkit_hit_test_result_get_link_uri :: -    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"-    IO CString---hitTestResultGetLinkUri ::-    (MonadIO m, HitTestResultK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-hitTestResultGetLinkUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_hit_test_result_get_link_uri _obj'-    checkUnexpectedReturnNULL "webkit_hit_test_result_get_link_uri" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data HitTestResultGetLinkUriMethodInfo-instance (signature ~ (m T.Text), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultGetLinkUriMethodInfo a signature where-    overloadedMethod _ = hitTestResultGetLinkUri---- method HitTestResult::get_media_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_hit_test_result_get_media_uri" webkit_hit_test_result_get_media_uri :: -    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2" "HitTestResult"-    IO CString---hitTestResultGetMediaUri ::-    (MonadIO m, HitTestResultK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-hitTestResultGetMediaUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_hit_test_result_get_media_uri _obj'-    checkUnexpectedReturnNULL "webkit_hit_test_result_get_media_uri" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data HitTestResultGetMediaUriMethodInfo-instance (signature ~ (m T.Text), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultGetMediaUriMethodInfo a signature where-    overloadedMethod _ = hitTestResultGetMediaUri--
− GI/WebKit2/Objects/HitTestResult.hs-boot 
@@ -1,31 +0,0 @@-module GI.WebKit2.Objects.HitTestResult where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype HitTestResult = HitTestResult (ForeignPtr HitTestResult)-instance GObject HitTestResult where-class GObject o => HitTestResultK o-instance (GObject o, IsDescendantOf HitTestResult o) => HitTestResultK o-data HitTestResultContextPropertyInfo-data HitTestResultImageUriPropertyInfo-data HitTestResultLinkLabelPropertyInfo-data HitTestResultLinkTitlePropertyInfo-data HitTestResultLinkUriPropertyInfo-data HitTestResultMediaUriPropertyInfo-data HitTestResultContextIsEditableMethodInfo-data HitTestResultContextIsImageMethodInfo-data HitTestResultContextIsLinkMethodInfo-data HitTestResultContextIsMediaMethodInfo-data HitTestResultContextIsScrollbarMethodInfo-data HitTestResultContextIsSelectionMethodInfo-data HitTestResultGetContextMethodInfo-data HitTestResultGetImageUriMethodInfo-data HitTestResultGetLinkLabelMethodInfo-data HitTestResultGetLinkTitleMethodInfo-data HitTestResultGetLinkUriMethodInfo-data HitTestResultGetMediaUriMethodInfo
− GI/WebKit2/Objects/InstallMissingMediaPluginsPermissionRequest.hs 
@@ -1,132 +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.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest-    ( ---- * Exported types-    InstallMissingMediaPluginsPermissionRequest(..),-    InstallMissingMediaPluginsPermissionRequestK,-    toInstallMissingMediaPluginsPermissionRequest,-    noInstallMissingMediaPluginsPermissionRequest,--- -- * Methods--- ** installMissingMediaPluginsPermissionRequestGetDescription-    InstallMissingMediaPluginsPermissionRequestGetDescriptionMethodInfo,-    installMissingMediaPluginsPermissionRequestGetDescription,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject--newtype InstallMissingMediaPluginsPermissionRequest = InstallMissingMediaPluginsPermissionRequest (ForeignPtr InstallMissingMediaPluginsPermissionRequest)-foreign import ccall "webkit_install_missing_media_plugins_permission_request_get_type"-    c_webkit_install_missing_media_plugins_permission_request_get_type :: IO GType--type instance ParentTypes InstallMissingMediaPluginsPermissionRequest = InstallMissingMediaPluginsPermissionRequestParentTypes-type InstallMissingMediaPluginsPermissionRequestParentTypes = '[GObject.Object, PermissionRequest]--instance GObject InstallMissingMediaPluginsPermissionRequest where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_install_missing_media_plugins_permission_request_get_type-    --class GObject o => InstallMissingMediaPluginsPermissionRequestK o-instance (GObject o, IsDescendantOf InstallMissingMediaPluginsPermissionRequest o) => InstallMissingMediaPluginsPermissionRequestK o--toInstallMissingMediaPluginsPermissionRequest :: InstallMissingMediaPluginsPermissionRequestK o => o -> IO InstallMissingMediaPluginsPermissionRequest-toInstallMissingMediaPluginsPermissionRequest = unsafeCastTo InstallMissingMediaPluginsPermissionRequest--noInstallMissingMediaPluginsPermissionRequest :: Maybe InstallMissingMediaPluginsPermissionRequest-noInstallMissingMediaPluginsPermissionRequest = Nothing--type family ResolveInstallMissingMediaPluginsPermissionRequestMethod (t :: Symbol) (o :: *) :: * where-    ResolveInstallMissingMediaPluginsPermissionRequestMethod "allow" o = PermissionRequestAllowMethodInfo-    ResolveInstallMissingMediaPluginsPermissionRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveInstallMissingMediaPluginsPermissionRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveInstallMissingMediaPluginsPermissionRequestMethod "deny" o = PermissionRequestDenyMethodInfo-    ResolveInstallMissingMediaPluginsPermissionRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveInstallMissingMediaPluginsPermissionRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveInstallMissingMediaPluginsPermissionRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveInstallMissingMediaPluginsPermissionRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveInstallMissingMediaPluginsPermissionRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveInstallMissingMediaPluginsPermissionRequestMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveInstallMissingMediaPluginsPermissionRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveInstallMissingMediaPluginsPermissionRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveInstallMissingMediaPluginsPermissionRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveInstallMissingMediaPluginsPermissionRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveInstallMissingMediaPluginsPermissionRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveInstallMissingMediaPluginsPermissionRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveInstallMissingMediaPluginsPermissionRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveInstallMissingMediaPluginsPermissionRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveInstallMissingMediaPluginsPermissionRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveInstallMissingMediaPluginsPermissionRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveInstallMissingMediaPluginsPermissionRequestMethod "getDescription" o = InstallMissingMediaPluginsPermissionRequestGetDescriptionMethodInfo-    ResolveInstallMissingMediaPluginsPermissionRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveInstallMissingMediaPluginsPermissionRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveInstallMissingMediaPluginsPermissionRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveInstallMissingMediaPluginsPermissionRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveInstallMissingMediaPluginsPermissionRequestMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveInstallMissingMediaPluginsPermissionRequestMethod t InstallMissingMediaPluginsPermissionRequest, MethodInfo info InstallMissingMediaPluginsPermissionRequest p) => IsLabelProxy t (InstallMissingMediaPluginsPermissionRequest -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveInstallMissingMediaPluginsPermissionRequestMethod t InstallMissingMediaPluginsPermissionRequest, MethodInfo info InstallMissingMediaPluginsPermissionRequest p) => IsLabel t (InstallMissingMediaPluginsPermissionRequest -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList InstallMissingMediaPluginsPermissionRequest = InstallMissingMediaPluginsPermissionRequestAttributeList-type InstallMissingMediaPluginsPermissionRequestAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList InstallMissingMediaPluginsPermissionRequest = InstallMissingMediaPluginsPermissionRequestSignalList-type InstallMissingMediaPluginsPermissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method InstallMissingMediaPluginsPermissionRequest::get_description--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "InstallMissingMediaPluginsPermissionRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_install_missing_media_plugins_permission_request_get_description" webkit_install_missing_media_plugins_permission_request_get_description :: -    Ptr InstallMissingMediaPluginsPermissionRequest -> -- _obj : TInterface "WebKit2" "InstallMissingMediaPluginsPermissionRequest"-    IO CString---installMissingMediaPluginsPermissionRequestGetDescription ::-    (MonadIO m, InstallMissingMediaPluginsPermissionRequestK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-installMissingMediaPluginsPermissionRequestGetDescription _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_install_missing_media_plugins_permission_request_get_description _obj'-    checkUnexpectedReturnNULL "webkit_install_missing_media_plugins_permission_request_get_description" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data InstallMissingMediaPluginsPermissionRequestGetDescriptionMethodInfo-instance (signature ~ (m T.Text), MonadIO m, InstallMissingMediaPluginsPermissionRequestK a) => MethodInfo InstallMissingMediaPluginsPermissionRequestGetDescriptionMethodInfo a signature where-    overloadedMethod _ = installMissingMediaPluginsPermissionRequestGetDescription--
− GI/WebKit2/Objects/InstallMissingMediaPluginsPermissionRequest.hs-boot 
@@ -1,14 +0,0 @@-module GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype InstallMissingMediaPluginsPermissionRequest = InstallMissingMediaPluginsPermissionRequest (ForeignPtr InstallMissingMediaPluginsPermissionRequest)-instance GObject InstallMissingMediaPluginsPermissionRequest where-class GObject o => InstallMissingMediaPluginsPermissionRequestK o-instance (GObject o, IsDescendantOf InstallMissingMediaPluginsPermissionRequest o) => InstallMissingMediaPluginsPermissionRequestK o-data InstallMissingMediaPluginsPermissionRequestGetDescriptionMethodInfo
− GI/WebKit2/Objects/NavigationPolicyDecision.hs 
@@ -1,480 +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.WebKit2.Objects.NavigationPolicyDecision-    ( ---- * Exported types-    NavigationPolicyDecision(..)            ,-    NavigationPolicyDecisionK               ,-    toNavigationPolicyDecision              ,-    noNavigationPolicyDecision              ,--- -- * Methods--- ** navigationPolicyDecisionGetFrameName-    NavigationPolicyDecisionGetFrameNameMethodInfo,-    navigationPolicyDecisionGetFrameName    ,----- ** navigationPolicyDecisionGetModifiers-    NavigationPolicyDecisionGetModifiersMethodInfo,-    navigationPolicyDecisionGetModifiers    ,----- ** navigationPolicyDecisionGetMouseButton-    NavigationPolicyDecisionGetMouseButtonMethodInfo,-    navigationPolicyDecisionGetMouseButton  ,----- ** navigationPolicyDecisionGetNavigationAction-    NavigationPolicyDecisionGetNavigationActionMethodInfo,-    navigationPolicyDecisionGetNavigationAction,----- ** navigationPolicyDecisionGetNavigationType-    NavigationPolicyDecisionGetNavigationTypeMethodInfo,-    navigationPolicyDecisionGetNavigationType,----- ** navigationPolicyDecisionGetRequest-    NavigationPolicyDecisionGetRequestMethodInfo,-    navigationPolicyDecisionGetRequest      ,----- -- * Properties--- ** FrameName-    NavigationPolicyDecisionFrameNamePropertyInfo,-    getNavigationPolicyDecisionFrameName    ,-    navigationPolicyDecisionFrameName       ,----- ** Modifiers-    NavigationPolicyDecisionModifiersPropertyInfo,-    getNavigationPolicyDecisionModifiers    ,-    navigationPolicyDecisionModifiers       ,----- ** MouseButton-    NavigationPolicyDecisionMouseButtonPropertyInfo,-    getNavigationPolicyDecisionMouseButton  ,-    navigationPolicyDecisionMouseButton     ,----- ** NavigationAction-    NavigationPolicyDecisionNavigationActionPropertyInfo,-    getNavigationPolicyDecisionNavigationAction,-    navigationPolicyDecisionNavigationAction,----- ** NavigationType-    NavigationPolicyDecisionNavigationTypePropertyInfo,-    getNavigationPolicyDecisionNavigationType,-    navigationPolicyDecisionNavigationType  ,----- ** Request-    NavigationPolicyDecisionRequestPropertyInfo,-    getNavigationPolicyDecisionRequest      ,-    navigationPolicyDecisionRequest         ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject--newtype NavigationPolicyDecision = NavigationPolicyDecision (ForeignPtr NavigationPolicyDecision)-foreign import ccall "webkit_navigation_policy_decision_get_type"-    c_webkit_navigation_policy_decision_get_type :: IO GType--type instance ParentTypes NavigationPolicyDecision = NavigationPolicyDecisionParentTypes-type NavigationPolicyDecisionParentTypes = '[PolicyDecision, GObject.Object]--instance GObject NavigationPolicyDecision where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_navigation_policy_decision_get_type-    --class GObject o => NavigationPolicyDecisionK o-instance (GObject o, IsDescendantOf NavigationPolicyDecision o) => NavigationPolicyDecisionK o--toNavigationPolicyDecision :: NavigationPolicyDecisionK o => o -> IO NavigationPolicyDecision-toNavigationPolicyDecision = unsafeCastTo NavigationPolicyDecision--noNavigationPolicyDecision :: Maybe NavigationPolicyDecision-noNavigationPolicyDecision = Nothing--type family ResolveNavigationPolicyDecisionMethod (t :: Symbol) (o :: *) :: * where-    ResolveNavigationPolicyDecisionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveNavigationPolicyDecisionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveNavigationPolicyDecisionMethod "download" o = PolicyDecisionDownloadMethodInfo-    ResolveNavigationPolicyDecisionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveNavigationPolicyDecisionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveNavigationPolicyDecisionMethod "ignore" o = PolicyDecisionIgnoreMethodInfo-    ResolveNavigationPolicyDecisionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveNavigationPolicyDecisionMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveNavigationPolicyDecisionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveNavigationPolicyDecisionMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveNavigationPolicyDecisionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveNavigationPolicyDecisionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveNavigationPolicyDecisionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveNavigationPolicyDecisionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveNavigationPolicyDecisionMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveNavigationPolicyDecisionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveNavigationPolicyDecisionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveNavigationPolicyDecisionMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveNavigationPolicyDecisionMethod "use" o = PolicyDecisionUseMethodInfo-    ResolveNavigationPolicyDecisionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveNavigationPolicyDecisionMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveNavigationPolicyDecisionMethod "getFrameName" o = NavigationPolicyDecisionGetFrameNameMethodInfo-    ResolveNavigationPolicyDecisionMethod "getModifiers" o = NavigationPolicyDecisionGetModifiersMethodInfo-    ResolveNavigationPolicyDecisionMethod "getMouseButton" o = NavigationPolicyDecisionGetMouseButtonMethodInfo-    ResolveNavigationPolicyDecisionMethod "getNavigationAction" o = NavigationPolicyDecisionGetNavigationActionMethodInfo-    ResolveNavigationPolicyDecisionMethod "getNavigationType" o = NavigationPolicyDecisionGetNavigationTypeMethodInfo-    ResolveNavigationPolicyDecisionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveNavigationPolicyDecisionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveNavigationPolicyDecisionMethod "getRequest" o = NavigationPolicyDecisionGetRequestMethodInfo-    ResolveNavigationPolicyDecisionMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveNavigationPolicyDecisionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveNavigationPolicyDecisionMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveNavigationPolicyDecisionMethod t NavigationPolicyDecision, MethodInfo info NavigationPolicyDecision p) => IsLabelProxy t (NavigationPolicyDecision -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveNavigationPolicyDecisionMethod t NavigationPolicyDecision, MethodInfo info NavigationPolicyDecision p) => IsLabel t (NavigationPolicyDecision -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "frame-name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getNavigationPolicyDecisionFrameName :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m T.Text-getNavigationPolicyDecisionFrameName obj = liftIO $ checkUnexpectedNothing "getNavigationPolicyDecisionFrameName" $ getObjectPropertyString obj "frame-name"--data NavigationPolicyDecisionFrameNamePropertyInfo-instance AttrInfo NavigationPolicyDecisionFrameNamePropertyInfo where-    type AttrAllowedOps NavigationPolicyDecisionFrameNamePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint NavigationPolicyDecisionFrameNamePropertyInfo = (~) ()-    type AttrBaseTypeConstraint NavigationPolicyDecisionFrameNamePropertyInfo = NavigationPolicyDecisionK-    type AttrGetType NavigationPolicyDecisionFrameNamePropertyInfo = T.Text-    type AttrLabel NavigationPolicyDecisionFrameNamePropertyInfo = "frame-name"-    attrGet _ = getNavigationPolicyDecisionFrameName-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "modifiers"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getNavigationPolicyDecisionModifiers :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m Word32-getNavigationPolicyDecisionModifiers obj = liftIO $ getObjectPropertyUInt32 obj "modifiers"--data NavigationPolicyDecisionModifiersPropertyInfo-instance AttrInfo NavigationPolicyDecisionModifiersPropertyInfo where-    type AttrAllowedOps NavigationPolicyDecisionModifiersPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint NavigationPolicyDecisionModifiersPropertyInfo = (~) ()-    type AttrBaseTypeConstraint NavigationPolicyDecisionModifiersPropertyInfo = NavigationPolicyDecisionK-    type AttrGetType NavigationPolicyDecisionModifiersPropertyInfo = Word32-    type AttrLabel NavigationPolicyDecisionModifiersPropertyInfo = "modifiers"-    attrGet _ = getNavigationPolicyDecisionModifiers-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "mouse-button"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getNavigationPolicyDecisionMouseButton :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m Word32-getNavigationPolicyDecisionMouseButton obj = liftIO $ getObjectPropertyUInt32 obj "mouse-button"--data NavigationPolicyDecisionMouseButtonPropertyInfo-instance AttrInfo NavigationPolicyDecisionMouseButtonPropertyInfo where-    type AttrAllowedOps NavigationPolicyDecisionMouseButtonPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint NavigationPolicyDecisionMouseButtonPropertyInfo = (~) ()-    type AttrBaseTypeConstraint NavigationPolicyDecisionMouseButtonPropertyInfo = NavigationPolicyDecisionK-    type AttrGetType NavigationPolicyDecisionMouseButtonPropertyInfo = Word32-    type AttrLabel NavigationPolicyDecisionMouseButtonPropertyInfo = "mouse-button"-    attrGet _ = getNavigationPolicyDecisionMouseButton-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "navigation-action"-   -- Type: TInterface "WebKit2" "NavigationAction"-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getNavigationPolicyDecisionNavigationAction :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m NavigationAction-getNavigationPolicyDecisionNavigationAction obj = liftIO $ checkUnexpectedNothing "getNavigationPolicyDecisionNavigationAction" $ getObjectPropertyBoxed obj "navigation-action" NavigationAction--data NavigationPolicyDecisionNavigationActionPropertyInfo-instance AttrInfo NavigationPolicyDecisionNavigationActionPropertyInfo where-    type AttrAllowedOps NavigationPolicyDecisionNavigationActionPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint NavigationPolicyDecisionNavigationActionPropertyInfo = (~) ()-    type AttrBaseTypeConstraint NavigationPolicyDecisionNavigationActionPropertyInfo = NavigationPolicyDecisionK-    type AttrGetType NavigationPolicyDecisionNavigationActionPropertyInfo = NavigationAction-    type AttrLabel NavigationPolicyDecisionNavigationActionPropertyInfo = "navigation-action"-    attrGet _ = getNavigationPolicyDecisionNavigationAction-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "navigation-type"-   -- Type: TInterface "WebKit2" "NavigationType"-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getNavigationPolicyDecisionNavigationType :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m NavigationType-getNavigationPolicyDecisionNavigationType obj = liftIO $ getObjectPropertyEnum obj "navigation-type"--data NavigationPolicyDecisionNavigationTypePropertyInfo-instance AttrInfo NavigationPolicyDecisionNavigationTypePropertyInfo where-    type AttrAllowedOps NavigationPolicyDecisionNavigationTypePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint NavigationPolicyDecisionNavigationTypePropertyInfo = (~) ()-    type AttrBaseTypeConstraint NavigationPolicyDecisionNavigationTypePropertyInfo = NavigationPolicyDecisionK-    type AttrGetType NavigationPolicyDecisionNavigationTypePropertyInfo = NavigationType-    type AttrLabel NavigationPolicyDecisionNavigationTypePropertyInfo = "navigation-type"-    attrGet _ = getNavigationPolicyDecisionNavigationType-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "request"-   -- Type: TInterface "WebKit2" "URIRequest"-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getNavigationPolicyDecisionRequest :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m URIRequest-getNavigationPolicyDecisionRequest obj = liftIO $ checkUnexpectedNothing "getNavigationPolicyDecisionRequest" $ getObjectPropertyObject obj "request" URIRequest--data NavigationPolicyDecisionRequestPropertyInfo-instance AttrInfo NavigationPolicyDecisionRequestPropertyInfo where-    type AttrAllowedOps NavigationPolicyDecisionRequestPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint NavigationPolicyDecisionRequestPropertyInfo = (~) ()-    type AttrBaseTypeConstraint NavigationPolicyDecisionRequestPropertyInfo = NavigationPolicyDecisionK-    type AttrGetType NavigationPolicyDecisionRequestPropertyInfo = URIRequest-    type AttrLabel NavigationPolicyDecisionRequestPropertyInfo = "request"-    attrGet _ = getNavigationPolicyDecisionRequest-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined--type instance AttributeList NavigationPolicyDecision = NavigationPolicyDecisionAttributeList-type NavigationPolicyDecisionAttributeList = ('[ '("frameName", NavigationPolicyDecisionFrameNamePropertyInfo), '("modifiers", NavigationPolicyDecisionModifiersPropertyInfo), '("mouseButton", NavigationPolicyDecisionMouseButtonPropertyInfo), '("navigationAction", NavigationPolicyDecisionNavigationActionPropertyInfo), '("navigationType", NavigationPolicyDecisionNavigationTypePropertyInfo), '("request", NavigationPolicyDecisionRequestPropertyInfo)] :: [(Symbol, *)])--navigationPolicyDecisionFrameName :: AttrLabelProxy "frameName"-navigationPolicyDecisionFrameName = AttrLabelProxy--navigationPolicyDecisionModifiers :: AttrLabelProxy "modifiers"-navigationPolicyDecisionModifiers = AttrLabelProxy--navigationPolicyDecisionMouseButton :: AttrLabelProxy "mouseButton"-navigationPolicyDecisionMouseButton = AttrLabelProxy--navigationPolicyDecisionNavigationAction :: AttrLabelProxy "navigationAction"-navigationPolicyDecisionNavigationAction = AttrLabelProxy--navigationPolicyDecisionNavigationType :: AttrLabelProxy "navigationType"-navigationPolicyDecisionNavigationType = AttrLabelProxy--navigationPolicyDecisionRequest :: AttrLabelProxy "request"-navigationPolicyDecisionRequest = AttrLabelProxy--type instance SignalList NavigationPolicyDecision = NavigationPolicyDecisionSignalList-type NavigationPolicyDecisionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method NavigationPolicyDecision::get_frame_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_navigation_policy_decision_get_frame_name" webkit_navigation_policy_decision_get_frame_name :: -    Ptr NavigationPolicyDecision ->         -- _obj : TInterface "WebKit2" "NavigationPolicyDecision"-    IO CString---navigationPolicyDecisionGetFrameName ::-    (MonadIO m, NavigationPolicyDecisionK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-navigationPolicyDecisionGetFrameName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_navigation_policy_decision_get_frame_name _obj'-    checkUnexpectedReturnNULL "webkit_navigation_policy_decision_get_frame_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data NavigationPolicyDecisionGetFrameNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, NavigationPolicyDecisionK a) => MethodInfo NavigationPolicyDecisionGetFrameNameMethodInfo a signature where-    overloadedMethod _ = navigationPolicyDecisionGetFrameName---- method NavigationPolicyDecision::get_modifiers--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "webkit_navigation_policy_decision_get_modifiers" webkit_navigation_policy_decision_get_modifiers :: -    Ptr NavigationPolicyDecision ->         -- _obj : TInterface "WebKit2" "NavigationPolicyDecision"-    IO Word32--{-# DEPRECATED navigationPolicyDecisionGetModifiers ["(Since version 2.6)","Use webkit_navigation_policy_decision_get_navigation_action() instead."]#-}-navigationPolicyDecisionGetModifiers ::-    (MonadIO m, NavigationPolicyDecisionK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-navigationPolicyDecisionGetModifiers _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_navigation_policy_decision_get_modifiers _obj'-    touchManagedPtr _obj-    return result--data NavigationPolicyDecisionGetModifiersMethodInfo-instance (signature ~ (m Word32), MonadIO m, NavigationPolicyDecisionK a) => MethodInfo NavigationPolicyDecisionGetModifiersMethodInfo a signature where-    overloadedMethod _ = navigationPolicyDecisionGetModifiers---- method NavigationPolicyDecision::get_mouse_button--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "webkit_navigation_policy_decision_get_mouse_button" webkit_navigation_policy_decision_get_mouse_button :: -    Ptr NavigationPolicyDecision ->         -- _obj : TInterface "WebKit2" "NavigationPolicyDecision"-    IO Word32--{-# DEPRECATED navigationPolicyDecisionGetMouseButton ["(Since version 2.6)","Use webkit_navigation_policy_decision_get_navigation_action() instead."]#-}-navigationPolicyDecisionGetMouseButton ::-    (MonadIO m, NavigationPolicyDecisionK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-navigationPolicyDecisionGetMouseButton _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_navigation_policy_decision_get_mouse_button _obj'-    touchManagedPtr _obj-    return result--data NavigationPolicyDecisionGetMouseButtonMethodInfo-instance (signature ~ (m Word32), MonadIO m, NavigationPolicyDecisionK a) => MethodInfo NavigationPolicyDecisionGetMouseButtonMethodInfo a signature where-    overloadedMethod _ = navigationPolicyDecisionGetMouseButton---- method NavigationPolicyDecision::get_navigation_action--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "NavigationAction")--- throws : False--- Skip return : False--foreign import ccall "webkit_navigation_policy_decision_get_navigation_action" webkit_navigation_policy_decision_get_navigation_action :: -    Ptr NavigationPolicyDecision ->         -- _obj : TInterface "WebKit2" "NavigationPolicyDecision"-    IO (Ptr NavigationAction)---navigationPolicyDecisionGetNavigationAction ::-    (MonadIO m, NavigationPolicyDecisionK a) =>-    a                                       -- _obj-    -> m NavigationAction                   -- result-navigationPolicyDecisionGetNavigationAction _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_navigation_policy_decision_get_navigation_action _obj'-    checkUnexpectedReturnNULL "webkit_navigation_policy_decision_get_navigation_action" result-    result' <- (newBoxed NavigationAction) result-    touchManagedPtr _obj-    return result'--data NavigationPolicyDecisionGetNavigationActionMethodInfo-instance (signature ~ (m NavigationAction), MonadIO m, NavigationPolicyDecisionK a) => MethodInfo NavigationPolicyDecisionGetNavigationActionMethodInfo a signature where-    overloadedMethod _ = navigationPolicyDecisionGetNavigationAction---- method NavigationPolicyDecision::get_navigation_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "NavigationType")--- throws : False--- Skip return : False--foreign import ccall "webkit_navigation_policy_decision_get_navigation_type" webkit_navigation_policy_decision_get_navigation_type :: -    Ptr NavigationPolicyDecision ->         -- _obj : TInterface "WebKit2" "NavigationPolicyDecision"-    IO CUInt--{-# DEPRECATED navigationPolicyDecisionGetNavigationType ["(Since version 2.6)","Use webkit_navigation_policy_decision_get_navigation_action() instead."]#-}-navigationPolicyDecisionGetNavigationType ::-    (MonadIO m, NavigationPolicyDecisionK a) =>-    a                                       -- _obj-    -> m NavigationType                     -- result-navigationPolicyDecisionGetNavigationType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_navigation_policy_decision_get_navigation_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data NavigationPolicyDecisionGetNavigationTypeMethodInfo-instance (signature ~ (m NavigationType), MonadIO m, NavigationPolicyDecisionK a) => MethodInfo NavigationPolicyDecisionGetNavigationTypeMethodInfo a signature where-    overloadedMethod _ = navigationPolicyDecisionGetNavigationType---- method NavigationPolicyDecision::get_request--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "URIRequest")--- throws : False--- Skip return : False--foreign import ccall "webkit_navigation_policy_decision_get_request" webkit_navigation_policy_decision_get_request :: -    Ptr NavigationPolicyDecision ->         -- _obj : TInterface "WebKit2" "NavigationPolicyDecision"-    IO (Ptr URIRequest)--{-# DEPRECATED navigationPolicyDecisionGetRequest ["(Since version 2.6)","Use webkit_navigation_policy_decision_get_navigation_action() instead."]#-}-navigationPolicyDecisionGetRequest ::-    (MonadIO m, NavigationPolicyDecisionK a) =>-    a                                       -- _obj-    -> m URIRequest                         -- result-navigationPolicyDecisionGetRequest _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_navigation_policy_decision_get_request _obj'-    checkUnexpectedReturnNULL "webkit_navigation_policy_decision_get_request" result-    result' <- (newObject URIRequest) result-    touchManagedPtr _obj-    return result'--data NavigationPolicyDecisionGetRequestMethodInfo-instance (signature ~ (m URIRequest), MonadIO m, NavigationPolicyDecisionK a) => MethodInfo NavigationPolicyDecisionGetRequestMethodInfo a signature where-    overloadedMethod _ = navigationPolicyDecisionGetRequest--
− GI/WebKit2/Objects/NavigationPolicyDecision.hs-boot 
@@ -1,25 +0,0 @@-module GI.WebKit2.Objects.NavigationPolicyDecision where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype NavigationPolicyDecision = NavigationPolicyDecision (ForeignPtr NavigationPolicyDecision)-instance GObject NavigationPolicyDecision where-class GObject o => NavigationPolicyDecisionK o-instance (GObject o, IsDescendantOf NavigationPolicyDecision o) => NavigationPolicyDecisionK o-data NavigationPolicyDecisionFrameNamePropertyInfo-data NavigationPolicyDecisionModifiersPropertyInfo-data NavigationPolicyDecisionMouseButtonPropertyInfo-data NavigationPolicyDecisionNavigationActionPropertyInfo-data NavigationPolicyDecisionNavigationTypePropertyInfo-data NavigationPolicyDecisionRequestPropertyInfo-data NavigationPolicyDecisionGetFrameNameMethodInfo-data NavigationPolicyDecisionGetModifiersMethodInfo-data NavigationPolicyDecisionGetMouseButtonMethodInfo-data NavigationPolicyDecisionGetNavigationActionMethodInfo-data NavigationPolicyDecisionGetNavigationTypeMethodInfo-data NavigationPolicyDecisionGetRequestMethodInfo
− GI/WebKit2/Objects/Notification.hs 
@@ -1,467 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.WebKit2.Objects.Notification-    ( ---- * Exported types-    Notification(..)                        ,-    NotificationK                           ,-    toNotification                          ,-    noNotification                          ,--- -- * Methods--- ** notificationClicked-    NotificationClickedMethodInfo           ,-    notificationClicked                     ,----- ** notificationClose-    NotificationCloseMethodInfo             ,-    notificationClose                       ,----- ** notificationGetBody-    NotificationGetBodyMethodInfo           ,-    notificationGetBody                     ,----- ** notificationGetId-    NotificationGetIdMethodInfo             ,-    notificationGetId                       ,----- ** notificationGetTitle-    NotificationGetTitleMethodInfo          ,-    notificationGetTitle                    ,----- -- * Properties--- ** Body-    NotificationBodyPropertyInfo            ,-    getNotificationBody                     ,-    notificationBody                        ,----- ** Id-    NotificationIdPropertyInfo              ,-    getNotificationId                       ,-    notificationId                          ,----- ** Title-    NotificationTitlePropertyInfo           ,-    getNotificationTitle                    ,-    notificationTitle                       ,----- -- * Signals--- ** Clicked-    NotificationClickedCallback             ,-    NotificationClickedCallbackC            ,-    NotificationClickedSignalInfo           ,-    afterNotificationClicked                ,-    mkNotificationClickedCallback           ,-    noNotificationClickedCallback           ,-    notificationClickedCallbackWrapper      ,-    notificationClickedClosure              ,-    onNotificationClicked                   ,----- ** Closed-    NotificationClosedCallback              ,-    NotificationClosedCallbackC             ,-    NotificationClosedSignalInfo            ,-    afterNotificationClosed                 ,-    mkNotificationClosedCallback            ,-    noNotificationClosedCallback            ,-    notificationClosedCallbackWrapper       ,-    notificationClosedClosure               ,-    onNotificationClosed                    ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject--newtype Notification = Notification (ForeignPtr Notification)-foreign import ccall "webkit_notification_get_type"-    c_webkit_notification_get_type :: IO GType--type instance ParentTypes Notification = NotificationParentTypes-type NotificationParentTypes = '[GObject.Object]--instance GObject Notification where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_notification_get_type-    --class GObject o => NotificationK o-instance (GObject o, IsDescendantOf Notification o) => NotificationK o--toNotification :: NotificationK o => o -> IO Notification-toNotification = unsafeCastTo Notification--noNotification :: Maybe Notification-noNotification = Nothing--type family ResolveNotificationMethod (t :: Symbol) (o :: *) :: * where-    ResolveNotificationMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveNotificationMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveNotificationMethod "clicked" o = NotificationClickedMethodInfo-    ResolveNotificationMethod "close" o = NotificationCloseMethodInfo-    ResolveNotificationMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveNotificationMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveNotificationMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveNotificationMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveNotificationMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveNotificationMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveNotificationMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveNotificationMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveNotificationMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveNotificationMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveNotificationMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveNotificationMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveNotificationMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveNotificationMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveNotificationMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveNotificationMethod "getBody" o = NotificationGetBodyMethodInfo-    ResolveNotificationMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveNotificationMethod "getId" o = NotificationGetIdMethodInfo-    ResolveNotificationMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveNotificationMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveNotificationMethod "getTitle" o = NotificationGetTitleMethodInfo-    ResolveNotificationMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveNotificationMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveNotificationMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveNotificationMethod t Notification, MethodInfo info Notification p) => IsLabelProxy t (Notification -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveNotificationMethod t Notification, MethodInfo info Notification p) => IsLabel t (Notification -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal Notification::clicked-type NotificationClickedCallback =-    IO ()--noNotificationClickedCallback :: Maybe NotificationClickedCallback-noNotificationClickedCallback = Nothing--type NotificationClickedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkNotificationClickedCallback :: NotificationClickedCallbackC -> IO (FunPtr NotificationClickedCallbackC)--notificationClickedClosure :: NotificationClickedCallback -> IO Closure-notificationClickedClosure cb = newCClosure =<< mkNotificationClickedCallback wrapped-    where wrapped = notificationClickedCallbackWrapper cb--notificationClickedCallbackWrapper ::-    NotificationClickedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-notificationClickedCallbackWrapper _cb _ _ = do-    _cb --onNotificationClicked :: (GObject a, MonadIO m) => a -> NotificationClickedCallback -> m SignalHandlerId-onNotificationClicked obj cb = liftIO $ connectNotificationClicked obj cb SignalConnectBefore-afterNotificationClicked :: (GObject a, MonadIO m) => a -> NotificationClickedCallback -> m SignalHandlerId-afterNotificationClicked obj cb = connectNotificationClicked obj cb SignalConnectAfter--connectNotificationClicked :: (GObject a, MonadIO m) =>-                              a -> NotificationClickedCallback -> SignalConnectMode -> m SignalHandlerId-connectNotificationClicked obj cb after = liftIO $ do-    cb' <- mkNotificationClickedCallback (notificationClickedCallbackWrapper cb)-    connectSignalFunPtr obj "clicked" cb' after---- signal Notification::closed-type NotificationClosedCallback =-    IO ()--noNotificationClosedCallback :: Maybe NotificationClosedCallback-noNotificationClosedCallback = Nothing--type NotificationClosedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkNotificationClosedCallback :: NotificationClosedCallbackC -> IO (FunPtr NotificationClosedCallbackC)--notificationClosedClosure :: NotificationClosedCallback -> IO Closure-notificationClosedClosure cb = newCClosure =<< mkNotificationClosedCallback wrapped-    where wrapped = notificationClosedCallbackWrapper cb--notificationClosedCallbackWrapper ::-    NotificationClosedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-notificationClosedCallbackWrapper _cb _ _ = do-    _cb --onNotificationClosed :: (GObject a, MonadIO m) => a -> NotificationClosedCallback -> m SignalHandlerId-onNotificationClosed obj cb = liftIO $ connectNotificationClosed obj cb SignalConnectBefore-afterNotificationClosed :: (GObject a, MonadIO m) => a -> NotificationClosedCallback -> m SignalHandlerId-afterNotificationClosed obj cb = connectNotificationClosed obj cb SignalConnectAfter--connectNotificationClosed :: (GObject a, MonadIO m) =>-                             a -> NotificationClosedCallback -> SignalConnectMode -> m SignalHandlerId-connectNotificationClosed obj cb after = liftIO $ do-    cb' <- mkNotificationClosedCallback (notificationClosedCallbackWrapper cb)-    connectSignalFunPtr obj "closed" cb' after---- VVV Prop "body"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getNotificationBody :: (MonadIO m, NotificationK o) => o -> m T.Text-getNotificationBody obj = liftIO $ checkUnexpectedNothing "getNotificationBody" $ getObjectPropertyString obj "body"--data NotificationBodyPropertyInfo-instance AttrInfo NotificationBodyPropertyInfo where-    type AttrAllowedOps NotificationBodyPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint NotificationBodyPropertyInfo = (~) ()-    type AttrBaseTypeConstraint NotificationBodyPropertyInfo = NotificationK-    type AttrGetType NotificationBodyPropertyInfo = T.Text-    type AttrLabel NotificationBodyPropertyInfo = "body"-    attrGet _ = getNotificationBody-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "id"-   -- Type: TBasicType TUInt64-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getNotificationId :: (MonadIO m, NotificationK o) => o -> m Word64-getNotificationId obj = liftIO $ getObjectPropertyUInt64 obj "id"--data NotificationIdPropertyInfo-instance AttrInfo NotificationIdPropertyInfo where-    type AttrAllowedOps NotificationIdPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint NotificationIdPropertyInfo = (~) ()-    type AttrBaseTypeConstraint NotificationIdPropertyInfo = NotificationK-    type AttrGetType NotificationIdPropertyInfo = Word64-    type AttrLabel NotificationIdPropertyInfo = "id"-    attrGet _ = getNotificationId-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "title"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getNotificationTitle :: (MonadIO m, NotificationK o) => o -> m T.Text-getNotificationTitle obj = liftIO $ checkUnexpectedNothing "getNotificationTitle" $ getObjectPropertyString obj "title"--data NotificationTitlePropertyInfo-instance AttrInfo NotificationTitlePropertyInfo where-    type AttrAllowedOps NotificationTitlePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint NotificationTitlePropertyInfo = (~) ()-    type AttrBaseTypeConstraint NotificationTitlePropertyInfo = NotificationK-    type AttrGetType NotificationTitlePropertyInfo = T.Text-    type AttrLabel NotificationTitlePropertyInfo = "title"-    attrGet _ = getNotificationTitle-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined--type instance AttributeList Notification = NotificationAttributeList-type NotificationAttributeList = ('[ '("body", NotificationBodyPropertyInfo), '("id", NotificationIdPropertyInfo), '("title", NotificationTitlePropertyInfo)] :: [(Symbol, *)])--notificationBody :: AttrLabelProxy "body"-notificationBody = AttrLabelProxy--notificationId :: AttrLabelProxy "id"-notificationId = AttrLabelProxy--notificationTitle :: AttrLabelProxy "title"-notificationTitle = AttrLabelProxy--data NotificationClickedSignalInfo-instance SignalInfo NotificationClickedSignalInfo where-    type HaskellCallbackType NotificationClickedSignalInfo = NotificationClickedCallback-    connectSignal _ = connectNotificationClicked--data NotificationClosedSignalInfo-instance SignalInfo NotificationClosedSignalInfo where-    type HaskellCallbackType NotificationClosedSignalInfo = NotificationClosedCallback-    connectSignal _ = connectNotificationClosed--type instance SignalList Notification = NotificationSignalList-type NotificationSignalList = ('[ '("clicked", NotificationClickedSignalInfo), '("closed", NotificationClosedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Notification::clicked--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_notification_clicked" webkit_notification_clicked :: -    Ptr Notification ->                     -- _obj : TInterface "WebKit2" "Notification"-    IO ()---notificationClicked ::-    (MonadIO m, NotificationK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-notificationClicked _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_notification_clicked _obj'-    touchManagedPtr _obj-    return ()--data NotificationClickedMethodInfo-instance (signature ~ (m ()), MonadIO m, NotificationK a) => MethodInfo NotificationClickedMethodInfo a signature where-    overloadedMethod _ = notificationClicked---- method Notification::close--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_notification_close" webkit_notification_close :: -    Ptr Notification ->                     -- _obj : TInterface "WebKit2" "Notification"-    IO ()---notificationClose ::-    (MonadIO m, NotificationK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-notificationClose _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_notification_close _obj'-    touchManagedPtr _obj-    return ()--data NotificationCloseMethodInfo-instance (signature ~ (m ()), MonadIO m, NotificationK a) => MethodInfo NotificationCloseMethodInfo a signature where-    overloadedMethod _ = notificationClose---- method Notification::get_body--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_notification_get_body" webkit_notification_get_body :: -    Ptr Notification ->                     -- _obj : TInterface "WebKit2" "Notification"-    IO CString---notificationGetBody ::-    (MonadIO m, NotificationK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-notificationGetBody _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_notification_get_body _obj'-    checkUnexpectedReturnNULL "webkit_notification_get_body" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data NotificationGetBodyMethodInfo-instance (signature ~ (m T.Text), MonadIO m, NotificationK a) => MethodInfo NotificationGetBodyMethodInfo a signature where-    overloadedMethod _ = notificationGetBody---- method Notification::get_id--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt64)--- throws : False--- Skip return : False--foreign import ccall "webkit_notification_get_id" webkit_notification_get_id :: -    Ptr Notification ->                     -- _obj : TInterface "WebKit2" "Notification"-    IO Word64---notificationGetId ::-    (MonadIO m, NotificationK a) =>-    a                                       -- _obj-    -> m Word64                             -- result-notificationGetId _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_notification_get_id _obj'-    touchManagedPtr _obj-    return result--data NotificationGetIdMethodInfo-instance (signature ~ (m Word64), MonadIO m, NotificationK a) => MethodInfo NotificationGetIdMethodInfo a signature where-    overloadedMethod _ = notificationGetId---- method Notification::get_title--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_notification_get_title" webkit_notification_get_title :: -    Ptr Notification ->                     -- _obj : TInterface "WebKit2" "Notification"-    IO CString---notificationGetTitle ::-    (MonadIO m, NotificationK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-notificationGetTitle _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_notification_get_title _obj'-    checkUnexpectedReturnNULL "webkit_notification_get_title" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data NotificationGetTitleMethodInfo-instance (signature ~ (m T.Text), MonadIO m, NotificationK a) => MethodInfo NotificationGetTitleMethodInfo a signature where-    overloadedMethod _ = notificationGetTitle--
− GI/WebKit2/Objects/Notification.hs-boot 
@@ -1,23 +0,0 @@-module GI.WebKit2.Objects.Notification where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Notification = Notification (ForeignPtr Notification)-instance GObject Notification where-class GObject o => NotificationK o-instance (GObject o, IsDescendantOf Notification o) => NotificationK o-data NotificationBodyPropertyInfo-data NotificationIdPropertyInfo-data NotificationTitlePropertyInfo-data NotificationClickedSignalInfo-data NotificationClosedSignalInfo-data NotificationClickedMethodInfo-data NotificationCloseMethodInfo-data NotificationGetBodyMethodInfo-data NotificationGetIdMethodInfo-data NotificationGetTitleMethodInfo
− GI/WebKit2/Objects/NotificationPermissionRequest.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)--}--module GI.WebKit2.Objects.NotificationPermissionRequest-    ( ---- * Exported types-    NotificationPermissionRequest(..)       ,-    NotificationPermissionRequestK          ,-    toNotificationPermissionRequest         ,-    noNotificationPermissionRequest         ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject--newtype NotificationPermissionRequest = NotificationPermissionRequest (ForeignPtr NotificationPermissionRequest)-foreign import ccall "webkit_notification_permission_request_get_type"-    c_webkit_notification_permission_request_get_type :: IO GType--type instance ParentTypes NotificationPermissionRequest = NotificationPermissionRequestParentTypes-type NotificationPermissionRequestParentTypes = '[GObject.Object, PermissionRequest]--instance GObject NotificationPermissionRequest where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_notification_permission_request_get_type-    --class GObject o => NotificationPermissionRequestK o-instance (GObject o, IsDescendantOf NotificationPermissionRequest o) => NotificationPermissionRequestK o--toNotificationPermissionRequest :: NotificationPermissionRequestK o => o -> IO NotificationPermissionRequest-toNotificationPermissionRequest = unsafeCastTo NotificationPermissionRequest--noNotificationPermissionRequest :: Maybe NotificationPermissionRequest-noNotificationPermissionRequest = Nothing--type family ResolveNotificationPermissionRequestMethod (t :: Symbol) (o :: *) :: * where-    ResolveNotificationPermissionRequestMethod "allow" o = PermissionRequestAllowMethodInfo-    ResolveNotificationPermissionRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveNotificationPermissionRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveNotificationPermissionRequestMethod "deny" o = PermissionRequestDenyMethodInfo-    ResolveNotificationPermissionRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveNotificationPermissionRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveNotificationPermissionRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveNotificationPermissionRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveNotificationPermissionRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveNotificationPermissionRequestMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveNotificationPermissionRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveNotificationPermissionRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveNotificationPermissionRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveNotificationPermissionRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveNotificationPermissionRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveNotificationPermissionRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveNotificationPermissionRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveNotificationPermissionRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveNotificationPermissionRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveNotificationPermissionRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveNotificationPermissionRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveNotificationPermissionRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveNotificationPermissionRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveNotificationPermissionRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveNotificationPermissionRequestMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveNotificationPermissionRequestMethod t NotificationPermissionRequest, MethodInfo info NotificationPermissionRequest p) => IsLabelProxy t (NotificationPermissionRequest -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveNotificationPermissionRequestMethod t NotificationPermissionRequest, MethodInfo info NotificationPermissionRequest p) => IsLabel t (NotificationPermissionRequest -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList NotificationPermissionRequest = NotificationPermissionRequestAttributeList-type NotificationPermissionRequestAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList NotificationPermissionRequest = NotificationPermissionRequestSignalList-type NotificationPermissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--
− GI/WebKit2/Objects/NotificationPermissionRequest.hs-boot 
@@ -1,13 +0,0 @@-module GI.WebKit2.Objects.NotificationPermissionRequest where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype NotificationPermissionRequest = NotificationPermissionRequest (ForeignPtr NotificationPermissionRequest)-instance GObject NotificationPermissionRequest where-class GObject o => NotificationPermissionRequestK o-instance (GObject o, IsDescendantOf NotificationPermissionRequest o) => NotificationPermissionRequestK o
− GI/WebKit2/Objects/Plugin.hs 
@@ -1,235 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.WebKit2.Objects.Plugin-    ( ---- * Exported types-    Plugin(..)                              ,-    PluginK                                 ,-    toPlugin                                ,-    noPlugin                                ,--- -- * Methods--- ** pluginGetDescription-    PluginGetDescriptionMethodInfo          ,-    pluginGetDescription                    ,----- ** pluginGetMimeInfoList-    PluginGetMimeInfoListMethodInfo         ,-    pluginGetMimeInfoList                   ,----- ** pluginGetName-    PluginGetNameMethodInfo                 ,-    pluginGetName                           ,----- ** pluginGetPath-    PluginGetPathMethodInfo                 ,-    pluginGetPath                           ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject--newtype Plugin = Plugin (ForeignPtr Plugin)-foreign import ccall "webkit_plugin_get_type"-    c_webkit_plugin_get_type :: IO GType--type instance ParentTypes Plugin = PluginParentTypes-type PluginParentTypes = '[GObject.Object]--instance GObject Plugin where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_plugin_get_type-    --class GObject o => PluginK o-instance (GObject o, IsDescendantOf Plugin o) => PluginK o--toPlugin :: PluginK o => o -> IO Plugin-toPlugin = unsafeCastTo Plugin--noPlugin :: Maybe Plugin-noPlugin = Nothing--type family ResolvePluginMethod (t :: Symbol) (o :: *) :: * where-    ResolvePluginMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolvePluginMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolvePluginMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolvePluginMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolvePluginMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolvePluginMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolvePluginMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolvePluginMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolvePluginMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolvePluginMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolvePluginMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolvePluginMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolvePluginMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolvePluginMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolvePluginMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolvePluginMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolvePluginMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolvePluginMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolvePluginMethod "getDescription" o = PluginGetDescriptionMethodInfo-    ResolvePluginMethod "getMimeInfoList" o = PluginGetMimeInfoListMethodInfo-    ResolvePluginMethod "getName" o = PluginGetNameMethodInfo-    ResolvePluginMethod "getPath" o = PluginGetPathMethodInfo-    ResolvePluginMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolvePluginMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolvePluginMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolvePluginMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolvePluginMethod l o = MethodResolutionFailed l o--instance (info ~ ResolvePluginMethod t Plugin, MethodInfo info Plugin p) => IsLabelProxy t (Plugin -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolvePluginMethod t Plugin, MethodInfo info Plugin p) => IsLabel t (Plugin -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList Plugin = PluginAttributeList-type PluginAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList Plugin = PluginSignalList-type PluginSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Plugin::get_description--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Plugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_plugin_get_description" webkit_plugin_get_description :: -    Ptr Plugin ->                           -- _obj : TInterface "WebKit2" "Plugin"-    IO CString---pluginGetDescription ::-    (MonadIO m, PluginK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-pluginGetDescription _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_plugin_get_description _obj'-    checkUnexpectedReturnNULL "webkit_plugin_get_description" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data PluginGetDescriptionMethodInfo-instance (signature ~ (m T.Text), MonadIO m, PluginK a) => MethodInfo PluginGetDescriptionMethodInfo a signature where-    overloadedMethod _ = pluginGetDescription---- method Plugin::get_mime_info_list--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Plugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "WebKit2" "MimeInfo"))--- throws : False--- Skip return : False--foreign import ccall "webkit_plugin_get_mime_info_list" webkit_plugin_get_mime_info_list :: -    Ptr Plugin ->                           -- _obj : TInterface "WebKit2" "Plugin"-    IO (Ptr (GList (Ptr MimeInfo)))---pluginGetMimeInfoList ::-    (MonadIO m, PluginK a) =>-    a                                       -- _obj-    -> m [MimeInfo]                         -- result-pluginGetMimeInfoList _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_plugin_get_mime_info_list _obj'-    result' <- unpackGList result-    result'' <- mapM (newBoxed MimeInfo) result'-    touchManagedPtr _obj-    return result''--data PluginGetMimeInfoListMethodInfo-instance (signature ~ (m [MimeInfo]), MonadIO m, PluginK a) => MethodInfo PluginGetMimeInfoListMethodInfo a signature where-    overloadedMethod _ = pluginGetMimeInfoList---- method Plugin::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Plugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_plugin_get_name" webkit_plugin_get_name :: -    Ptr Plugin ->                           -- _obj : TInterface "WebKit2" "Plugin"-    IO CString---pluginGetName ::-    (MonadIO m, PluginK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-pluginGetName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_plugin_get_name _obj'-    checkUnexpectedReturnNULL "webkit_plugin_get_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data PluginGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, PluginK a) => MethodInfo PluginGetNameMethodInfo a signature where-    overloadedMethod _ = pluginGetName---- method Plugin::get_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Plugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_plugin_get_path" webkit_plugin_get_path :: -    Ptr Plugin ->                           -- _obj : TInterface "WebKit2" "Plugin"-    IO CString---pluginGetPath ::-    (MonadIO m, PluginK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-pluginGetPath _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_plugin_get_path _obj'-    checkUnexpectedReturnNULL "webkit_plugin_get_path" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data PluginGetPathMethodInfo-instance (signature ~ (m T.Text), MonadIO m, PluginK a) => MethodInfo PluginGetPathMethodInfo a signature where-    overloadedMethod _ = pluginGetPath--
− GI/WebKit2/Objects/Plugin.hs-boot 
@@ -1,17 +0,0 @@-module GI.WebKit2.Objects.Plugin where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Plugin = Plugin (ForeignPtr Plugin)-instance GObject Plugin where-class GObject o => PluginK o-instance (GObject o, IsDescendantOf Plugin o) => PluginK o-data PluginGetDescriptionMethodInfo-data PluginGetMimeInfoListMethodInfo-data PluginGetNameMethodInfo-data PluginGetPathMethodInfo
− GI/WebKit2/Objects/PolicyDecision.hs 
@@ -1,194 +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.WebKit2.Objects.PolicyDecision-    ( ---- * Exported types-    PolicyDecision(..)                      ,-    PolicyDecisionK                         ,-    toPolicyDecision                        ,-    noPolicyDecision                        ,--- -- * Methods--- ** policyDecisionDownload-    PolicyDecisionDownloadMethodInfo        ,-    policyDecisionDownload                  ,----- ** policyDecisionIgnore-    PolicyDecisionIgnoreMethodInfo          ,-    policyDecisionIgnore                    ,----- ** policyDecisionUse-    PolicyDecisionUseMethodInfo             ,-    policyDecisionUse                       ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject--newtype PolicyDecision = PolicyDecision (ForeignPtr PolicyDecision)-foreign import ccall "webkit_policy_decision_get_type"-    c_webkit_policy_decision_get_type :: IO GType--type instance ParentTypes PolicyDecision = PolicyDecisionParentTypes-type PolicyDecisionParentTypes = '[GObject.Object]--instance GObject PolicyDecision where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_policy_decision_get_type-    --class GObject o => PolicyDecisionK o-instance (GObject o, IsDescendantOf PolicyDecision o) => PolicyDecisionK o--toPolicyDecision :: PolicyDecisionK o => o -> IO PolicyDecision-toPolicyDecision = unsafeCastTo PolicyDecision--noPolicyDecision :: Maybe PolicyDecision-noPolicyDecision = Nothing--type family ResolvePolicyDecisionMethod (t :: Symbol) (o :: *) :: * where-    ResolvePolicyDecisionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolvePolicyDecisionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolvePolicyDecisionMethod "download" o = PolicyDecisionDownloadMethodInfo-    ResolvePolicyDecisionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolvePolicyDecisionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolvePolicyDecisionMethod "ignore" o = PolicyDecisionIgnoreMethodInfo-    ResolvePolicyDecisionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolvePolicyDecisionMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolvePolicyDecisionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolvePolicyDecisionMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolvePolicyDecisionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolvePolicyDecisionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolvePolicyDecisionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolvePolicyDecisionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolvePolicyDecisionMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolvePolicyDecisionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolvePolicyDecisionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolvePolicyDecisionMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolvePolicyDecisionMethod "use" o = PolicyDecisionUseMethodInfo-    ResolvePolicyDecisionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolvePolicyDecisionMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolvePolicyDecisionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolvePolicyDecisionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolvePolicyDecisionMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolvePolicyDecisionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolvePolicyDecisionMethod l o = MethodResolutionFailed l o--instance (info ~ ResolvePolicyDecisionMethod t PolicyDecision, MethodInfo info PolicyDecision p) => IsLabelProxy t (PolicyDecision -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolvePolicyDecisionMethod t PolicyDecision, MethodInfo info PolicyDecision p) => IsLabel t (PolicyDecision -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList PolicyDecision = PolicyDecisionAttributeList-type PolicyDecisionAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList PolicyDecision = PolicyDecisionSignalList-type PolicyDecisionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method PolicyDecision::download--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_policy_decision_download" webkit_policy_decision_download :: -    Ptr PolicyDecision ->                   -- _obj : TInterface "WebKit2" "PolicyDecision"-    IO ()---policyDecisionDownload ::-    (MonadIO m, PolicyDecisionK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-policyDecisionDownload _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_policy_decision_download _obj'-    touchManagedPtr _obj-    return ()--data PolicyDecisionDownloadMethodInfo-instance (signature ~ (m ()), MonadIO m, PolicyDecisionK a) => MethodInfo PolicyDecisionDownloadMethodInfo a signature where-    overloadedMethod _ = policyDecisionDownload---- method PolicyDecision::ignore--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_policy_decision_ignore" webkit_policy_decision_ignore :: -    Ptr PolicyDecision ->                   -- _obj : TInterface "WebKit2" "PolicyDecision"-    IO ()---policyDecisionIgnore ::-    (MonadIO m, PolicyDecisionK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-policyDecisionIgnore _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_policy_decision_ignore _obj'-    touchManagedPtr _obj-    return ()--data PolicyDecisionIgnoreMethodInfo-instance (signature ~ (m ()), MonadIO m, PolicyDecisionK a) => MethodInfo PolicyDecisionIgnoreMethodInfo a signature where-    overloadedMethod _ = policyDecisionIgnore---- method PolicyDecision::use--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_policy_decision_use" webkit_policy_decision_use :: -    Ptr PolicyDecision ->                   -- _obj : TInterface "WebKit2" "PolicyDecision"-    IO ()---policyDecisionUse ::-    (MonadIO m, PolicyDecisionK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-policyDecisionUse _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_policy_decision_use _obj'-    touchManagedPtr _obj-    return ()--data PolicyDecisionUseMethodInfo-instance (signature ~ (m ()), MonadIO m, PolicyDecisionK a) => MethodInfo PolicyDecisionUseMethodInfo a signature where-    overloadedMethod _ = policyDecisionUse--
− GI/WebKit2/Objects/PolicyDecision.hs-boot 
@@ -1,16 +0,0 @@-module GI.WebKit2.Objects.PolicyDecision where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype PolicyDecision = PolicyDecision (ForeignPtr PolicyDecision)-instance GObject PolicyDecision where-class GObject o => PolicyDecisionK o-instance (GObject o, IsDescendantOf PolicyDecision o) => PolicyDecisionK o-data PolicyDecisionDownloadMethodInfo-data PolicyDecisionIgnoreMethodInfo-data PolicyDecisionUseMethodInfo
− GI/WebKit2/Objects/PrintOperation.hs 
@@ -1,571 +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.WebKit2.Objects.PrintOperation-    ( ---- * Exported types-    PrintOperation(..)                      ,-    PrintOperationK                         ,-    toPrintOperation                        ,-    noPrintOperation                        ,--- -- * Methods--- ** printOperationGetPageSetup-    PrintOperationGetPageSetupMethodInfo    ,-    printOperationGetPageSetup              ,----- ** printOperationGetPrintSettings-    PrintOperationGetPrintSettingsMethodInfo,-    printOperationGetPrintSettings          ,----- ** printOperationNew-    printOperationNew                       ,----- ** printOperationPrint-    PrintOperationPrintMethodInfo           ,-    printOperationPrint                     ,----- ** printOperationRunDialog-    PrintOperationRunDialogMethodInfo       ,-    printOperationRunDialog                 ,----- ** printOperationSetPageSetup-    PrintOperationSetPageSetupMethodInfo    ,-    printOperationSetPageSetup              ,----- ** printOperationSetPrintSettings-    PrintOperationSetPrintSettingsMethodInfo,-    printOperationSetPrintSettings          ,----- -- * Properties--- ** PageSetup-    PrintOperationPageSetupPropertyInfo     ,-    constructPrintOperationPageSetup        ,-    getPrintOperationPageSetup              ,-    printOperationPageSetup                 ,-    setPrintOperationPageSetup              ,----- ** PrintSettings-    PrintOperationPrintSettingsPropertyInfo ,-    constructPrintOperationPrintSettings    ,-    getPrintOperationPrintSettings          ,-    printOperationPrintSettings             ,-    setPrintOperationPrintSettings          ,----- ** WebView-    PrintOperationWebViewPropertyInfo       ,-    constructPrintOperationWebView          ,-    getPrintOperationWebView                ,-    printOperationWebView                   ,----- -- * Signals--- ** Failed-    PrintOperationFailedCallback            ,-    PrintOperationFailedCallbackC           ,-    PrintOperationFailedSignalInfo          ,-    afterPrintOperationFailed               ,-    mkPrintOperationFailedCallback          ,-    noPrintOperationFailedCallback          ,-    onPrintOperationFailed                  ,-    printOperationFailedCallbackWrapper     ,-    printOperationFailedClosure             ,----- ** Finished-    PrintOperationFinishedCallback          ,-    PrintOperationFinishedCallbackC         ,-    PrintOperationFinishedSignalInfo        ,-    afterPrintOperationFinished             ,-    mkPrintOperationFinishedCallback        ,-    noPrintOperationFinishedCallback        ,-    onPrintOperationFinished                ,-    printOperationFinishedCallbackWrapper   ,-    printOperationFinishedClosure           ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject-import qualified GI.Gtk as Gtk--newtype PrintOperation = PrintOperation (ForeignPtr PrintOperation)-foreign import ccall "webkit_print_operation_get_type"-    c_webkit_print_operation_get_type :: IO GType--type instance ParentTypes PrintOperation = PrintOperationParentTypes-type PrintOperationParentTypes = '[GObject.Object]--instance GObject PrintOperation where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_print_operation_get_type-    --class GObject o => PrintOperationK o-instance (GObject o, IsDescendantOf PrintOperation o) => PrintOperationK o--toPrintOperation :: PrintOperationK o => o -> IO PrintOperation-toPrintOperation = unsafeCastTo PrintOperation--noPrintOperation :: Maybe PrintOperation-noPrintOperation = Nothing--type family ResolvePrintOperationMethod (t :: Symbol) (o :: *) :: * where-    ResolvePrintOperationMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolvePrintOperationMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolvePrintOperationMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolvePrintOperationMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolvePrintOperationMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolvePrintOperationMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolvePrintOperationMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolvePrintOperationMethod "print" o = PrintOperationPrintMethodInfo-    ResolvePrintOperationMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolvePrintOperationMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolvePrintOperationMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolvePrintOperationMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolvePrintOperationMethod "runDialog" o = PrintOperationRunDialogMethodInfo-    ResolvePrintOperationMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolvePrintOperationMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolvePrintOperationMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolvePrintOperationMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolvePrintOperationMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolvePrintOperationMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolvePrintOperationMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolvePrintOperationMethod "getPageSetup" o = PrintOperationGetPageSetupMethodInfo-    ResolvePrintOperationMethod "getPrintSettings" o = PrintOperationGetPrintSettingsMethodInfo-    ResolvePrintOperationMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolvePrintOperationMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolvePrintOperationMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolvePrintOperationMethod "setPageSetup" o = PrintOperationSetPageSetupMethodInfo-    ResolvePrintOperationMethod "setPrintSettings" o = PrintOperationSetPrintSettingsMethodInfo-    ResolvePrintOperationMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolvePrintOperationMethod l o = MethodResolutionFailed l o--instance (info ~ ResolvePrintOperationMethod t PrintOperation, MethodInfo info PrintOperation p) => IsLabelProxy t (PrintOperation -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolvePrintOperationMethod t PrintOperation, MethodInfo info PrintOperation p) => IsLabel t (PrintOperation -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal PrintOperation::failed-type PrintOperationFailedCallback =-    GError ->-    IO ()--noPrintOperationFailedCallback :: Maybe PrintOperationFailedCallback-noPrintOperationFailedCallback = Nothing--type PrintOperationFailedCallbackC =-    Ptr () ->                               -- object-    Ptr GError ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkPrintOperationFailedCallback :: PrintOperationFailedCallbackC -> IO (FunPtr PrintOperationFailedCallbackC)--printOperationFailedClosure :: PrintOperationFailedCallback -> IO Closure-printOperationFailedClosure cb = newCClosure =<< mkPrintOperationFailedCallback wrapped-    where wrapped = printOperationFailedCallbackWrapper cb--printOperationFailedCallbackWrapper ::-    PrintOperationFailedCallback ->-    Ptr () ->-    Ptr GError ->-    Ptr () ->-    IO ()-printOperationFailedCallbackWrapper _cb _ error_ _ = do-    error_' <- (newBoxed GError) error_-    _cb  error_'--onPrintOperationFailed :: (GObject a, MonadIO m) => a -> PrintOperationFailedCallback -> m SignalHandlerId-onPrintOperationFailed obj cb = liftIO $ connectPrintOperationFailed obj cb SignalConnectBefore-afterPrintOperationFailed :: (GObject a, MonadIO m) => a -> PrintOperationFailedCallback -> m SignalHandlerId-afterPrintOperationFailed obj cb = connectPrintOperationFailed obj cb SignalConnectAfter--connectPrintOperationFailed :: (GObject a, MonadIO m) =>-                               a -> PrintOperationFailedCallback -> SignalConnectMode -> m SignalHandlerId-connectPrintOperationFailed obj cb after = liftIO $ do-    cb' <- mkPrintOperationFailedCallback (printOperationFailedCallbackWrapper cb)-    connectSignalFunPtr obj "failed" cb' after---- signal PrintOperation::finished-type PrintOperationFinishedCallback =-    IO ()--noPrintOperationFinishedCallback :: Maybe PrintOperationFinishedCallback-noPrintOperationFinishedCallback = Nothing--type PrintOperationFinishedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkPrintOperationFinishedCallback :: PrintOperationFinishedCallbackC -> IO (FunPtr PrintOperationFinishedCallbackC)--printOperationFinishedClosure :: PrintOperationFinishedCallback -> IO Closure-printOperationFinishedClosure cb = newCClosure =<< mkPrintOperationFinishedCallback wrapped-    where wrapped = printOperationFinishedCallbackWrapper cb--printOperationFinishedCallbackWrapper ::-    PrintOperationFinishedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-printOperationFinishedCallbackWrapper _cb _ _ = do-    _cb --onPrintOperationFinished :: (GObject a, MonadIO m) => a -> PrintOperationFinishedCallback -> m SignalHandlerId-onPrintOperationFinished obj cb = liftIO $ connectPrintOperationFinished obj cb SignalConnectBefore-afterPrintOperationFinished :: (GObject a, MonadIO m) => a -> PrintOperationFinishedCallback -> m SignalHandlerId-afterPrintOperationFinished obj cb = connectPrintOperationFinished obj cb SignalConnectAfter--connectPrintOperationFinished :: (GObject a, MonadIO m) =>-                                 a -> PrintOperationFinishedCallback -> SignalConnectMode -> m SignalHandlerId-connectPrintOperationFinished obj cb after = liftIO $ do-    cb' <- mkPrintOperationFinishedCallback (printOperationFinishedCallbackWrapper cb)-    connectSignalFunPtr obj "finished" cb' after---- VVV Prop "page-setup"-   -- Type: TInterface "Gtk" "PageSetup"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getPrintOperationPageSetup :: (MonadIO m, PrintOperationK o) => o -> m Gtk.PageSetup-getPrintOperationPageSetup obj = liftIO $ checkUnexpectedNothing "getPrintOperationPageSetup" $ getObjectPropertyObject obj "page-setup" Gtk.PageSetup--setPrintOperationPageSetup :: (MonadIO m, PrintOperationK o, Gtk.PageSetupK a) => o -> a -> m ()-setPrintOperationPageSetup obj val = liftIO $ setObjectPropertyObject obj "page-setup" (Just val)--constructPrintOperationPageSetup :: (Gtk.PageSetupK a) => a -> IO ([Char], GValue)-constructPrintOperationPageSetup val = constructObjectPropertyObject "page-setup" (Just val)--data PrintOperationPageSetupPropertyInfo-instance AttrInfo PrintOperationPageSetupPropertyInfo where-    type AttrAllowedOps PrintOperationPageSetupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint PrintOperationPageSetupPropertyInfo = Gtk.PageSetupK-    type AttrBaseTypeConstraint PrintOperationPageSetupPropertyInfo = PrintOperationK-    type AttrGetType PrintOperationPageSetupPropertyInfo = Gtk.PageSetup-    type AttrLabel PrintOperationPageSetupPropertyInfo = "page-setup"-    attrGet _ = getPrintOperationPageSetup-    attrSet _ = setPrintOperationPageSetup-    attrConstruct _ = constructPrintOperationPageSetup-    attrClear _ = undefined---- VVV Prop "print-settings"-   -- Type: TInterface "Gtk" "PrintSettings"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getPrintOperationPrintSettings :: (MonadIO m, PrintOperationK o) => o -> m Gtk.PrintSettings-getPrintOperationPrintSettings obj = liftIO $ checkUnexpectedNothing "getPrintOperationPrintSettings" $ getObjectPropertyObject obj "print-settings" Gtk.PrintSettings--setPrintOperationPrintSettings :: (MonadIO m, PrintOperationK o, Gtk.PrintSettingsK a) => o -> a -> m ()-setPrintOperationPrintSettings obj val = liftIO $ setObjectPropertyObject obj "print-settings" (Just val)--constructPrintOperationPrintSettings :: (Gtk.PrintSettingsK a) => a -> IO ([Char], GValue)-constructPrintOperationPrintSettings val = constructObjectPropertyObject "print-settings" (Just val)--data PrintOperationPrintSettingsPropertyInfo-instance AttrInfo PrintOperationPrintSettingsPropertyInfo where-    type AttrAllowedOps PrintOperationPrintSettingsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint PrintOperationPrintSettingsPropertyInfo = Gtk.PrintSettingsK-    type AttrBaseTypeConstraint PrintOperationPrintSettingsPropertyInfo = PrintOperationK-    type AttrGetType PrintOperationPrintSettingsPropertyInfo = Gtk.PrintSettings-    type AttrLabel PrintOperationPrintSettingsPropertyInfo = "print-settings"-    attrGet _ = getPrintOperationPrintSettings-    attrSet _ = setPrintOperationPrintSettings-    attrConstruct _ = constructPrintOperationPrintSettings-    attrClear _ = undefined---- VVV Prop "web-view"-   -- Type: TInterface "WebKit2" "WebView"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getPrintOperationWebView :: (MonadIO m, PrintOperationK o) => o -> m (Maybe WebView)-getPrintOperationWebView obj = liftIO $ getObjectPropertyObject obj "web-view" WebView--constructPrintOperationWebView :: (WebViewK a) => a -> IO ([Char], GValue)-constructPrintOperationWebView val = constructObjectPropertyObject "web-view" (Just val)--data PrintOperationWebViewPropertyInfo-instance AttrInfo PrintOperationWebViewPropertyInfo where-    type AttrAllowedOps PrintOperationWebViewPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint PrintOperationWebViewPropertyInfo = WebViewK-    type AttrBaseTypeConstraint PrintOperationWebViewPropertyInfo = PrintOperationK-    type AttrGetType PrintOperationWebViewPropertyInfo = (Maybe WebView)-    type AttrLabel PrintOperationWebViewPropertyInfo = "web-view"-    attrGet _ = getPrintOperationWebView-    attrSet _ = undefined-    attrConstruct _ = constructPrintOperationWebView-    attrClear _ = undefined--type instance AttributeList PrintOperation = PrintOperationAttributeList-type PrintOperationAttributeList = ('[ '("pageSetup", PrintOperationPageSetupPropertyInfo), '("printSettings", PrintOperationPrintSettingsPropertyInfo), '("webView", PrintOperationWebViewPropertyInfo)] :: [(Symbol, *)])--printOperationPageSetup :: AttrLabelProxy "pageSetup"-printOperationPageSetup = AttrLabelProxy--printOperationPrintSettings :: AttrLabelProxy "printSettings"-printOperationPrintSettings = AttrLabelProxy--printOperationWebView :: AttrLabelProxy "webView"-printOperationWebView = AttrLabelProxy--data PrintOperationFailedSignalInfo-instance SignalInfo PrintOperationFailedSignalInfo where-    type HaskellCallbackType PrintOperationFailedSignalInfo = PrintOperationFailedCallback-    connectSignal _ = connectPrintOperationFailed--data PrintOperationFinishedSignalInfo-instance SignalInfo PrintOperationFinishedSignalInfo where-    type HaskellCallbackType PrintOperationFinishedSignalInfo = PrintOperationFinishedCallback-    connectSignal _ = connectPrintOperationFinished--type instance SignalList PrintOperation = PrintOperationSignalList-type PrintOperationSignalList = ('[ '("failed", PrintOperationFailedSignalInfo), '("finished", PrintOperationFinishedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method PrintOperation::new--- method type : Constructor--- Args : [Arg {argCName = "web_view", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "PrintOperation")--- throws : False--- Skip return : False--foreign import ccall "webkit_print_operation_new" webkit_print_operation_new :: -    Ptr WebView ->                          -- web_view : TInterface "WebKit2" "WebView"-    IO (Ptr PrintOperation)---printOperationNew ::-    (MonadIO m, WebViewK a) =>-    a                                       -- webView-    -> m PrintOperation                     -- result-printOperationNew webView = liftIO $ do-    let webView' = unsafeManagedPtrCastPtr webView-    result <- webkit_print_operation_new webView'-    checkUnexpectedReturnNULL "webkit_print_operation_new" result-    result' <- (wrapObject PrintOperation) result-    touchManagedPtr webView-    return result'---- method PrintOperation::get_page_setup--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gtk" "PageSetup")--- throws : False--- Skip return : False--foreign import ccall "webkit_print_operation_get_page_setup" webkit_print_operation_get_page_setup :: -    Ptr PrintOperation ->                   -- _obj : TInterface "WebKit2" "PrintOperation"-    IO (Ptr Gtk.PageSetup)---printOperationGetPageSetup ::-    (MonadIO m, PrintOperationK a) =>-    a                                       -- _obj-    -> m Gtk.PageSetup                      -- result-printOperationGetPageSetup _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_print_operation_get_page_setup _obj'-    checkUnexpectedReturnNULL "webkit_print_operation_get_page_setup" result-    result' <- (newObject Gtk.PageSetup) result-    touchManagedPtr _obj-    return result'--data PrintOperationGetPageSetupMethodInfo-instance (signature ~ (m Gtk.PageSetup), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationGetPageSetupMethodInfo a signature where-    overloadedMethod _ = printOperationGetPageSetup---- method PrintOperation::get_print_settings--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gtk" "PrintSettings")--- throws : False--- Skip return : False--foreign import ccall "webkit_print_operation_get_print_settings" webkit_print_operation_get_print_settings :: -    Ptr PrintOperation ->                   -- _obj : TInterface "WebKit2" "PrintOperation"-    IO (Ptr Gtk.PrintSettings)---printOperationGetPrintSettings ::-    (MonadIO m, PrintOperationK a) =>-    a                                       -- _obj-    -> m Gtk.PrintSettings                  -- result-printOperationGetPrintSettings _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_print_operation_get_print_settings _obj'-    checkUnexpectedReturnNULL "webkit_print_operation_get_print_settings" result-    result' <- (newObject Gtk.PrintSettings) result-    touchManagedPtr _obj-    return result'--data PrintOperationGetPrintSettingsMethodInfo-instance (signature ~ (m Gtk.PrintSettings), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationGetPrintSettingsMethodInfo a signature where-    overloadedMethod _ = printOperationGetPrintSettings---- method PrintOperation::print--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_print_operation_print" webkit_print_operation_print :: -    Ptr PrintOperation ->                   -- _obj : TInterface "WebKit2" "PrintOperation"-    IO ()---printOperationPrint ::-    (MonadIO m, PrintOperationK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-printOperationPrint _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_print_operation_print _obj'-    touchManagedPtr _obj-    return ()--data PrintOperationPrintMethodInfo-instance (signature ~ (m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationPrintMethodInfo a signature where-    overloadedMethod _ = printOperationPrint---- method PrintOperation::run_dialog--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "PrintOperationResponse")--- throws : False--- Skip return : False--foreign import ccall "webkit_print_operation_run_dialog" webkit_print_operation_run_dialog :: -    Ptr PrintOperation ->                   -- _obj : TInterface "WebKit2" "PrintOperation"-    Ptr Gtk.Window ->                       -- parent : TInterface "Gtk" "Window"-    IO CUInt---printOperationRunDialog ::-    (MonadIO m, PrintOperationK a, Gtk.WindowK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- parent-    -> m PrintOperationResponse             -- result-printOperationRunDialog _obj parent = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeParent <- case parent of-        Nothing -> return nullPtr-        Just jParent -> do-            let jParent' = unsafeManagedPtrCastPtr jParent-            return jParent'-    result <- webkit_print_operation_run_dialog _obj' maybeParent-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    whenJust parent touchManagedPtr-    return result'--data PrintOperationRunDialogMethodInfo-instance (signature ~ (Maybe (b) -> m PrintOperationResponse), MonadIO m, PrintOperationK a, Gtk.WindowK b) => MethodInfo PrintOperationRunDialogMethodInfo a signature where-    overloadedMethod _ = printOperationRunDialog---- method PrintOperation::set_page_setup--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_print_operation_set_page_setup" webkit_print_operation_set_page_setup :: -    Ptr PrintOperation ->                   -- _obj : TInterface "WebKit2" "PrintOperation"-    Ptr Gtk.PageSetup ->                    -- page_setup : TInterface "Gtk" "PageSetup"-    IO ()---printOperationSetPageSetup ::-    (MonadIO m, PrintOperationK a, Gtk.PageSetupK b) =>-    a                                       -- _obj-    -> b                                    -- pageSetup-    -> m ()                                 -- result-printOperationSetPageSetup _obj pageSetup = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let pageSetup' = unsafeManagedPtrCastPtr pageSetup-    webkit_print_operation_set_page_setup _obj' pageSetup'-    touchManagedPtr _obj-    touchManagedPtr pageSetup-    return ()--data PrintOperationSetPageSetupMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, PrintOperationK a, Gtk.PageSetupK b) => MethodInfo PrintOperationSetPageSetupMethodInfo a signature where-    overloadedMethod _ = printOperationSetPageSetup---- method PrintOperation::set_print_settings--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "print_settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_print_operation_set_print_settings" webkit_print_operation_set_print_settings :: -    Ptr PrintOperation ->                   -- _obj : TInterface "WebKit2" "PrintOperation"-    Ptr Gtk.PrintSettings ->                -- print_settings : TInterface "Gtk" "PrintSettings"-    IO ()---printOperationSetPrintSettings ::-    (MonadIO m, PrintOperationK a, Gtk.PrintSettingsK b) =>-    a                                       -- _obj-    -> b                                    -- printSettings-    -> m ()                                 -- result-printOperationSetPrintSettings _obj printSettings = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let printSettings' = unsafeManagedPtrCastPtr printSettings-    webkit_print_operation_set_print_settings _obj' printSettings'-    touchManagedPtr _obj-    touchManagedPtr printSettings-    return ()--data PrintOperationSetPrintSettingsMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, PrintOperationK a, Gtk.PrintSettingsK b) => MethodInfo PrintOperationSetPrintSettingsMethodInfo a signature where-    overloadedMethod _ = printOperationSetPrintSettings--
− GI/WebKit2/Objects/PrintOperation.hs-boot 
@@ -1,24 +0,0 @@-module GI.WebKit2.Objects.PrintOperation where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype PrintOperation = PrintOperation (ForeignPtr PrintOperation)-instance GObject PrintOperation where-class GObject o => PrintOperationK o-instance (GObject o, IsDescendantOf PrintOperation o) => PrintOperationK o-data PrintOperationPageSetupPropertyInfo-data PrintOperationPrintSettingsPropertyInfo-data PrintOperationWebViewPropertyInfo-data PrintOperationFailedSignalInfo-data PrintOperationFinishedSignalInfo-data PrintOperationGetPageSetupMethodInfo-data PrintOperationGetPrintSettingsMethodInfo-data PrintOperationPrintMethodInfo-data PrintOperationRunDialogMethodInfo-data PrintOperationSetPageSetupMethodInfo-data PrintOperationSetPrintSettingsMethodInfo
− GI/WebKit2/Objects/ResponsePolicyDecision.hs 
@@ -1,263 +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.WebKit2.Objects.ResponsePolicyDecision-    ( ---- * Exported types-    ResponsePolicyDecision(..)              ,-    ResponsePolicyDecisionK                 ,-    toResponsePolicyDecision                ,-    noResponsePolicyDecision                ,--- -- * Methods--- ** responsePolicyDecisionGetRequest-    ResponsePolicyDecisionGetRequestMethodInfo,-    responsePolicyDecisionGetRequest        ,----- ** responsePolicyDecisionGetResponse-    ResponsePolicyDecisionGetResponseMethodInfo,-    responsePolicyDecisionGetResponse       ,----- ** responsePolicyDecisionIsMimeTypeSupported-    ResponsePolicyDecisionIsMimeTypeSupportedMethodInfo,-    responsePolicyDecisionIsMimeTypeSupported,----- -- * Properties--- ** Request-    ResponsePolicyDecisionRequestPropertyInfo,-    getResponsePolicyDecisionRequest        ,-    responsePolicyDecisionRequest           ,----- ** Response-    ResponsePolicyDecisionResponsePropertyInfo,-    getResponsePolicyDecisionResponse       ,-    responsePolicyDecisionResponse          ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject--newtype ResponsePolicyDecision = ResponsePolicyDecision (ForeignPtr ResponsePolicyDecision)-foreign import ccall "webkit_response_policy_decision_get_type"-    c_webkit_response_policy_decision_get_type :: IO GType--type instance ParentTypes ResponsePolicyDecision = ResponsePolicyDecisionParentTypes-type ResponsePolicyDecisionParentTypes = '[PolicyDecision, GObject.Object]--instance GObject ResponsePolicyDecision where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_response_policy_decision_get_type-    --class GObject o => ResponsePolicyDecisionK o-instance (GObject o, IsDescendantOf ResponsePolicyDecision o) => ResponsePolicyDecisionK o--toResponsePolicyDecision :: ResponsePolicyDecisionK o => o -> IO ResponsePolicyDecision-toResponsePolicyDecision = unsafeCastTo ResponsePolicyDecision--noResponsePolicyDecision :: Maybe ResponsePolicyDecision-noResponsePolicyDecision = Nothing--type family ResolveResponsePolicyDecisionMethod (t :: Symbol) (o :: *) :: * where-    ResolveResponsePolicyDecisionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveResponsePolicyDecisionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveResponsePolicyDecisionMethod "download" o = PolicyDecisionDownloadMethodInfo-    ResolveResponsePolicyDecisionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveResponsePolicyDecisionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveResponsePolicyDecisionMethod "ignore" o = PolicyDecisionIgnoreMethodInfo-    ResolveResponsePolicyDecisionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveResponsePolicyDecisionMethod "isMimeTypeSupported" o = ResponsePolicyDecisionIsMimeTypeSupportedMethodInfo-    ResolveResponsePolicyDecisionMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveResponsePolicyDecisionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveResponsePolicyDecisionMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveResponsePolicyDecisionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveResponsePolicyDecisionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveResponsePolicyDecisionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveResponsePolicyDecisionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveResponsePolicyDecisionMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveResponsePolicyDecisionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveResponsePolicyDecisionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveResponsePolicyDecisionMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveResponsePolicyDecisionMethod "use" o = PolicyDecisionUseMethodInfo-    ResolveResponsePolicyDecisionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveResponsePolicyDecisionMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveResponsePolicyDecisionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveResponsePolicyDecisionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveResponsePolicyDecisionMethod "getRequest" o = ResponsePolicyDecisionGetRequestMethodInfo-    ResolveResponsePolicyDecisionMethod "getResponse" o = ResponsePolicyDecisionGetResponseMethodInfo-    ResolveResponsePolicyDecisionMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveResponsePolicyDecisionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveResponsePolicyDecisionMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveResponsePolicyDecisionMethod t ResponsePolicyDecision, MethodInfo info ResponsePolicyDecision p) => IsLabelProxy t (ResponsePolicyDecision -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveResponsePolicyDecisionMethod t ResponsePolicyDecision, MethodInfo info ResponsePolicyDecision p) => IsLabel t (ResponsePolicyDecision -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "request"-   -- Type: TInterface "WebKit2" "URIRequest"-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getResponsePolicyDecisionRequest :: (MonadIO m, ResponsePolicyDecisionK o) => o -> m URIRequest-getResponsePolicyDecisionRequest obj = liftIO $ checkUnexpectedNothing "getResponsePolicyDecisionRequest" $ getObjectPropertyObject obj "request" URIRequest--data ResponsePolicyDecisionRequestPropertyInfo-instance AttrInfo ResponsePolicyDecisionRequestPropertyInfo where-    type AttrAllowedOps ResponsePolicyDecisionRequestPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ResponsePolicyDecisionRequestPropertyInfo = (~) ()-    type AttrBaseTypeConstraint ResponsePolicyDecisionRequestPropertyInfo = ResponsePolicyDecisionK-    type AttrGetType ResponsePolicyDecisionRequestPropertyInfo = URIRequest-    type AttrLabel ResponsePolicyDecisionRequestPropertyInfo = "request"-    attrGet _ = getResponsePolicyDecisionRequest-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "response"-   -- Type: TInterface "WebKit2" "URIResponse"-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getResponsePolicyDecisionResponse :: (MonadIO m, ResponsePolicyDecisionK o) => o -> m URIResponse-getResponsePolicyDecisionResponse obj = liftIO $ checkUnexpectedNothing "getResponsePolicyDecisionResponse" $ getObjectPropertyObject obj "response" URIResponse--data ResponsePolicyDecisionResponsePropertyInfo-instance AttrInfo ResponsePolicyDecisionResponsePropertyInfo where-    type AttrAllowedOps ResponsePolicyDecisionResponsePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ResponsePolicyDecisionResponsePropertyInfo = (~) ()-    type AttrBaseTypeConstraint ResponsePolicyDecisionResponsePropertyInfo = ResponsePolicyDecisionK-    type AttrGetType ResponsePolicyDecisionResponsePropertyInfo = URIResponse-    type AttrLabel ResponsePolicyDecisionResponsePropertyInfo = "response"-    attrGet _ = getResponsePolicyDecisionResponse-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined--type instance AttributeList ResponsePolicyDecision = ResponsePolicyDecisionAttributeList-type ResponsePolicyDecisionAttributeList = ('[ '("request", ResponsePolicyDecisionRequestPropertyInfo), '("response", ResponsePolicyDecisionResponsePropertyInfo)] :: [(Symbol, *)])--responsePolicyDecisionRequest :: AttrLabelProxy "request"-responsePolicyDecisionRequest = AttrLabelProxy--responsePolicyDecisionResponse :: AttrLabelProxy "response"-responsePolicyDecisionResponse = AttrLabelProxy--type instance SignalList ResponsePolicyDecision = ResponsePolicyDecisionSignalList-type ResponsePolicyDecisionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method ResponsePolicyDecision::get_request--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ResponsePolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "URIRequest")--- throws : False--- Skip return : False--foreign import ccall "webkit_response_policy_decision_get_request" webkit_response_policy_decision_get_request :: -    Ptr ResponsePolicyDecision ->           -- _obj : TInterface "WebKit2" "ResponsePolicyDecision"-    IO (Ptr URIRequest)---responsePolicyDecisionGetRequest ::-    (MonadIO m, ResponsePolicyDecisionK a) =>-    a                                       -- _obj-    -> m URIRequest                         -- result-responsePolicyDecisionGetRequest _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_response_policy_decision_get_request _obj'-    checkUnexpectedReturnNULL "webkit_response_policy_decision_get_request" result-    result' <- (newObject URIRequest) result-    touchManagedPtr _obj-    return result'--data ResponsePolicyDecisionGetRequestMethodInfo-instance (signature ~ (m URIRequest), MonadIO m, ResponsePolicyDecisionK a) => MethodInfo ResponsePolicyDecisionGetRequestMethodInfo a signature where-    overloadedMethod _ = responsePolicyDecisionGetRequest---- method ResponsePolicyDecision::get_response--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ResponsePolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "URIResponse")--- throws : False--- Skip return : False--foreign import ccall "webkit_response_policy_decision_get_response" webkit_response_policy_decision_get_response :: -    Ptr ResponsePolicyDecision ->           -- _obj : TInterface "WebKit2" "ResponsePolicyDecision"-    IO (Ptr URIResponse)---responsePolicyDecisionGetResponse ::-    (MonadIO m, ResponsePolicyDecisionK a) =>-    a                                       -- _obj-    -> m URIResponse                        -- result-responsePolicyDecisionGetResponse _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_response_policy_decision_get_response _obj'-    checkUnexpectedReturnNULL "webkit_response_policy_decision_get_response" result-    result' <- (newObject URIResponse) result-    touchManagedPtr _obj-    return result'--data ResponsePolicyDecisionGetResponseMethodInfo-instance (signature ~ (m URIResponse), MonadIO m, ResponsePolicyDecisionK a) => MethodInfo ResponsePolicyDecisionGetResponseMethodInfo a signature where-    overloadedMethod _ = responsePolicyDecisionGetResponse---- method ResponsePolicyDecision::is_mime_type_supported--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ResponsePolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_response_policy_decision_is_mime_type_supported" webkit_response_policy_decision_is_mime_type_supported :: -    Ptr ResponsePolicyDecision ->           -- _obj : TInterface "WebKit2" "ResponsePolicyDecision"-    IO CInt---responsePolicyDecisionIsMimeTypeSupported ::-    (MonadIO m, ResponsePolicyDecisionK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-responsePolicyDecisionIsMimeTypeSupported _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_response_policy_decision_is_mime_type_supported _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data ResponsePolicyDecisionIsMimeTypeSupportedMethodInfo-instance (signature ~ (m Bool), MonadIO m, ResponsePolicyDecisionK a) => MethodInfo ResponsePolicyDecisionIsMimeTypeSupportedMethodInfo a signature where-    overloadedMethod _ = responsePolicyDecisionIsMimeTypeSupported--
− GI/WebKit2/Objects/ResponsePolicyDecision.hs-boot 
@@ -1,18 +0,0 @@-module GI.WebKit2.Objects.ResponsePolicyDecision where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ResponsePolicyDecision = ResponsePolicyDecision (ForeignPtr ResponsePolicyDecision)-instance GObject ResponsePolicyDecision where-class GObject o => ResponsePolicyDecisionK o-instance (GObject o, IsDescendantOf ResponsePolicyDecision o) => ResponsePolicyDecisionK o-data ResponsePolicyDecisionRequestPropertyInfo-data ResponsePolicyDecisionResponsePropertyInfo-data ResponsePolicyDecisionGetRequestMethodInfo-data ResponsePolicyDecisionGetResponseMethodInfo-data ResponsePolicyDecisionIsMimeTypeSupportedMethodInfo
− GI/WebKit2/Objects/SecurityManager.hs 
@@ -1,545 +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.WebKit2.Objects.SecurityManager-    ( ---- * Exported types-    SecurityManager(..)                     ,-    SecurityManagerK                        ,-    toSecurityManager                       ,-    noSecurityManager                       ,--- -- * Methods--- ** securityManagerRegisterUriSchemeAsCorsEnabled-    SecurityManagerRegisterUriSchemeAsCorsEnabledMethodInfo,-    securityManagerRegisterUriSchemeAsCorsEnabled,----- ** securityManagerRegisterUriSchemeAsDisplayIsolated-    SecurityManagerRegisterUriSchemeAsDisplayIsolatedMethodInfo,-    securityManagerRegisterUriSchemeAsDisplayIsolated,----- ** securityManagerRegisterUriSchemeAsEmptyDocument-    SecurityManagerRegisterUriSchemeAsEmptyDocumentMethodInfo,-    securityManagerRegisterUriSchemeAsEmptyDocument,----- ** securityManagerRegisterUriSchemeAsLocal-    SecurityManagerRegisterUriSchemeAsLocalMethodInfo,-    securityManagerRegisterUriSchemeAsLocal ,----- ** securityManagerRegisterUriSchemeAsNoAccess-    SecurityManagerRegisterUriSchemeAsNoAccessMethodInfo,-    securityManagerRegisterUriSchemeAsNoAccess,----- ** securityManagerRegisterUriSchemeAsSecure-    SecurityManagerRegisterUriSchemeAsSecureMethodInfo,-    securityManagerRegisterUriSchemeAsSecure,----- ** securityManagerUriSchemeIsCorsEnabled-    SecurityManagerUriSchemeIsCorsEnabledMethodInfo,-    securityManagerUriSchemeIsCorsEnabled   ,----- ** securityManagerUriSchemeIsDisplayIsolated-    SecurityManagerUriSchemeIsDisplayIsolatedMethodInfo,-    securityManagerUriSchemeIsDisplayIsolated,----- ** securityManagerUriSchemeIsEmptyDocument-    SecurityManagerUriSchemeIsEmptyDocumentMethodInfo,-    securityManagerUriSchemeIsEmptyDocument ,----- ** securityManagerUriSchemeIsLocal-    SecurityManagerUriSchemeIsLocalMethodInfo,-    securityManagerUriSchemeIsLocal         ,----- ** securityManagerUriSchemeIsNoAccess-    SecurityManagerUriSchemeIsNoAccessMethodInfo,-    securityManagerUriSchemeIsNoAccess      ,----- ** securityManagerUriSchemeIsSecure-    SecurityManagerUriSchemeIsSecureMethodInfo,-    securityManagerUriSchemeIsSecure        ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject--newtype SecurityManager = SecurityManager (ForeignPtr SecurityManager)-foreign import ccall "webkit_security_manager_get_type"-    c_webkit_security_manager_get_type :: IO GType--type instance ParentTypes SecurityManager = SecurityManagerParentTypes-type SecurityManagerParentTypes = '[GObject.Object]--instance GObject SecurityManager where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_security_manager_get_type-    --class GObject o => SecurityManagerK o-instance (GObject o, IsDescendantOf SecurityManager o) => SecurityManagerK o--toSecurityManager :: SecurityManagerK o => o -> IO SecurityManager-toSecurityManager = unsafeCastTo SecurityManager--noSecurityManager :: Maybe SecurityManager-noSecurityManager = Nothing--type family ResolveSecurityManagerMethod (t :: Symbol) (o :: *) :: * where-    ResolveSecurityManagerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveSecurityManagerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveSecurityManagerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveSecurityManagerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveSecurityManagerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveSecurityManagerMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveSecurityManagerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveSecurityManagerMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveSecurityManagerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveSecurityManagerMethod "registerUriSchemeAsCorsEnabled" o = SecurityManagerRegisterUriSchemeAsCorsEnabledMethodInfo-    ResolveSecurityManagerMethod "registerUriSchemeAsDisplayIsolated" o = SecurityManagerRegisterUriSchemeAsDisplayIsolatedMethodInfo-    ResolveSecurityManagerMethod "registerUriSchemeAsEmptyDocument" o = SecurityManagerRegisterUriSchemeAsEmptyDocumentMethodInfo-    ResolveSecurityManagerMethod "registerUriSchemeAsLocal" o = SecurityManagerRegisterUriSchemeAsLocalMethodInfo-    ResolveSecurityManagerMethod "registerUriSchemeAsNoAccess" o = SecurityManagerRegisterUriSchemeAsNoAccessMethodInfo-    ResolveSecurityManagerMethod "registerUriSchemeAsSecure" o = SecurityManagerRegisterUriSchemeAsSecureMethodInfo-    ResolveSecurityManagerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveSecurityManagerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveSecurityManagerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveSecurityManagerMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveSecurityManagerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveSecurityManagerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveSecurityManagerMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveSecurityManagerMethod "uriSchemeIsCorsEnabled" o = SecurityManagerUriSchemeIsCorsEnabledMethodInfo-    ResolveSecurityManagerMethod "uriSchemeIsDisplayIsolated" o = SecurityManagerUriSchemeIsDisplayIsolatedMethodInfo-    ResolveSecurityManagerMethod "uriSchemeIsEmptyDocument" o = SecurityManagerUriSchemeIsEmptyDocumentMethodInfo-    ResolveSecurityManagerMethod "uriSchemeIsLocal" o = SecurityManagerUriSchemeIsLocalMethodInfo-    ResolveSecurityManagerMethod "uriSchemeIsNoAccess" o = SecurityManagerUriSchemeIsNoAccessMethodInfo-    ResolveSecurityManagerMethod "uriSchemeIsSecure" o = SecurityManagerUriSchemeIsSecureMethodInfo-    ResolveSecurityManagerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveSecurityManagerMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveSecurityManagerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveSecurityManagerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveSecurityManagerMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveSecurityManagerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveSecurityManagerMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveSecurityManagerMethod t SecurityManager, MethodInfo info SecurityManager p) => IsLabelProxy t (SecurityManager -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSecurityManagerMethod t SecurityManager, MethodInfo info SecurityManager p) => IsLabel t (SecurityManager -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList SecurityManager = SecurityManagerAttributeList-type SecurityManagerAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList SecurityManager = SecurityManagerSignalList-type SecurityManagerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method SecurityManager::register_uri_scheme_as_cors_enabled--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_security_manager_register_uri_scheme_as_cors_enabled" webkit_security_manager_register_uri_scheme_as_cors_enabled :: -    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"-    CString ->                              -- scheme : TBasicType TUTF8-    IO ()---securityManagerRegisterUriSchemeAsCorsEnabled ::-    (MonadIO m, SecurityManagerK a) =>-    a                                       -- _obj-    -> T.Text                               -- scheme-    -> m ()                                 -- result-securityManagerRegisterUriSchemeAsCorsEnabled _obj scheme = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    scheme' <- textToCString scheme-    webkit_security_manager_register_uri_scheme_as_cors_enabled _obj' scheme'-    touchManagedPtr _obj-    freeMem scheme'-    return ()--data SecurityManagerRegisterUriSchemeAsCorsEnabledMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerRegisterUriSchemeAsCorsEnabledMethodInfo a signature where-    overloadedMethod _ = securityManagerRegisterUriSchemeAsCorsEnabled---- method SecurityManager::register_uri_scheme_as_display_isolated--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_security_manager_register_uri_scheme_as_display_isolated" webkit_security_manager_register_uri_scheme_as_display_isolated :: -    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"-    CString ->                              -- scheme : TBasicType TUTF8-    IO ()---securityManagerRegisterUriSchemeAsDisplayIsolated ::-    (MonadIO m, SecurityManagerK a) =>-    a                                       -- _obj-    -> T.Text                               -- scheme-    -> m ()                                 -- result-securityManagerRegisterUriSchemeAsDisplayIsolated _obj scheme = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    scheme' <- textToCString scheme-    webkit_security_manager_register_uri_scheme_as_display_isolated _obj' scheme'-    touchManagedPtr _obj-    freeMem scheme'-    return ()--data SecurityManagerRegisterUriSchemeAsDisplayIsolatedMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerRegisterUriSchemeAsDisplayIsolatedMethodInfo a signature where-    overloadedMethod _ = securityManagerRegisterUriSchemeAsDisplayIsolated---- method SecurityManager::register_uri_scheme_as_empty_document--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_security_manager_register_uri_scheme_as_empty_document" webkit_security_manager_register_uri_scheme_as_empty_document :: -    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"-    CString ->                              -- scheme : TBasicType TUTF8-    IO ()---securityManagerRegisterUriSchemeAsEmptyDocument ::-    (MonadIO m, SecurityManagerK a) =>-    a                                       -- _obj-    -> T.Text                               -- scheme-    -> m ()                                 -- result-securityManagerRegisterUriSchemeAsEmptyDocument _obj scheme = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    scheme' <- textToCString scheme-    webkit_security_manager_register_uri_scheme_as_empty_document _obj' scheme'-    touchManagedPtr _obj-    freeMem scheme'-    return ()--data SecurityManagerRegisterUriSchemeAsEmptyDocumentMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerRegisterUriSchemeAsEmptyDocumentMethodInfo a signature where-    overloadedMethod _ = securityManagerRegisterUriSchemeAsEmptyDocument---- method SecurityManager::register_uri_scheme_as_local--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_security_manager_register_uri_scheme_as_local" webkit_security_manager_register_uri_scheme_as_local :: -    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"-    CString ->                              -- scheme : TBasicType TUTF8-    IO ()---securityManagerRegisterUriSchemeAsLocal ::-    (MonadIO m, SecurityManagerK a) =>-    a                                       -- _obj-    -> T.Text                               -- scheme-    -> m ()                                 -- result-securityManagerRegisterUriSchemeAsLocal _obj scheme = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    scheme' <- textToCString scheme-    webkit_security_manager_register_uri_scheme_as_local _obj' scheme'-    touchManagedPtr _obj-    freeMem scheme'-    return ()--data SecurityManagerRegisterUriSchemeAsLocalMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerRegisterUriSchemeAsLocalMethodInfo a signature where-    overloadedMethod _ = securityManagerRegisterUriSchemeAsLocal---- method SecurityManager::register_uri_scheme_as_no_access--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_security_manager_register_uri_scheme_as_no_access" webkit_security_manager_register_uri_scheme_as_no_access :: -    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"-    CString ->                              -- scheme : TBasicType TUTF8-    IO ()---securityManagerRegisterUriSchemeAsNoAccess ::-    (MonadIO m, SecurityManagerK a) =>-    a                                       -- _obj-    -> T.Text                               -- scheme-    -> m ()                                 -- result-securityManagerRegisterUriSchemeAsNoAccess _obj scheme = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    scheme' <- textToCString scheme-    webkit_security_manager_register_uri_scheme_as_no_access _obj' scheme'-    touchManagedPtr _obj-    freeMem scheme'-    return ()--data SecurityManagerRegisterUriSchemeAsNoAccessMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerRegisterUriSchemeAsNoAccessMethodInfo a signature where-    overloadedMethod _ = securityManagerRegisterUriSchemeAsNoAccess---- method SecurityManager::register_uri_scheme_as_secure--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_security_manager_register_uri_scheme_as_secure" webkit_security_manager_register_uri_scheme_as_secure :: -    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"-    CString ->                              -- scheme : TBasicType TUTF8-    IO ()---securityManagerRegisterUriSchemeAsSecure ::-    (MonadIO m, SecurityManagerK a) =>-    a                                       -- _obj-    -> T.Text                               -- scheme-    -> m ()                                 -- result-securityManagerRegisterUriSchemeAsSecure _obj scheme = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    scheme' <- textToCString scheme-    webkit_security_manager_register_uri_scheme_as_secure _obj' scheme'-    touchManagedPtr _obj-    freeMem scheme'-    return ()--data SecurityManagerRegisterUriSchemeAsSecureMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerRegisterUriSchemeAsSecureMethodInfo a signature where-    overloadedMethod _ = securityManagerRegisterUriSchemeAsSecure---- method SecurityManager::uri_scheme_is_cors_enabled--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_security_manager_uri_scheme_is_cors_enabled" webkit_security_manager_uri_scheme_is_cors_enabled :: -    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"-    CString ->                              -- scheme : TBasicType TUTF8-    IO CInt---securityManagerUriSchemeIsCorsEnabled ::-    (MonadIO m, SecurityManagerK a) =>-    a                                       -- _obj-    -> T.Text                               -- scheme-    -> m Bool                               -- result-securityManagerUriSchemeIsCorsEnabled _obj scheme = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    scheme' <- textToCString scheme-    result <- webkit_security_manager_uri_scheme_is_cors_enabled _obj' scheme'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem scheme'-    return result'--data SecurityManagerUriSchemeIsCorsEnabledMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerUriSchemeIsCorsEnabledMethodInfo a signature where-    overloadedMethod _ = securityManagerUriSchemeIsCorsEnabled---- method SecurityManager::uri_scheme_is_display_isolated--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_security_manager_uri_scheme_is_display_isolated" webkit_security_manager_uri_scheme_is_display_isolated :: -    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"-    CString ->                              -- scheme : TBasicType TUTF8-    IO CInt---securityManagerUriSchemeIsDisplayIsolated ::-    (MonadIO m, SecurityManagerK a) =>-    a                                       -- _obj-    -> T.Text                               -- scheme-    -> m Bool                               -- result-securityManagerUriSchemeIsDisplayIsolated _obj scheme = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    scheme' <- textToCString scheme-    result <- webkit_security_manager_uri_scheme_is_display_isolated _obj' scheme'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem scheme'-    return result'--data SecurityManagerUriSchemeIsDisplayIsolatedMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerUriSchemeIsDisplayIsolatedMethodInfo a signature where-    overloadedMethod _ = securityManagerUriSchemeIsDisplayIsolated---- method SecurityManager::uri_scheme_is_empty_document--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_security_manager_uri_scheme_is_empty_document" webkit_security_manager_uri_scheme_is_empty_document :: -    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"-    CString ->                              -- scheme : TBasicType TUTF8-    IO CInt---securityManagerUriSchemeIsEmptyDocument ::-    (MonadIO m, SecurityManagerK a) =>-    a                                       -- _obj-    -> T.Text                               -- scheme-    -> m Bool                               -- result-securityManagerUriSchemeIsEmptyDocument _obj scheme = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    scheme' <- textToCString scheme-    result <- webkit_security_manager_uri_scheme_is_empty_document _obj' scheme'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem scheme'-    return result'--data SecurityManagerUriSchemeIsEmptyDocumentMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerUriSchemeIsEmptyDocumentMethodInfo a signature where-    overloadedMethod _ = securityManagerUriSchemeIsEmptyDocument---- method SecurityManager::uri_scheme_is_local--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_security_manager_uri_scheme_is_local" webkit_security_manager_uri_scheme_is_local :: -    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"-    CString ->                              -- scheme : TBasicType TUTF8-    IO CInt---securityManagerUriSchemeIsLocal ::-    (MonadIO m, SecurityManagerK a) =>-    a                                       -- _obj-    -> T.Text                               -- scheme-    -> m Bool                               -- result-securityManagerUriSchemeIsLocal _obj scheme = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    scheme' <- textToCString scheme-    result <- webkit_security_manager_uri_scheme_is_local _obj' scheme'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem scheme'-    return result'--data SecurityManagerUriSchemeIsLocalMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerUriSchemeIsLocalMethodInfo a signature where-    overloadedMethod _ = securityManagerUriSchemeIsLocal---- method SecurityManager::uri_scheme_is_no_access--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_security_manager_uri_scheme_is_no_access" webkit_security_manager_uri_scheme_is_no_access :: -    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"-    CString ->                              -- scheme : TBasicType TUTF8-    IO CInt---securityManagerUriSchemeIsNoAccess ::-    (MonadIO m, SecurityManagerK a) =>-    a                                       -- _obj-    -> T.Text                               -- scheme-    -> m Bool                               -- result-securityManagerUriSchemeIsNoAccess _obj scheme = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    scheme' <- textToCString scheme-    result <- webkit_security_manager_uri_scheme_is_no_access _obj' scheme'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem scheme'-    return result'--data SecurityManagerUriSchemeIsNoAccessMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerUriSchemeIsNoAccessMethodInfo a signature where-    overloadedMethod _ = securityManagerUriSchemeIsNoAccess---- method SecurityManager::uri_scheme_is_secure--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "SecurityManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_security_manager_uri_scheme_is_secure" webkit_security_manager_uri_scheme_is_secure :: -    Ptr SecurityManager ->                  -- _obj : TInterface "WebKit2" "SecurityManager"-    CString ->                              -- scheme : TBasicType TUTF8-    IO CInt---securityManagerUriSchemeIsSecure ::-    (MonadIO m, SecurityManagerK a) =>-    a                                       -- _obj-    -> T.Text                               -- scheme-    -> m Bool                               -- result-securityManagerUriSchemeIsSecure _obj scheme = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    scheme' <- textToCString scheme-    result <- webkit_security_manager_uri_scheme_is_secure _obj' scheme'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem scheme'-    return result'--data SecurityManagerUriSchemeIsSecureMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, SecurityManagerK a) => MethodInfo SecurityManagerUriSchemeIsSecureMethodInfo a signature where-    overloadedMethod _ = securityManagerUriSchemeIsSecure--
− GI/WebKit2/Objects/SecurityManager.hs-boot 
@@ -1,25 +0,0 @@-module GI.WebKit2.Objects.SecurityManager where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype SecurityManager = SecurityManager (ForeignPtr SecurityManager)-instance GObject SecurityManager where-class GObject o => SecurityManagerK o-instance (GObject o, IsDescendantOf SecurityManager o) => SecurityManagerK o-data SecurityManagerRegisterUriSchemeAsCorsEnabledMethodInfo-data SecurityManagerRegisterUriSchemeAsDisplayIsolatedMethodInfo-data SecurityManagerRegisterUriSchemeAsEmptyDocumentMethodInfo-data SecurityManagerRegisterUriSchemeAsLocalMethodInfo-data SecurityManagerRegisterUriSchemeAsNoAccessMethodInfo-data SecurityManagerRegisterUriSchemeAsSecureMethodInfo-data SecurityManagerUriSchemeIsCorsEnabledMethodInfo-data SecurityManagerUriSchemeIsDisplayIsolatedMethodInfo-data SecurityManagerUriSchemeIsEmptyDocumentMethodInfo-data SecurityManagerUriSchemeIsLocalMethodInfo-data SecurityManagerUriSchemeIsNoAccessMethodInfo-data SecurityManagerUriSchemeIsSecureMethodInfo
− GI/WebKit2/Objects/Settings.hs 
@@ -1,5435 +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.WebKit2.Objects.Settings-    ( ---- * Exported types-    Settings(..)                            ,-    SettingsK                               ,-    toSettings                              ,-    noSettings                              ,--- -- * Methods--- ** settingsGetAllowFileAccessFromFileUrls-    SettingsGetAllowFileAccessFromFileUrlsMethodInfo,-    settingsGetAllowFileAccessFromFileUrls  ,----- ** settingsGetAllowModalDialogs-    SettingsGetAllowModalDialogsMethodInfo  ,-    settingsGetAllowModalDialogs            ,----- ** settingsGetAutoLoadImages-    SettingsGetAutoLoadImagesMethodInfo     ,-    settingsGetAutoLoadImages               ,----- ** settingsGetCursiveFontFamily-    SettingsGetCursiveFontFamilyMethodInfo  ,-    settingsGetCursiveFontFamily            ,----- ** settingsGetDefaultCharset-    SettingsGetDefaultCharsetMethodInfo     ,-    settingsGetDefaultCharset               ,----- ** settingsGetDefaultFontFamily-    SettingsGetDefaultFontFamilyMethodInfo  ,-    settingsGetDefaultFontFamily            ,----- ** settingsGetDefaultFontSize-    SettingsGetDefaultFontSizeMethodInfo    ,-    settingsGetDefaultFontSize              ,----- ** settingsGetDefaultMonospaceFontSize-    SettingsGetDefaultMonospaceFontSizeMethodInfo,-    settingsGetDefaultMonospaceFontSize     ,----- ** settingsGetDrawCompositingIndicators-    SettingsGetDrawCompositingIndicatorsMethodInfo,-    settingsGetDrawCompositingIndicators    ,----- ** settingsGetEnableAccelerated2dCanvas-    SettingsGetEnableAccelerated2dCanvasMethodInfo,-    settingsGetEnableAccelerated2dCanvas    ,----- ** settingsGetEnableCaretBrowsing-    SettingsGetEnableCaretBrowsingMethodInfo,-    settingsGetEnableCaretBrowsing          ,----- ** settingsGetEnableDeveloperExtras-    SettingsGetEnableDeveloperExtrasMethodInfo,-    settingsGetEnableDeveloperExtras        ,----- ** settingsGetEnableDnsPrefetching-    SettingsGetEnableDnsPrefetchingMethodInfo,-    settingsGetEnableDnsPrefetching         ,----- ** settingsGetEnableFrameFlattening-    SettingsGetEnableFrameFlatteningMethodInfo,-    settingsGetEnableFrameFlattening        ,----- ** settingsGetEnableFullscreen-    SettingsGetEnableFullscreenMethodInfo   ,-    settingsGetEnableFullscreen             ,----- ** settingsGetEnableHtml5Database-    SettingsGetEnableHtml5DatabaseMethodInfo,-    settingsGetEnableHtml5Database          ,----- ** settingsGetEnableHtml5LocalStorage-    SettingsGetEnableHtml5LocalStorageMethodInfo,-    settingsGetEnableHtml5LocalStorage      ,----- ** settingsGetEnableHyperlinkAuditing-    SettingsGetEnableHyperlinkAuditingMethodInfo,-    settingsGetEnableHyperlinkAuditing      ,----- ** settingsGetEnableJava-    SettingsGetEnableJavaMethodInfo         ,-    settingsGetEnableJava                   ,----- ** settingsGetEnableJavascript-    SettingsGetEnableJavascriptMethodInfo   ,-    settingsGetEnableJavascript             ,----- ** settingsGetEnableMediaStream-    SettingsGetEnableMediaStreamMethodInfo  ,-    settingsGetEnableMediaStream            ,----- ** settingsGetEnableMediasource-    SettingsGetEnableMediasourceMethodInfo  ,-    settingsGetEnableMediasource            ,----- ** settingsGetEnableOfflineWebApplicationCache-    SettingsGetEnableOfflineWebApplicationCacheMethodInfo,-    settingsGetEnableOfflineWebApplicationCache,----- ** settingsGetEnablePageCache-    SettingsGetEnablePageCacheMethodInfo    ,-    settingsGetEnablePageCache              ,----- ** settingsGetEnablePlugins-    SettingsGetEnablePluginsMethodInfo      ,-    settingsGetEnablePlugins                ,----- ** settingsGetEnablePrivateBrowsing-    SettingsGetEnablePrivateBrowsingMethodInfo,-    settingsGetEnablePrivateBrowsing        ,----- ** settingsGetEnableResizableTextAreas-    SettingsGetEnableResizableTextAreasMethodInfo,-    settingsGetEnableResizableTextAreas     ,----- ** settingsGetEnableSiteSpecificQuirks-    SettingsGetEnableSiteSpecificQuirksMethodInfo,-    settingsGetEnableSiteSpecificQuirks     ,----- ** settingsGetEnableSmoothScrolling-    SettingsGetEnableSmoothScrollingMethodInfo,-    settingsGetEnableSmoothScrolling        ,----- ** settingsGetEnableSpatialNavigation-    SettingsGetEnableSpatialNavigationMethodInfo,-    settingsGetEnableSpatialNavigation      ,----- ** settingsGetEnableTabsToLinks-    SettingsGetEnableTabsToLinksMethodInfo  ,-    settingsGetEnableTabsToLinks            ,----- ** settingsGetEnableWebaudio-    SettingsGetEnableWebaudioMethodInfo     ,-    settingsGetEnableWebaudio               ,----- ** settingsGetEnableWebgl-    SettingsGetEnableWebglMethodInfo        ,-    settingsGetEnableWebgl                  ,----- ** settingsGetEnableWriteConsoleMessagesToStdout-    SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo,-    settingsGetEnableWriteConsoleMessagesToStdout,----- ** settingsGetEnableXssAuditor-    SettingsGetEnableXssAuditorMethodInfo   ,-    settingsGetEnableXssAuditor             ,----- ** settingsGetFantasyFontFamily-    SettingsGetFantasyFontFamilyMethodInfo  ,-    settingsGetFantasyFontFamily            ,----- ** settingsGetJavascriptCanAccessClipboard-    SettingsGetJavascriptCanAccessClipboardMethodInfo,-    settingsGetJavascriptCanAccessClipboard ,----- ** settingsGetJavascriptCanOpenWindowsAutomatically-    SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo,-    settingsGetJavascriptCanOpenWindowsAutomatically,----- ** settingsGetLoadIconsIgnoringImageLoadSetting-    SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo,-    settingsGetLoadIconsIgnoringImageLoadSetting,----- ** settingsGetMediaPlaybackAllowsInline-    SettingsGetMediaPlaybackAllowsInlineMethodInfo,-    settingsGetMediaPlaybackAllowsInline    ,----- ** settingsGetMediaPlaybackRequiresUserGesture-    SettingsGetMediaPlaybackRequiresUserGestureMethodInfo,-    settingsGetMediaPlaybackRequiresUserGesture,----- ** settingsGetMinimumFontSize-    SettingsGetMinimumFontSizeMethodInfo    ,-    settingsGetMinimumFontSize              ,----- ** settingsGetMonospaceFontFamily-    SettingsGetMonospaceFontFamilyMethodInfo,-    settingsGetMonospaceFontFamily          ,----- ** settingsGetPictographFontFamily-    SettingsGetPictographFontFamilyMethodInfo,-    settingsGetPictographFontFamily         ,----- ** settingsGetPrintBackgrounds-    SettingsGetPrintBackgroundsMethodInfo   ,-    settingsGetPrintBackgrounds             ,----- ** settingsGetSansSerifFontFamily-    SettingsGetSansSerifFontFamilyMethodInfo,-    settingsGetSansSerifFontFamily          ,----- ** settingsGetSerifFontFamily-    SettingsGetSerifFontFamilyMethodInfo    ,-    settingsGetSerifFontFamily              ,----- ** settingsGetUserAgent-    SettingsGetUserAgentMethodInfo          ,-    settingsGetUserAgent                    ,----- ** settingsGetZoomTextOnly-    SettingsGetZoomTextOnlyMethodInfo       ,-    settingsGetZoomTextOnly                 ,----- ** settingsNew-    settingsNew                             ,----- ** settingsSetAllowFileAccessFromFileUrls-    SettingsSetAllowFileAccessFromFileUrlsMethodInfo,-    settingsSetAllowFileAccessFromFileUrls  ,----- ** settingsSetAllowModalDialogs-    SettingsSetAllowModalDialogsMethodInfo  ,-    settingsSetAllowModalDialogs            ,----- ** settingsSetAutoLoadImages-    SettingsSetAutoLoadImagesMethodInfo     ,-    settingsSetAutoLoadImages               ,----- ** settingsSetCursiveFontFamily-    SettingsSetCursiveFontFamilyMethodInfo  ,-    settingsSetCursiveFontFamily            ,----- ** settingsSetDefaultCharset-    SettingsSetDefaultCharsetMethodInfo     ,-    settingsSetDefaultCharset               ,----- ** settingsSetDefaultFontFamily-    SettingsSetDefaultFontFamilyMethodInfo  ,-    settingsSetDefaultFontFamily            ,----- ** settingsSetDefaultFontSize-    SettingsSetDefaultFontSizeMethodInfo    ,-    settingsSetDefaultFontSize              ,----- ** settingsSetDefaultMonospaceFontSize-    SettingsSetDefaultMonospaceFontSizeMethodInfo,-    settingsSetDefaultMonospaceFontSize     ,----- ** settingsSetDrawCompositingIndicators-    SettingsSetDrawCompositingIndicatorsMethodInfo,-    settingsSetDrawCompositingIndicators    ,----- ** settingsSetEnableAccelerated2dCanvas-    SettingsSetEnableAccelerated2dCanvasMethodInfo,-    settingsSetEnableAccelerated2dCanvas    ,----- ** settingsSetEnableCaretBrowsing-    SettingsSetEnableCaretBrowsingMethodInfo,-    settingsSetEnableCaretBrowsing          ,----- ** settingsSetEnableDeveloperExtras-    SettingsSetEnableDeveloperExtrasMethodInfo,-    settingsSetEnableDeveloperExtras        ,----- ** settingsSetEnableDnsPrefetching-    SettingsSetEnableDnsPrefetchingMethodInfo,-    settingsSetEnableDnsPrefetching         ,----- ** settingsSetEnableFrameFlattening-    SettingsSetEnableFrameFlatteningMethodInfo,-    settingsSetEnableFrameFlattening        ,----- ** settingsSetEnableFullscreen-    SettingsSetEnableFullscreenMethodInfo   ,-    settingsSetEnableFullscreen             ,----- ** settingsSetEnableHtml5Database-    SettingsSetEnableHtml5DatabaseMethodInfo,-    settingsSetEnableHtml5Database          ,----- ** settingsSetEnableHtml5LocalStorage-    SettingsSetEnableHtml5LocalStorageMethodInfo,-    settingsSetEnableHtml5LocalStorage      ,----- ** settingsSetEnableHyperlinkAuditing-    SettingsSetEnableHyperlinkAuditingMethodInfo,-    settingsSetEnableHyperlinkAuditing      ,----- ** settingsSetEnableJava-    SettingsSetEnableJavaMethodInfo         ,-    settingsSetEnableJava                   ,----- ** settingsSetEnableJavascript-    SettingsSetEnableJavascriptMethodInfo   ,-    settingsSetEnableJavascript             ,----- ** settingsSetEnableMediaStream-    SettingsSetEnableMediaStreamMethodInfo  ,-    settingsSetEnableMediaStream            ,----- ** settingsSetEnableMediasource-    SettingsSetEnableMediasourceMethodInfo  ,-    settingsSetEnableMediasource            ,----- ** settingsSetEnableOfflineWebApplicationCache-    SettingsSetEnableOfflineWebApplicationCacheMethodInfo,-    settingsSetEnableOfflineWebApplicationCache,----- ** settingsSetEnablePageCache-    SettingsSetEnablePageCacheMethodInfo    ,-    settingsSetEnablePageCache              ,----- ** settingsSetEnablePlugins-    SettingsSetEnablePluginsMethodInfo      ,-    settingsSetEnablePlugins                ,----- ** settingsSetEnablePrivateBrowsing-    SettingsSetEnablePrivateBrowsingMethodInfo,-    settingsSetEnablePrivateBrowsing        ,----- ** settingsSetEnableResizableTextAreas-    SettingsSetEnableResizableTextAreasMethodInfo,-    settingsSetEnableResizableTextAreas     ,----- ** settingsSetEnableSiteSpecificQuirks-    SettingsSetEnableSiteSpecificQuirksMethodInfo,-    settingsSetEnableSiteSpecificQuirks     ,----- ** settingsSetEnableSmoothScrolling-    SettingsSetEnableSmoothScrollingMethodInfo,-    settingsSetEnableSmoothScrolling        ,----- ** settingsSetEnableSpatialNavigation-    SettingsSetEnableSpatialNavigationMethodInfo,-    settingsSetEnableSpatialNavigation      ,----- ** settingsSetEnableTabsToLinks-    SettingsSetEnableTabsToLinksMethodInfo  ,-    settingsSetEnableTabsToLinks            ,----- ** settingsSetEnableWebaudio-    SettingsSetEnableWebaudioMethodInfo     ,-    settingsSetEnableWebaudio               ,----- ** settingsSetEnableWebgl-    SettingsSetEnableWebglMethodInfo        ,-    settingsSetEnableWebgl                  ,----- ** settingsSetEnableWriteConsoleMessagesToStdout-    SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo,-    settingsSetEnableWriteConsoleMessagesToStdout,----- ** settingsSetEnableXssAuditor-    SettingsSetEnableXssAuditorMethodInfo   ,-    settingsSetEnableXssAuditor             ,----- ** settingsSetFantasyFontFamily-    SettingsSetFantasyFontFamilyMethodInfo  ,-    settingsSetFantasyFontFamily            ,----- ** settingsSetJavascriptCanAccessClipboard-    SettingsSetJavascriptCanAccessClipboardMethodInfo,-    settingsSetJavascriptCanAccessClipboard ,----- ** settingsSetJavascriptCanOpenWindowsAutomatically-    SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo,-    settingsSetJavascriptCanOpenWindowsAutomatically,----- ** settingsSetLoadIconsIgnoringImageLoadSetting-    SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo,-    settingsSetLoadIconsIgnoringImageLoadSetting,----- ** settingsSetMediaPlaybackAllowsInline-    SettingsSetMediaPlaybackAllowsInlineMethodInfo,-    settingsSetMediaPlaybackAllowsInline    ,----- ** settingsSetMediaPlaybackRequiresUserGesture-    SettingsSetMediaPlaybackRequiresUserGestureMethodInfo,-    settingsSetMediaPlaybackRequiresUserGesture,----- ** settingsSetMinimumFontSize-    SettingsSetMinimumFontSizeMethodInfo    ,-    settingsSetMinimumFontSize              ,----- ** settingsSetMonospaceFontFamily-    SettingsSetMonospaceFontFamilyMethodInfo,-    settingsSetMonospaceFontFamily          ,----- ** settingsSetPictographFontFamily-    SettingsSetPictographFontFamilyMethodInfo,-    settingsSetPictographFontFamily         ,----- ** settingsSetPrintBackgrounds-    SettingsSetPrintBackgroundsMethodInfo   ,-    settingsSetPrintBackgrounds             ,----- ** settingsSetSansSerifFontFamily-    SettingsSetSansSerifFontFamilyMethodInfo,-    settingsSetSansSerifFontFamily          ,----- ** settingsSetSerifFontFamily-    SettingsSetSerifFontFamilyMethodInfo    ,-    settingsSetSerifFontFamily              ,----- ** settingsSetUserAgent-    SettingsSetUserAgentMethodInfo          ,-    settingsSetUserAgent                    ,----- ** settingsSetUserAgentWithApplicationDetails-    SettingsSetUserAgentWithApplicationDetailsMethodInfo,-    settingsSetUserAgentWithApplicationDetails,----- ** settingsSetZoomTextOnly-    SettingsSetZoomTextOnlyMethodInfo       ,-    settingsSetZoomTextOnly                 ,----- -- * Properties--- ** AllowFileAccessFromFileUrls-    SettingsAllowFileAccessFromFileUrlsPropertyInfo,-    constructSettingsAllowFileAccessFromFileUrls,-    getSettingsAllowFileAccessFromFileUrls  ,-    setSettingsAllowFileAccessFromFileUrls  ,-    settingsAllowFileAccessFromFileUrls     ,----- ** AllowModalDialogs-    SettingsAllowModalDialogsPropertyInfo   ,-    constructSettingsAllowModalDialogs      ,-    getSettingsAllowModalDialogs            ,-    setSettingsAllowModalDialogs            ,-    settingsAllowModalDialogs               ,----- ** AutoLoadImages-    SettingsAutoLoadImagesPropertyInfo      ,-    constructSettingsAutoLoadImages         ,-    getSettingsAutoLoadImages               ,-    setSettingsAutoLoadImages               ,-    settingsAutoLoadImages                  ,----- ** CursiveFontFamily-    SettingsCursiveFontFamilyPropertyInfo   ,-    constructSettingsCursiveFontFamily      ,-    getSettingsCursiveFontFamily            ,-    setSettingsCursiveFontFamily            ,-    settingsCursiveFontFamily               ,----- ** DefaultCharset-    SettingsDefaultCharsetPropertyInfo      ,-    constructSettingsDefaultCharset         ,-    getSettingsDefaultCharset               ,-    setSettingsDefaultCharset               ,-    settingsDefaultCharset                  ,----- ** DefaultFontFamily-    SettingsDefaultFontFamilyPropertyInfo   ,-    constructSettingsDefaultFontFamily      ,-    getSettingsDefaultFontFamily            ,-    setSettingsDefaultFontFamily            ,-    settingsDefaultFontFamily               ,----- ** DefaultFontSize-    SettingsDefaultFontSizePropertyInfo     ,-    constructSettingsDefaultFontSize        ,-    getSettingsDefaultFontSize              ,-    setSettingsDefaultFontSize              ,-    settingsDefaultFontSize                 ,----- ** DefaultMonospaceFontSize-    SettingsDefaultMonospaceFontSizePropertyInfo,-    constructSettingsDefaultMonospaceFontSize,-    getSettingsDefaultMonospaceFontSize     ,-    setSettingsDefaultMonospaceFontSize     ,-    settingsDefaultMonospaceFontSize        ,----- ** DrawCompositingIndicators-    SettingsDrawCompositingIndicatorsPropertyInfo,-    constructSettingsDrawCompositingIndicators,-    getSettingsDrawCompositingIndicators    ,-    setSettingsDrawCompositingIndicators    ,-    settingsDrawCompositingIndicators       ,----- ** EnableAccelerated2dCanvas-    SettingsEnableAccelerated2dCanvasPropertyInfo,-    constructSettingsEnableAccelerated2dCanvas,-    getSettingsEnableAccelerated2dCanvas    ,-    setSettingsEnableAccelerated2dCanvas    ,-    settingsEnableAccelerated2dCanvas       ,----- ** EnableCaretBrowsing-    SettingsEnableCaretBrowsingPropertyInfo ,-    constructSettingsEnableCaretBrowsing    ,-    getSettingsEnableCaretBrowsing          ,-    setSettingsEnableCaretBrowsing          ,-    settingsEnableCaretBrowsing             ,----- ** EnableDeveloperExtras-    SettingsEnableDeveloperExtrasPropertyInfo,-    constructSettingsEnableDeveloperExtras  ,-    getSettingsEnableDeveloperExtras        ,-    setSettingsEnableDeveloperExtras        ,-    settingsEnableDeveloperExtras           ,----- ** EnableDnsPrefetching-    SettingsEnableDnsPrefetchingPropertyInfo,-    constructSettingsEnableDnsPrefetching   ,-    getSettingsEnableDnsPrefetching         ,-    setSettingsEnableDnsPrefetching         ,-    settingsEnableDnsPrefetching            ,----- ** EnableFrameFlattening-    SettingsEnableFrameFlatteningPropertyInfo,-    constructSettingsEnableFrameFlattening  ,-    getSettingsEnableFrameFlattening        ,-    setSettingsEnableFrameFlattening        ,-    settingsEnableFrameFlattening           ,----- ** EnableFullscreen-    SettingsEnableFullscreenPropertyInfo    ,-    constructSettingsEnableFullscreen       ,-    getSettingsEnableFullscreen             ,-    setSettingsEnableFullscreen             ,-    settingsEnableFullscreen                ,----- ** EnableHtml5Database-    SettingsEnableHtml5DatabasePropertyInfo ,-    constructSettingsEnableHtml5Database    ,-    getSettingsEnableHtml5Database          ,-    setSettingsEnableHtml5Database          ,-    settingsEnableHtml5Database             ,----- ** EnableHtml5LocalStorage-    SettingsEnableHtml5LocalStoragePropertyInfo,-    constructSettingsEnableHtml5LocalStorage,-    getSettingsEnableHtml5LocalStorage      ,-    setSettingsEnableHtml5LocalStorage      ,-    settingsEnableHtml5LocalStorage         ,----- ** EnableHyperlinkAuditing-    SettingsEnableHyperlinkAuditingPropertyInfo,-    constructSettingsEnableHyperlinkAuditing,-    getSettingsEnableHyperlinkAuditing      ,-    setSettingsEnableHyperlinkAuditing      ,-    settingsEnableHyperlinkAuditing         ,----- ** EnableJava-    SettingsEnableJavaPropertyInfo          ,-    constructSettingsEnableJava             ,-    getSettingsEnableJava                   ,-    setSettingsEnableJava                   ,-    settingsEnableJava                      ,----- ** EnableJavascript-    SettingsEnableJavascriptPropertyInfo    ,-    constructSettingsEnableJavascript       ,-    getSettingsEnableJavascript             ,-    setSettingsEnableJavascript             ,-    settingsEnableJavascript                ,----- ** EnableMediaStream-    SettingsEnableMediaStreamPropertyInfo   ,-    constructSettingsEnableMediaStream      ,-    getSettingsEnableMediaStream            ,-    setSettingsEnableMediaStream            ,-    settingsEnableMediaStream               ,----- ** EnableMediasource-    SettingsEnableMediasourcePropertyInfo   ,-    constructSettingsEnableMediasource      ,-    getSettingsEnableMediasource            ,-    setSettingsEnableMediasource            ,-    settingsEnableMediasource               ,----- ** EnableOfflineWebApplicationCache-    SettingsEnableOfflineWebApplicationCachePropertyInfo,-    constructSettingsEnableOfflineWebApplicationCache,-    getSettingsEnableOfflineWebApplicationCache,-    setSettingsEnableOfflineWebApplicationCache,-    settingsEnableOfflineWebApplicationCache,----- ** EnablePageCache-    SettingsEnablePageCachePropertyInfo     ,-    constructSettingsEnablePageCache        ,-    getSettingsEnablePageCache              ,-    setSettingsEnablePageCache              ,-    settingsEnablePageCache                 ,----- ** EnablePlugins-    SettingsEnablePluginsPropertyInfo       ,-    constructSettingsEnablePlugins          ,-    getSettingsEnablePlugins                ,-    setSettingsEnablePlugins                ,-    settingsEnablePlugins                   ,----- ** EnablePrivateBrowsing-    SettingsEnablePrivateBrowsingPropertyInfo,-    constructSettingsEnablePrivateBrowsing  ,-    getSettingsEnablePrivateBrowsing        ,-    setSettingsEnablePrivateBrowsing        ,-    settingsEnablePrivateBrowsing           ,----- ** EnableResizableTextAreas-    SettingsEnableResizableTextAreasPropertyInfo,-    constructSettingsEnableResizableTextAreas,-    getSettingsEnableResizableTextAreas     ,-    setSettingsEnableResizableTextAreas     ,-    settingsEnableResizableTextAreas        ,----- ** EnableSiteSpecificQuirks-    SettingsEnableSiteSpecificQuirksPropertyInfo,-    constructSettingsEnableSiteSpecificQuirks,-    getSettingsEnableSiteSpecificQuirks     ,-    setSettingsEnableSiteSpecificQuirks     ,-    settingsEnableSiteSpecificQuirks        ,----- ** EnableSmoothScrolling-    SettingsEnableSmoothScrollingPropertyInfo,-    constructSettingsEnableSmoothScrolling  ,-    getSettingsEnableSmoothScrolling        ,-    setSettingsEnableSmoothScrolling        ,-    settingsEnableSmoothScrolling           ,----- ** EnableSpatialNavigation-    SettingsEnableSpatialNavigationPropertyInfo,-    constructSettingsEnableSpatialNavigation,-    getSettingsEnableSpatialNavigation      ,-    setSettingsEnableSpatialNavigation      ,-    settingsEnableSpatialNavigation         ,----- ** EnableTabsToLinks-    SettingsEnableTabsToLinksPropertyInfo   ,-    constructSettingsEnableTabsToLinks      ,-    getSettingsEnableTabsToLinks            ,-    setSettingsEnableTabsToLinks            ,-    settingsEnableTabsToLinks               ,----- ** EnableWebaudio-    SettingsEnableWebaudioPropertyInfo      ,-    constructSettingsEnableWebaudio         ,-    getSettingsEnableWebaudio               ,-    setSettingsEnableWebaudio               ,-    settingsEnableWebaudio                  ,----- ** EnableWebgl-    SettingsEnableWebglPropertyInfo         ,-    constructSettingsEnableWebgl            ,-    getSettingsEnableWebgl                  ,-    setSettingsEnableWebgl                  ,-    settingsEnableWebgl                     ,----- ** EnableWriteConsoleMessagesToStdout-    SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo,-    constructSettingsEnableWriteConsoleMessagesToStdout,-    getSettingsEnableWriteConsoleMessagesToStdout,-    setSettingsEnableWriteConsoleMessagesToStdout,-    settingsEnableWriteConsoleMessagesToStdout,----- ** EnableXssAuditor-    SettingsEnableXssAuditorPropertyInfo    ,-    constructSettingsEnableXssAuditor       ,-    getSettingsEnableXssAuditor             ,-    setSettingsEnableXssAuditor             ,-    settingsEnableXssAuditor                ,----- ** FantasyFontFamily-    SettingsFantasyFontFamilyPropertyInfo   ,-    constructSettingsFantasyFontFamily      ,-    getSettingsFantasyFontFamily            ,-    setSettingsFantasyFontFamily            ,-    settingsFantasyFontFamily               ,----- ** JavascriptCanAccessClipboard-    SettingsJavascriptCanAccessClipboardPropertyInfo,-    constructSettingsJavascriptCanAccessClipboard,-    getSettingsJavascriptCanAccessClipboard ,-    setSettingsJavascriptCanAccessClipboard ,-    settingsJavascriptCanAccessClipboard    ,----- ** JavascriptCanOpenWindowsAutomatically-    SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo,-    constructSettingsJavascriptCanOpenWindowsAutomatically,-    getSettingsJavascriptCanOpenWindowsAutomatically,-    setSettingsJavascriptCanOpenWindowsAutomatically,-    settingsJavascriptCanOpenWindowsAutomatically,----- ** LoadIconsIgnoringImageLoadSetting-    SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo,-    constructSettingsLoadIconsIgnoringImageLoadSetting,-    getSettingsLoadIconsIgnoringImageLoadSetting,-    setSettingsLoadIconsIgnoringImageLoadSetting,-    settingsLoadIconsIgnoringImageLoadSetting,----- ** MediaPlaybackAllowsInline-    SettingsMediaPlaybackAllowsInlinePropertyInfo,-    constructSettingsMediaPlaybackAllowsInline,-    getSettingsMediaPlaybackAllowsInline    ,-    setSettingsMediaPlaybackAllowsInline    ,-    settingsMediaPlaybackAllowsInline       ,----- ** MediaPlaybackRequiresUserGesture-    SettingsMediaPlaybackRequiresUserGesturePropertyInfo,-    constructSettingsMediaPlaybackRequiresUserGesture,-    getSettingsMediaPlaybackRequiresUserGesture,-    setSettingsMediaPlaybackRequiresUserGesture,-    settingsMediaPlaybackRequiresUserGesture,----- ** MinimumFontSize-    SettingsMinimumFontSizePropertyInfo     ,-    constructSettingsMinimumFontSize        ,-    getSettingsMinimumFontSize              ,-    setSettingsMinimumFontSize              ,-    settingsMinimumFontSize                 ,----- ** MonospaceFontFamily-    SettingsMonospaceFontFamilyPropertyInfo ,-    constructSettingsMonospaceFontFamily    ,-    getSettingsMonospaceFontFamily          ,-    setSettingsMonospaceFontFamily          ,-    settingsMonospaceFontFamily             ,----- ** PictographFontFamily-    SettingsPictographFontFamilyPropertyInfo,-    constructSettingsPictographFontFamily   ,-    getSettingsPictographFontFamily         ,-    setSettingsPictographFontFamily         ,-    settingsPictographFontFamily            ,----- ** PrintBackgrounds-    SettingsPrintBackgroundsPropertyInfo    ,-    constructSettingsPrintBackgrounds       ,-    getSettingsPrintBackgrounds             ,-    setSettingsPrintBackgrounds             ,-    settingsPrintBackgrounds                ,----- ** SansSerifFontFamily-    SettingsSansSerifFontFamilyPropertyInfo ,-    constructSettingsSansSerifFontFamily    ,-    getSettingsSansSerifFontFamily          ,-    setSettingsSansSerifFontFamily          ,-    settingsSansSerifFontFamily             ,----- ** SerifFontFamily-    SettingsSerifFontFamilyPropertyInfo     ,-    constructSettingsSerifFontFamily        ,-    getSettingsSerifFontFamily              ,-    setSettingsSerifFontFamily              ,-    settingsSerifFontFamily                 ,----- ** UserAgent-    SettingsUserAgentPropertyInfo           ,-    clearSettingsUserAgent                  ,-    constructSettingsUserAgent              ,-    getSettingsUserAgent                    ,-    setSettingsUserAgent                    ,-    settingsUserAgent                       ,----- ** ZoomTextOnly-    SettingsZoomTextOnlyPropertyInfo        ,-    constructSettingsZoomTextOnly           ,-    getSettingsZoomTextOnly                 ,-    setSettingsZoomTextOnly                 ,-    settingsZoomTextOnly                    ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject--newtype Settings = Settings (ForeignPtr Settings)-foreign import ccall "webkit_settings_get_type"-    c_webkit_settings_get_type :: IO GType--type instance ParentTypes Settings = SettingsParentTypes-type SettingsParentTypes = '[GObject.Object]--instance GObject Settings where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_settings_get_type-    --class GObject o => SettingsK o-instance (GObject o, IsDescendantOf Settings o) => SettingsK o--toSettings :: SettingsK o => o -> IO Settings-toSettings = unsafeCastTo Settings--noSettings :: Maybe Settings-noSettings = Nothing--type family ResolveSettingsMethod (t :: Symbol) (o :: *) :: * where-    ResolveSettingsMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveSettingsMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveSettingsMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveSettingsMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveSettingsMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveSettingsMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveSettingsMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveSettingsMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveSettingsMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveSettingsMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveSettingsMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveSettingsMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveSettingsMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveSettingsMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveSettingsMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveSettingsMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveSettingsMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveSettingsMethod "getAllowFileAccessFromFileUrls" o = SettingsGetAllowFileAccessFromFileUrlsMethodInfo-    ResolveSettingsMethod "getAllowModalDialogs" o = SettingsGetAllowModalDialogsMethodInfo-    ResolveSettingsMethod "getAutoLoadImages" o = SettingsGetAutoLoadImagesMethodInfo-    ResolveSettingsMethod "getCursiveFontFamily" o = SettingsGetCursiveFontFamilyMethodInfo-    ResolveSettingsMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveSettingsMethod "getDefaultCharset" o = SettingsGetDefaultCharsetMethodInfo-    ResolveSettingsMethod "getDefaultFontFamily" o = SettingsGetDefaultFontFamilyMethodInfo-    ResolveSettingsMethod "getDefaultFontSize" o = SettingsGetDefaultFontSizeMethodInfo-    ResolveSettingsMethod "getDefaultMonospaceFontSize" o = SettingsGetDefaultMonospaceFontSizeMethodInfo-    ResolveSettingsMethod "getDrawCompositingIndicators" o = SettingsGetDrawCompositingIndicatorsMethodInfo-    ResolveSettingsMethod "getEnableAccelerated2dCanvas" o = SettingsGetEnableAccelerated2dCanvasMethodInfo-    ResolveSettingsMethod "getEnableCaretBrowsing" o = SettingsGetEnableCaretBrowsingMethodInfo-    ResolveSettingsMethod "getEnableDeveloperExtras" o = SettingsGetEnableDeveloperExtrasMethodInfo-    ResolveSettingsMethod "getEnableDnsPrefetching" o = SettingsGetEnableDnsPrefetchingMethodInfo-    ResolveSettingsMethod "getEnableFrameFlattening" o = SettingsGetEnableFrameFlatteningMethodInfo-    ResolveSettingsMethod "getEnableFullscreen" o = SettingsGetEnableFullscreenMethodInfo-    ResolveSettingsMethod "getEnableHtml5Database" o = SettingsGetEnableHtml5DatabaseMethodInfo-    ResolveSettingsMethod "getEnableHtml5LocalStorage" o = SettingsGetEnableHtml5LocalStorageMethodInfo-    ResolveSettingsMethod "getEnableHyperlinkAuditing" o = SettingsGetEnableHyperlinkAuditingMethodInfo-    ResolveSettingsMethod "getEnableJava" o = SettingsGetEnableJavaMethodInfo-    ResolveSettingsMethod "getEnableJavascript" o = SettingsGetEnableJavascriptMethodInfo-    ResolveSettingsMethod "getEnableMediaStream" o = SettingsGetEnableMediaStreamMethodInfo-    ResolveSettingsMethod "getEnableMediasource" o = SettingsGetEnableMediasourceMethodInfo-    ResolveSettingsMethod "getEnableOfflineWebApplicationCache" o = SettingsGetEnableOfflineWebApplicationCacheMethodInfo-    ResolveSettingsMethod "getEnablePageCache" o = SettingsGetEnablePageCacheMethodInfo-    ResolveSettingsMethod "getEnablePlugins" o = SettingsGetEnablePluginsMethodInfo-    ResolveSettingsMethod "getEnablePrivateBrowsing" o = SettingsGetEnablePrivateBrowsingMethodInfo-    ResolveSettingsMethod "getEnableResizableTextAreas" o = SettingsGetEnableResizableTextAreasMethodInfo-    ResolveSettingsMethod "getEnableSiteSpecificQuirks" o = SettingsGetEnableSiteSpecificQuirksMethodInfo-    ResolveSettingsMethod "getEnableSmoothScrolling" o = SettingsGetEnableSmoothScrollingMethodInfo-    ResolveSettingsMethod "getEnableSpatialNavigation" o = SettingsGetEnableSpatialNavigationMethodInfo-    ResolveSettingsMethod "getEnableTabsToLinks" o = SettingsGetEnableTabsToLinksMethodInfo-    ResolveSettingsMethod "getEnableWebaudio" o = SettingsGetEnableWebaudioMethodInfo-    ResolveSettingsMethod "getEnableWebgl" o = SettingsGetEnableWebglMethodInfo-    ResolveSettingsMethod "getEnableWriteConsoleMessagesToStdout" o = SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo-    ResolveSettingsMethod "getEnableXssAuditor" o = SettingsGetEnableXssAuditorMethodInfo-    ResolveSettingsMethod "getFantasyFontFamily" o = SettingsGetFantasyFontFamilyMethodInfo-    ResolveSettingsMethod "getJavascriptCanAccessClipboard" o = SettingsGetJavascriptCanAccessClipboardMethodInfo-    ResolveSettingsMethod "getJavascriptCanOpenWindowsAutomatically" o = SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo-    ResolveSettingsMethod "getLoadIconsIgnoringImageLoadSetting" o = SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo-    ResolveSettingsMethod "getMediaPlaybackAllowsInline" o = SettingsGetMediaPlaybackAllowsInlineMethodInfo-    ResolveSettingsMethod "getMediaPlaybackRequiresUserGesture" o = SettingsGetMediaPlaybackRequiresUserGestureMethodInfo-    ResolveSettingsMethod "getMinimumFontSize" o = SettingsGetMinimumFontSizeMethodInfo-    ResolveSettingsMethod "getMonospaceFontFamily" o = SettingsGetMonospaceFontFamilyMethodInfo-    ResolveSettingsMethod "getPictographFontFamily" o = SettingsGetPictographFontFamilyMethodInfo-    ResolveSettingsMethod "getPrintBackgrounds" o = SettingsGetPrintBackgroundsMethodInfo-    ResolveSettingsMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveSettingsMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveSettingsMethod "getSansSerifFontFamily" o = SettingsGetSansSerifFontFamilyMethodInfo-    ResolveSettingsMethod "getSerifFontFamily" o = SettingsGetSerifFontFamilyMethodInfo-    ResolveSettingsMethod "getUserAgent" o = SettingsGetUserAgentMethodInfo-    ResolveSettingsMethod "getZoomTextOnly" o = SettingsGetZoomTextOnlyMethodInfo-    ResolveSettingsMethod "setAllowFileAccessFromFileUrls" o = SettingsSetAllowFileAccessFromFileUrlsMethodInfo-    ResolveSettingsMethod "setAllowModalDialogs" o = SettingsSetAllowModalDialogsMethodInfo-    ResolveSettingsMethod "setAutoLoadImages" o = SettingsSetAutoLoadImagesMethodInfo-    ResolveSettingsMethod "setCursiveFontFamily" o = SettingsSetCursiveFontFamilyMethodInfo-    ResolveSettingsMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveSettingsMethod "setDefaultCharset" o = SettingsSetDefaultCharsetMethodInfo-    ResolveSettingsMethod "setDefaultFontFamily" o = SettingsSetDefaultFontFamilyMethodInfo-    ResolveSettingsMethod "setDefaultFontSize" o = SettingsSetDefaultFontSizeMethodInfo-    ResolveSettingsMethod "setDefaultMonospaceFontSize" o = SettingsSetDefaultMonospaceFontSizeMethodInfo-    ResolveSettingsMethod "setDrawCompositingIndicators" o = SettingsSetDrawCompositingIndicatorsMethodInfo-    ResolveSettingsMethod "setEnableAccelerated2dCanvas" o = SettingsSetEnableAccelerated2dCanvasMethodInfo-    ResolveSettingsMethod "setEnableCaretBrowsing" o = SettingsSetEnableCaretBrowsingMethodInfo-    ResolveSettingsMethod "setEnableDeveloperExtras" o = SettingsSetEnableDeveloperExtrasMethodInfo-    ResolveSettingsMethod "setEnableDnsPrefetching" o = SettingsSetEnableDnsPrefetchingMethodInfo-    ResolveSettingsMethod "setEnableFrameFlattening" o = SettingsSetEnableFrameFlatteningMethodInfo-    ResolveSettingsMethod "setEnableFullscreen" o = SettingsSetEnableFullscreenMethodInfo-    ResolveSettingsMethod "setEnableHtml5Database" o = SettingsSetEnableHtml5DatabaseMethodInfo-    ResolveSettingsMethod "setEnableHtml5LocalStorage" o = SettingsSetEnableHtml5LocalStorageMethodInfo-    ResolveSettingsMethod "setEnableHyperlinkAuditing" o = SettingsSetEnableHyperlinkAuditingMethodInfo-    ResolveSettingsMethod "setEnableJava" o = SettingsSetEnableJavaMethodInfo-    ResolveSettingsMethod "setEnableJavascript" o = SettingsSetEnableJavascriptMethodInfo-    ResolveSettingsMethod "setEnableMediaStream" o = SettingsSetEnableMediaStreamMethodInfo-    ResolveSettingsMethod "setEnableMediasource" o = SettingsSetEnableMediasourceMethodInfo-    ResolveSettingsMethod "setEnableOfflineWebApplicationCache" o = SettingsSetEnableOfflineWebApplicationCacheMethodInfo-    ResolveSettingsMethod "setEnablePageCache" o = SettingsSetEnablePageCacheMethodInfo-    ResolveSettingsMethod "setEnablePlugins" o = SettingsSetEnablePluginsMethodInfo-    ResolveSettingsMethod "setEnablePrivateBrowsing" o = SettingsSetEnablePrivateBrowsingMethodInfo-    ResolveSettingsMethod "setEnableResizableTextAreas" o = SettingsSetEnableResizableTextAreasMethodInfo-    ResolveSettingsMethod "setEnableSiteSpecificQuirks" o = SettingsSetEnableSiteSpecificQuirksMethodInfo-    ResolveSettingsMethod "setEnableSmoothScrolling" o = SettingsSetEnableSmoothScrollingMethodInfo-    ResolveSettingsMethod "setEnableSpatialNavigation" o = SettingsSetEnableSpatialNavigationMethodInfo-    ResolveSettingsMethod "setEnableTabsToLinks" o = SettingsSetEnableTabsToLinksMethodInfo-    ResolveSettingsMethod "setEnableWebaudio" o = SettingsSetEnableWebaudioMethodInfo-    ResolveSettingsMethod "setEnableWebgl" o = SettingsSetEnableWebglMethodInfo-    ResolveSettingsMethod "setEnableWriteConsoleMessagesToStdout" o = SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo-    ResolveSettingsMethod "setEnableXssAuditor" o = SettingsSetEnableXssAuditorMethodInfo-    ResolveSettingsMethod "setFantasyFontFamily" o = SettingsSetFantasyFontFamilyMethodInfo-    ResolveSettingsMethod "setJavascriptCanAccessClipboard" o = SettingsSetJavascriptCanAccessClipboardMethodInfo-    ResolveSettingsMethod "setJavascriptCanOpenWindowsAutomatically" o = SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo-    ResolveSettingsMethod "setLoadIconsIgnoringImageLoadSetting" o = SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo-    ResolveSettingsMethod "setMediaPlaybackAllowsInline" o = SettingsSetMediaPlaybackAllowsInlineMethodInfo-    ResolveSettingsMethod "setMediaPlaybackRequiresUserGesture" o = SettingsSetMediaPlaybackRequiresUserGestureMethodInfo-    ResolveSettingsMethod "setMinimumFontSize" o = SettingsSetMinimumFontSizeMethodInfo-    ResolveSettingsMethod "setMonospaceFontFamily" o = SettingsSetMonospaceFontFamilyMethodInfo-    ResolveSettingsMethod "setPictographFontFamily" o = SettingsSetPictographFontFamilyMethodInfo-    ResolveSettingsMethod "setPrintBackgrounds" o = SettingsSetPrintBackgroundsMethodInfo-    ResolveSettingsMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveSettingsMethod "setSansSerifFontFamily" o = SettingsSetSansSerifFontFamilyMethodInfo-    ResolveSettingsMethod "setSerifFontFamily" o = SettingsSetSerifFontFamilyMethodInfo-    ResolveSettingsMethod "setUserAgent" o = SettingsSetUserAgentMethodInfo-    ResolveSettingsMethod "setUserAgentWithApplicationDetails" o = SettingsSetUserAgentWithApplicationDetailsMethodInfo-    ResolveSettingsMethod "setZoomTextOnly" o = SettingsSetZoomTextOnlyMethodInfo-    ResolveSettingsMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveSettingsMethod t Settings, MethodInfo info Settings p) => IsLabelProxy t (Settings -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSettingsMethod t Settings, MethodInfo info Settings p) => IsLabel t (Settings -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "allow-file-access-from-file-urls"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsAllowFileAccessFromFileUrls :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsAllowFileAccessFromFileUrls obj = liftIO $ getObjectPropertyBool obj "allow-file-access-from-file-urls"--setSettingsAllowFileAccessFromFileUrls :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsAllowFileAccessFromFileUrls obj val = liftIO $ setObjectPropertyBool obj "allow-file-access-from-file-urls" val--constructSettingsAllowFileAccessFromFileUrls :: Bool -> IO ([Char], GValue)-constructSettingsAllowFileAccessFromFileUrls val = constructObjectPropertyBool "allow-file-access-from-file-urls" val--data SettingsAllowFileAccessFromFileUrlsPropertyInfo-instance AttrInfo SettingsAllowFileAccessFromFileUrlsPropertyInfo where-    type AttrAllowedOps SettingsAllowFileAccessFromFileUrlsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsAllowFileAccessFromFileUrlsPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsAllowFileAccessFromFileUrlsPropertyInfo = SettingsK-    type AttrGetType SettingsAllowFileAccessFromFileUrlsPropertyInfo = Bool-    type AttrLabel SettingsAllowFileAccessFromFileUrlsPropertyInfo = "allow-file-access-from-file-urls"-    attrGet _ = getSettingsAllowFileAccessFromFileUrls-    attrSet _ = setSettingsAllowFileAccessFromFileUrls-    attrConstruct _ = constructSettingsAllowFileAccessFromFileUrls-    attrClear _ = undefined---- VVV Prop "allow-modal-dialogs"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsAllowModalDialogs :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsAllowModalDialogs obj = liftIO $ getObjectPropertyBool obj "allow-modal-dialogs"--setSettingsAllowModalDialogs :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsAllowModalDialogs obj val = liftIO $ setObjectPropertyBool obj "allow-modal-dialogs" val--constructSettingsAllowModalDialogs :: Bool -> IO ([Char], GValue)-constructSettingsAllowModalDialogs val = constructObjectPropertyBool "allow-modal-dialogs" val--data SettingsAllowModalDialogsPropertyInfo-instance AttrInfo SettingsAllowModalDialogsPropertyInfo where-    type AttrAllowedOps SettingsAllowModalDialogsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsAllowModalDialogsPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsAllowModalDialogsPropertyInfo = SettingsK-    type AttrGetType SettingsAllowModalDialogsPropertyInfo = Bool-    type AttrLabel SettingsAllowModalDialogsPropertyInfo = "allow-modal-dialogs"-    attrGet _ = getSettingsAllowModalDialogs-    attrSet _ = setSettingsAllowModalDialogs-    attrConstruct _ = constructSettingsAllowModalDialogs-    attrClear _ = undefined---- VVV Prop "auto-load-images"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsAutoLoadImages :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsAutoLoadImages obj = liftIO $ getObjectPropertyBool obj "auto-load-images"--setSettingsAutoLoadImages :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsAutoLoadImages obj val = liftIO $ setObjectPropertyBool obj "auto-load-images" val--constructSettingsAutoLoadImages :: Bool -> IO ([Char], GValue)-constructSettingsAutoLoadImages val = constructObjectPropertyBool "auto-load-images" val--data SettingsAutoLoadImagesPropertyInfo-instance AttrInfo SettingsAutoLoadImagesPropertyInfo where-    type AttrAllowedOps SettingsAutoLoadImagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsAutoLoadImagesPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsAutoLoadImagesPropertyInfo = SettingsK-    type AttrGetType SettingsAutoLoadImagesPropertyInfo = Bool-    type AttrLabel SettingsAutoLoadImagesPropertyInfo = "auto-load-images"-    attrGet _ = getSettingsAutoLoadImages-    attrSet _ = setSettingsAutoLoadImages-    attrConstruct _ = constructSettingsAutoLoadImages-    attrClear _ = undefined---- VVV Prop "cursive-font-family"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsCursiveFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text-getSettingsCursiveFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsCursiveFontFamily" $ getObjectPropertyString obj "cursive-font-family"--setSettingsCursiveFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m ()-setSettingsCursiveFontFamily obj val = liftIO $ setObjectPropertyString obj "cursive-font-family" (Just val)--constructSettingsCursiveFontFamily :: T.Text -> IO ([Char], GValue)-constructSettingsCursiveFontFamily val = constructObjectPropertyString "cursive-font-family" (Just val)--data SettingsCursiveFontFamilyPropertyInfo-instance AttrInfo SettingsCursiveFontFamilyPropertyInfo where-    type AttrAllowedOps SettingsCursiveFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsCursiveFontFamilyPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint SettingsCursiveFontFamilyPropertyInfo = SettingsK-    type AttrGetType SettingsCursiveFontFamilyPropertyInfo = T.Text-    type AttrLabel SettingsCursiveFontFamilyPropertyInfo = "cursive-font-family"-    attrGet _ = getSettingsCursiveFontFamily-    attrSet _ = setSettingsCursiveFontFamily-    attrConstruct _ = constructSettingsCursiveFontFamily-    attrClear _ = undefined---- VVV Prop "default-charset"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsDefaultCharset :: (MonadIO m, SettingsK o) => o -> m T.Text-getSettingsDefaultCharset obj = liftIO $ checkUnexpectedNothing "getSettingsDefaultCharset" $ getObjectPropertyString obj "default-charset"--setSettingsDefaultCharset :: (MonadIO m, SettingsK o) => o -> T.Text -> m ()-setSettingsDefaultCharset obj val = liftIO $ setObjectPropertyString obj "default-charset" (Just val)--constructSettingsDefaultCharset :: T.Text -> IO ([Char], GValue)-constructSettingsDefaultCharset val = constructObjectPropertyString "default-charset" (Just val)--data SettingsDefaultCharsetPropertyInfo-instance AttrInfo SettingsDefaultCharsetPropertyInfo where-    type AttrAllowedOps SettingsDefaultCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsDefaultCharsetPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint SettingsDefaultCharsetPropertyInfo = SettingsK-    type AttrGetType SettingsDefaultCharsetPropertyInfo = T.Text-    type AttrLabel SettingsDefaultCharsetPropertyInfo = "default-charset"-    attrGet _ = getSettingsDefaultCharset-    attrSet _ = setSettingsDefaultCharset-    attrConstruct _ = constructSettingsDefaultCharset-    attrClear _ = undefined---- VVV Prop "default-font-family"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsDefaultFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text-getSettingsDefaultFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsDefaultFontFamily" $ getObjectPropertyString obj "default-font-family"--setSettingsDefaultFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m ()-setSettingsDefaultFontFamily obj val = liftIO $ setObjectPropertyString obj "default-font-family" (Just val)--constructSettingsDefaultFontFamily :: T.Text -> IO ([Char], GValue)-constructSettingsDefaultFontFamily val = constructObjectPropertyString "default-font-family" (Just val)--data SettingsDefaultFontFamilyPropertyInfo-instance AttrInfo SettingsDefaultFontFamilyPropertyInfo where-    type AttrAllowedOps SettingsDefaultFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsDefaultFontFamilyPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint SettingsDefaultFontFamilyPropertyInfo = SettingsK-    type AttrGetType SettingsDefaultFontFamilyPropertyInfo = T.Text-    type AttrLabel SettingsDefaultFontFamilyPropertyInfo = "default-font-family"-    attrGet _ = getSettingsDefaultFontFamily-    attrSet _ = setSettingsDefaultFontFamily-    attrConstruct _ = constructSettingsDefaultFontFamily-    attrClear _ = undefined---- VVV Prop "default-font-size"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Nothing,Nothing)--getSettingsDefaultFontSize :: (MonadIO m, SettingsK o) => o -> m Word32-getSettingsDefaultFontSize obj = liftIO $ getObjectPropertyUInt32 obj "default-font-size"--setSettingsDefaultFontSize :: (MonadIO m, SettingsK o) => o -> Word32 -> m ()-setSettingsDefaultFontSize obj val = liftIO $ setObjectPropertyUInt32 obj "default-font-size" val--constructSettingsDefaultFontSize :: Word32 -> IO ([Char], GValue)-constructSettingsDefaultFontSize val = constructObjectPropertyUInt32 "default-font-size" val--data SettingsDefaultFontSizePropertyInfo-instance AttrInfo SettingsDefaultFontSizePropertyInfo where-    type AttrAllowedOps SettingsDefaultFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsDefaultFontSizePropertyInfo = (~) Word32-    type AttrBaseTypeConstraint SettingsDefaultFontSizePropertyInfo = SettingsK-    type AttrGetType SettingsDefaultFontSizePropertyInfo = Word32-    type AttrLabel SettingsDefaultFontSizePropertyInfo = "default-font-size"-    attrGet _ = getSettingsDefaultFontSize-    attrSet _ = setSettingsDefaultFontSize-    attrConstruct _ = constructSettingsDefaultFontSize-    attrClear _ = undefined---- VVV Prop "default-monospace-font-size"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Nothing,Nothing)--getSettingsDefaultMonospaceFontSize :: (MonadIO m, SettingsK o) => o -> m Word32-getSettingsDefaultMonospaceFontSize obj = liftIO $ getObjectPropertyUInt32 obj "default-monospace-font-size"--setSettingsDefaultMonospaceFontSize :: (MonadIO m, SettingsK o) => o -> Word32 -> m ()-setSettingsDefaultMonospaceFontSize obj val = liftIO $ setObjectPropertyUInt32 obj "default-monospace-font-size" val--constructSettingsDefaultMonospaceFontSize :: Word32 -> IO ([Char], GValue)-constructSettingsDefaultMonospaceFontSize val = constructObjectPropertyUInt32 "default-monospace-font-size" val--data SettingsDefaultMonospaceFontSizePropertyInfo-instance AttrInfo SettingsDefaultMonospaceFontSizePropertyInfo where-    type AttrAllowedOps SettingsDefaultMonospaceFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsDefaultMonospaceFontSizePropertyInfo = (~) Word32-    type AttrBaseTypeConstraint SettingsDefaultMonospaceFontSizePropertyInfo = SettingsK-    type AttrGetType SettingsDefaultMonospaceFontSizePropertyInfo = Word32-    type AttrLabel SettingsDefaultMonospaceFontSizePropertyInfo = "default-monospace-font-size"-    attrGet _ = getSettingsDefaultMonospaceFontSize-    attrSet _ = setSettingsDefaultMonospaceFontSize-    attrConstruct _ = constructSettingsDefaultMonospaceFontSize-    attrClear _ = undefined---- VVV Prop "draw-compositing-indicators"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsDrawCompositingIndicators :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsDrawCompositingIndicators obj = liftIO $ getObjectPropertyBool obj "draw-compositing-indicators"--setSettingsDrawCompositingIndicators :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsDrawCompositingIndicators obj val = liftIO $ setObjectPropertyBool obj "draw-compositing-indicators" val--constructSettingsDrawCompositingIndicators :: Bool -> IO ([Char], GValue)-constructSettingsDrawCompositingIndicators val = constructObjectPropertyBool "draw-compositing-indicators" val--data SettingsDrawCompositingIndicatorsPropertyInfo-instance AttrInfo SettingsDrawCompositingIndicatorsPropertyInfo where-    type AttrAllowedOps SettingsDrawCompositingIndicatorsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsDrawCompositingIndicatorsPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsDrawCompositingIndicatorsPropertyInfo = SettingsK-    type AttrGetType SettingsDrawCompositingIndicatorsPropertyInfo = Bool-    type AttrLabel SettingsDrawCompositingIndicatorsPropertyInfo = "draw-compositing-indicators"-    attrGet _ = getSettingsDrawCompositingIndicators-    attrSet _ = setSettingsDrawCompositingIndicators-    attrConstruct _ = constructSettingsDrawCompositingIndicators-    attrClear _ = undefined---- VVV Prop "enable-accelerated-2d-canvas"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsEnableAccelerated2dCanvas :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsEnableAccelerated2dCanvas obj = liftIO $ getObjectPropertyBool obj "enable-accelerated-2d-canvas"--setSettingsEnableAccelerated2dCanvas :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsEnableAccelerated2dCanvas obj val = liftIO $ setObjectPropertyBool obj "enable-accelerated-2d-canvas" val--constructSettingsEnableAccelerated2dCanvas :: Bool -> IO ([Char], GValue)-constructSettingsEnableAccelerated2dCanvas val = constructObjectPropertyBool "enable-accelerated-2d-canvas" val--data SettingsEnableAccelerated2dCanvasPropertyInfo-instance AttrInfo SettingsEnableAccelerated2dCanvasPropertyInfo where-    type AttrAllowedOps SettingsEnableAccelerated2dCanvasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsEnableAccelerated2dCanvasPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsEnableAccelerated2dCanvasPropertyInfo = SettingsK-    type AttrGetType SettingsEnableAccelerated2dCanvasPropertyInfo = Bool-    type AttrLabel SettingsEnableAccelerated2dCanvasPropertyInfo = "enable-accelerated-2d-canvas"-    attrGet _ = getSettingsEnableAccelerated2dCanvas-    attrSet _ = setSettingsEnableAccelerated2dCanvas-    attrConstruct _ = constructSettingsEnableAccelerated2dCanvas-    attrClear _ = undefined---- VVV Prop "enable-caret-browsing"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsEnableCaretBrowsing :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsEnableCaretBrowsing obj = liftIO $ getObjectPropertyBool obj "enable-caret-browsing"--setSettingsEnableCaretBrowsing :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsEnableCaretBrowsing obj val = liftIO $ setObjectPropertyBool obj "enable-caret-browsing" val--constructSettingsEnableCaretBrowsing :: Bool -> IO ([Char], GValue)-constructSettingsEnableCaretBrowsing val = constructObjectPropertyBool "enable-caret-browsing" val--data SettingsEnableCaretBrowsingPropertyInfo-instance AttrInfo SettingsEnableCaretBrowsingPropertyInfo where-    type AttrAllowedOps SettingsEnableCaretBrowsingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsEnableCaretBrowsingPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsEnableCaretBrowsingPropertyInfo = SettingsK-    type AttrGetType SettingsEnableCaretBrowsingPropertyInfo = Bool-    type AttrLabel SettingsEnableCaretBrowsingPropertyInfo = "enable-caret-browsing"-    attrGet _ = getSettingsEnableCaretBrowsing-    attrSet _ = setSettingsEnableCaretBrowsing-    attrConstruct _ = constructSettingsEnableCaretBrowsing-    attrClear _ = undefined---- VVV Prop "enable-developer-extras"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsEnableDeveloperExtras :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsEnableDeveloperExtras obj = liftIO $ getObjectPropertyBool obj "enable-developer-extras"--setSettingsEnableDeveloperExtras :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsEnableDeveloperExtras obj val = liftIO $ setObjectPropertyBool obj "enable-developer-extras" val--constructSettingsEnableDeveloperExtras :: Bool -> IO ([Char], GValue)-constructSettingsEnableDeveloperExtras val = constructObjectPropertyBool "enable-developer-extras" val--data SettingsEnableDeveloperExtrasPropertyInfo-instance AttrInfo SettingsEnableDeveloperExtrasPropertyInfo where-    type AttrAllowedOps SettingsEnableDeveloperExtrasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsEnableDeveloperExtrasPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsEnableDeveloperExtrasPropertyInfo = SettingsK-    type AttrGetType SettingsEnableDeveloperExtrasPropertyInfo = Bool-    type AttrLabel SettingsEnableDeveloperExtrasPropertyInfo = "enable-developer-extras"-    attrGet _ = getSettingsEnableDeveloperExtras-    attrSet _ = setSettingsEnableDeveloperExtras-    attrConstruct _ = constructSettingsEnableDeveloperExtras-    attrClear _ = undefined---- VVV Prop "enable-dns-prefetching"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsEnableDnsPrefetching :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsEnableDnsPrefetching obj = liftIO $ getObjectPropertyBool obj "enable-dns-prefetching"--setSettingsEnableDnsPrefetching :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsEnableDnsPrefetching obj val = liftIO $ setObjectPropertyBool obj "enable-dns-prefetching" val--constructSettingsEnableDnsPrefetching :: Bool -> IO ([Char], GValue)-constructSettingsEnableDnsPrefetching val = constructObjectPropertyBool "enable-dns-prefetching" val--data SettingsEnableDnsPrefetchingPropertyInfo-instance AttrInfo SettingsEnableDnsPrefetchingPropertyInfo where-    type AttrAllowedOps SettingsEnableDnsPrefetchingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsEnableDnsPrefetchingPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsEnableDnsPrefetchingPropertyInfo = SettingsK-    type AttrGetType SettingsEnableDnsPrefetchingPropertyInfo = Bool-    type AttrLabel SettingsEnableDnsPrefetchingPropertyInfo = "enable-dns-prefetching"-    attrGet _ = getSettingsEnableDnsPrefetching-    attrSet _ = setSettingsEnableDnsPrefetching-    attrConstruct _ = constructSettingsEnableDnsPrefetching-    attrClear _ = undefined---- VVV Prop "enable-frame-flattening"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsEnableFrameFlattening :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsEnableFrameFlattening obj = liftIO $ getObjectPropertyBool obj "enable-frame-flattening"--setSettingsEnableFrameFlattening :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsEnableFrameFlattening obj val = liftIO $ setObjectPropertyBool obj "enable-frame-flattening" val--constructSettingsEnableFrameFlattening :: Bool -> IO ([Char], GValue)-constructSettingsEnableFrameFlattening val = constructObjectPropertyBool "enable-frame-flattening" val--data SettingsEnableFrameFlatteningPropertyInfo-instance AttrInfo SettingsEnableFrameFlatteningPropertyInfo where-    type AttrAllowedOps SettingsEnableFrameFlatteningPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsEnableFrameFlatteningPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsEnableFrameFlatteningPropertyInfo = SettingsK-    type AttrGetType SettingsEnableFrameFlatteningPropertyInfo = Bool-    type AttrLabel SettingsEnableFrameFlatteningPropertyInfo = "enable-frame-flattening"-    attrGet _ = getSettingsEnableFrameFlattening-    attrSet _ = setSettingsEnableFrameFlattening-    attrConstruct _ = constructSettingsEnableFrameFlattening-    attrClear _ = undefined---- VVV Prop "enable-fullscreen"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsEnableFullscreen :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsEnableFullscreen obj = liftIO $ getObjectPropertyBool obj "enable-fullscreen"--setSettingsEnableFullscreen :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsEnableFullscreen obj val = liftIO $ setObjectPropertyBool obj "enable-fullscreen" val--constructSettingsEnableFullscreen :: Bool -> IO ([Char], GValue)-constructSettingsEnableFullscreen val = constructObjectPropertyBool "enable-fullscreen" val--data SettingsEnableFullscreenPropertyInfo-instance AttrInfo SettingsEnableFullscreenPropertyInfo where-    type AttrAllowedOps SettingsEnableFullscreenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsEnableFullscreenPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsEnableFullscreenPropertyInfo = SettingsK-    type AttrGetType SettingsEnableFullscreenPropertyInfo = Bool-    type AttrLabel SettingsEnableFullscreenPropertyInfo = "enable-fullscreen"-    attrGet _ = getSettingsEnableFullscreen-    attrSet _ = setSettingsEnableFullscreen-    attrConstruct _ = constructSettingsEnableFullscreen-    attrClear _ = undefined---- VVV Prop "enable-html5-database"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsEnableHtml5Database :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsEnableHtml5Database obj = liftIO $ getObjectPropertyBool obj "enable-html5-database"--setSettingsEnableHtml5Database :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsEnableHtml5Database obj val = liftIO $ setObjectPropertyBool obj "enable-html5-database" val--constructSettingsEnableHtml5Database :: Bool -> IO ([Char], GValue)-constructSettingsEnableHtml5Database val = constructObjectPropertyBool "enable-html5-database" val--data SettingsEnableHtml5DatabasePropertyInfo-instance AttrInfo SettingsEnableHtml5DatabasePropertyInfo where-    type AttrAllowedOps SettingsEnableHtml5DatabasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsEnableHtml5DatabasePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsEnableHtml5DatabasePropertyInfo = SettingsK-    type AttrGetType SettingsEnableHtml5DatabasePropertyInfo = Bool-    type AttrLabel SettingsEnableHtml5DatabasePropertyInfo = "enable-html5-database"-    attrGet _ = getSettingsEnableHtml5Database-    attrSet _ = setSettingsEnableHtml5Database-    attrConstruct _ = constructSettingsEnableHtml5Database-    attrClear _ = undefined---- VVV Prop "enable-html5-local-storage"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsEnableHtml5LocalStorage :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsEnableHtml5LocalStorage obj = liftIO $ getObjectPropertyBool obj "enable-html5-local-storage"--setSettingsEnableHtml5LocalStorage :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsEnableHtml5LocalStorage obj val = liftIO $ setObjectPropertyBool obj "enable-html5-local-storage" val--constructSettingsEnableHtml5LocalStorage :: Bool -> IO ([Char], GValue)-constructSettingsEnableHtml5LocalStorage val = constructObjectPropertyBool "enable-html5-local-storage" val--data SettingsEnableHtml5LocalStoragePropertyInfo-instance AttrInfo SettingsEnableHtml5LocalStoragePropertyInfo where-    type AttrAllowedOps SettingsEnableHtml5LocalStoragePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsEnableHtml5LocalStoragePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsEnableHtml5LocalStoragePropertyInfo = SettingsK-    type AttrGetType SettingsEnableHtml5LocalStoragePropertyInfo = Bool-    type AttrLabel SettingsEnableHtml5LocalStoragePropertyInfo = "enable-html5-local-storage"-    attrGet _ = getSettingsEnableHtml5LocalStorage-    attrSet _ = setSettingsEnableHtml5LocalStorage-    attrConstruct _ = constructSettingsEnableHtml5LocalStorage-    attrClear _ = undefined---- VVV Prop "enable-hyperlink-auditing"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsEnableHyperlinkAuditing :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsEnableHyperlinkAuditing obj = liftIO $ getObjectPropertyBool obj "enable-hyperlink-auditing"--setSettingsEnableHyperlinkAuditing :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsEnableHyperlinkAuditing obj val = liftIO $ setObjectPropertyBool obj "enable-hyperlink-auditing" val--constructSettingsEnableHyperlinkAuditing :: Bool -> IO ([Char], GValue)-constructSettingsEnableHyperlinkAuditing val = constructObjectPropertyBool "enable-hyperlink-auditing" val--data SettingsEnableHyperlinkAuditingPropertyInfo-instance AttrInfo SettingsEnableHyperlinkAuditingPropertyInfo where-    type AttrAllowedOps SettingsEnableHyperlinkAuditingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsEnableHyperlinkAuditingPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsEnableHyperlinkAuditingPropertyInfo = SettingsK-    type AttrGetType SettingsEnableHyperlinkAuditingPropertyInfo = Bool-    type AttrLabel SettingsEnableHyperlinkAuditingPropertyInfo = "enable-hyperlink-auditing"-    attrGet _ = getSettingsEnableHyperlinkAuditing-    attrSet _ = setSettingsEnableHyperlinkAuditing-    attrConstruct _ = constructSettingsEnableHyperlinkAuditing-    attrClear _ = undefined---- VVV Prop "enable-java"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsEnableJava :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsEnableJava obj = liftIO $ getObjectPropertyBool obj "enable-java"--setSettingsEnableJava :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsEnableJava obj val = liftIO $ setObjectPropertyBool obj "enable-java" val--constructSettingsEnableJava :: Bool -> IO ([Char], GValue)-constructSettingsEnableJava val = constructObjectPropertyBool "enable-java" val--data SettingsEnableJavaPropertyInfo-instance AttrInfo SettingsEnableJavaPropertyInfo where-    type AttrAllowedOps SettingsEnableJavaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsEnableJavaPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsEnableJavaPropertyInfo = SettingsK-    type AttrGetType SettingsEnableJavaPropertyInfo = Bool-    type AttrLabel SettingsEnableJavaPropertyInfo = "enable-java"-    attrGet _ = getSettingsEnableJava-    attrSet _ = setSettingsEnableJava-    attrConstruct _ = constructSettingsEnableJava-    attrClear _ = undefined---- VVV Prop "enable-javascript"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsEnableJavascript :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsEnableJavascript obj = liftIO $ getObjectPropertyBool obj "enable-javascript"--setSettingsEnableJavascript :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsEnableJavascript obj val = liftIO $ setObjectPropertyBool obj "enable-javascript" val--constructSettingsEnableJavascript :: Bool -> IO ([Char], GValue)-constructSettingsEnableJavascript val = constructObjectPropertyBool "enable-javascript" val--data SettingsEnableJavascriptPropertyInfo-instance AttrInfo SettingsEnableJavascriptPropertyInfo where-    type AttrAllowedOps SettingsEnableJavascriptPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsEnableJavascriptPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsEnableJavascriptPropertyInfo = SettingsK-    type AttrGetType SettingsEnableJavascriptPropertyInfo = Bool-    type AttrLabel SettingsEnableJavascriptPropertyInfo = "enable-javascript"-    attrGet _ = getSettingsEnableJavascript-    attrSet _ = setSettingsEnableJavascript-    attrConstruct _ = constructSettingsEnableJavascript-    attrClear _ = undefined---- VVV Prop "enable-media-stream"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsEnableMediaStream :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsEnableMediaStream obj = liftIO $ getObjectPropertyBool obj "enable-media-stream"--setSettingsEnableMediaStream :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsEnableMediaStream obj val = liftIO $ setObjectPropertyBool obj "enable-media-stream" val--constructSettingsEnableMediaStream :: Bool -> IO ([Char], GValue)-constructSettingsEnableMediaStream val = constructObjectPropertyBool "enable-media-stream" val--data SettingsEnableMediaStreamPropertyInfo-instance AttrInfo SettingsEnableMediaStreamPropertyInfo where-    type AttrAllowedOps SettingsEnableMediaStreamPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsEnableMediaStreamPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsEnableMediaStreamPropertyInfo = SettingsK-    type AttrGetType SettingsEnableMediaStreamPropertyInfo = Bool-    type AttrLabel SettingsEnableMediaStreamPropertyInfo = "enable-media-stream"-    attrGet _ = getSettingsEnableMediaStream-    attrSet _ = setSettingsEnableMediaStream-    attrConstruct _ = constructSettingsEnableMediaStream-    attrClear _ = undefined---- VVV Prop "enable-mediasource"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsEnableMediasource :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsEnableMediasource obj = liftIO $ getObjectPropertyBool obj "enable-mediasource"--setSettingsEnableMediasource :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsEnableMediasource obj val = liftIO $ setObjectPropertyBool obj "enable-mediasource" val--constructSettingsEnableMediasource :: Bool -> IO ([Char], GValue)-constructSettingsEnableMediasource val = constructObjectPropertyBool "enable-mediasource" val--data SettingsEnableMediasourcePropertyInfo-instance AttrInfo SettingsEnableMediasourcePropertyInfo where-    type AttrAllowedOps SettingsEnableMediasourcePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsEnableMediasourcePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsEnableMediasourcePropertyInfo = SettingsK-    type AttrGetType SettingsEnableMediasourcePropertyInfo = Bool-    type AttrLabel SettingsEnableMediasourcePropertyInfo = "enable-mediasource"-    attrGet _ = getSettingsEnableMediasource-    attrSet _ = setSettingsEnableMediasource-    attrConstruct _ = constructSettingsEnableMediasource-    attrClear _ = undefined---- VVV Prop "enable-offline-web-application-cache"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsEnableOfflineWebApplicationCache :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsEnableOfflineWebApplicationCache obj = liftIO $ getObjectPropertyBool obj "enable-offline-web-application-cache"--setSettingsEnableOfflineWebApplicationCache :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsEnableOfflineWebApplicationCache obj val = liftIO $ setObjectPropertyBool obj "enable-offline-web-application-cache" val--constructSettingsEnableOfflineWebApplicationCache :: Bool -> IO ([Char], GValue)-constructSettingsEnableOfflineWebApplicationCache val = constructObjectPropertyBool "enable-offline-web-application-cache" val--data SettingsEnableOfflineWebApplicationCachePropertyInfo-instance AttrInfo SettingsEnableOfflineWebApplicationCachePropertyInfo where-    type AttrAllowedOps SettingsEnableOfflineWebApplicationCachePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsEnableOfflineWebApplicationCachePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsEnableOfflineWebApplicationCachePropertyInfo = SettingsK-    type AttrGetType SettingsEnableOfflineWebApplicationCachePropertyInfo = Bool-    type AttrLabel SettingsEnableOfflineWebApplicationCachePropertyInfo = "enable-offline-web-application-cache"-    attrGet _ = getSettingsEnableOfflineWebApplicationCache-    attrSet _ = setSettingsEnableOfflineWebApplicationCache-    attrConstruct _ = constructSettingsEnableOfflineWebApplicationCache-    attrClear _ = undefined---- VVV Prop "enable-page-cache"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsEnablePageCache :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsEnablePageCache obj = liftIO $ getObjectPropertyBool obj "enable-page-cache"--setSettingsEnablePageCache :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsEnablePageCache obj val = liftIO $ setObjectPropertyBool obj "enable-page-cache" val--constructSettingsEnablePageCache :: Bool -> IO ([Char], GValue)-constructSettingsEnablePageCache val = constructObjectPropertyBool "enable-page-cache" val--data SettingsEnablePageCachePropertyInfo-instance AttrInfo SettingsEnablePageCachePropertyInfo where-    type AttrAllowedOps SettingsEnablePageCachePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsEnablePageCachePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsEnablePageCachePropertyInfo = SettingsK-    type AttrGetType SettingsEnablePageCachePropertyInfo = Bool-    type AttrLabel SettingsEnablePageCachePropertyInfo = "enable-page-cache"-    attrGet _ = getSettingsEnablePageCache-    attrSet _ = setSettingsEnablePageCache-    attrConstruct _ = constructSettingsEnablePageCache-    attrClear _ = undefined---- VVV Prop "enable-plugins"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsEnablePlugins :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsEnablePlugins obj = liftIO $ getObjectPropertyBool obj "enable-plugins"--setSettingsEnablePlugins :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsEnablePlugins obj val = liftIO $ setObjectPropertyBool obj "enable-plugins" val--constructSettingsEnablePlugins :: Bool -> IO ([Char], GValue)-constructSettingsEnablePlugins val = constructObjectPropertyBool "enable-plugins" val--data SettingsEnablePluginsPropertyInfo-instance AttrInfo SettingsEnablePluginsPropertyInfo where-    type AttrAllowedOps SettingsEnablePluginsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsEnablePluginsPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsEnablePluginsPropertyInfo = SettingsK-    type AttrGetType SettingsEnablePluginsPropertyInfo = Bool-    type AttrLabel SettingsEnablePluginsPropertyInfo = "enable-plugins"-    attrGet _ = getSettingsEnablePlugins-    attrSet _ = setSettingsEnablePlugins-    attrConstruct _ = constructSettingsEnablePlugins-    attrClear _ = undefined---- VVV Prop "enable-private-browsing"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsEnablePrivateBrowsing :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsEnablePrivateBrowsing obj = liftIO $ getObjectPropertyBool obj "enable-private-browsing"--setSettingsEnablePrivateBrowsing :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsEnablePrivateBrowsing obj val = liftIO $ setObjectPropertyBool obj "enable-private-browsing" val--constructSettingsEnablePrivateBrowsing :: Bool -> IO ([Char], GValue)-constructSettingsEnablePrivateBrowsing val = constructObjectPropertyBool "enable-private-browsing" val--data SettingsEnablePrivateBrowsingPropertyInfo-instance AttrInfo SettingsEnablePrivateBrowsingPropertyInfo where-    type AttrAllowedOps SettingsEnablePrivateBrowsingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsEnablePrivateBrowsingPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsEnablePrivateBrowsingPropertyInfo = SettingsK-    type AttrGetType SettingsEnablePrivateBrowsingPropertyInfo = Bool-    type AttrLabel SettingsEnablePrivateBrowsingPropertyInfo = "enable-private-browsing"-    attrGet _ = getSettingsEnablePrivateBrowsing-    attrSet _ = setSettingsEnablePrivateBrowsing-    attrConstruct _ = constructSettingsEnablePrivateBrowsing-    attrClear _ = undefined---- VVV Prop "enable-resizable-text-areas"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsEnableResizableTextAreas :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsEnableResizableTextAreas obj = liftIO $ getObjectPropertyBool obj "enable-resizable-text-areas"--setSettingsEnableResizableTextAreas :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsEnableResizableTextAreas obj val = liftIO $ setObjectPropertyBool obj "enable-resizable-text-areas" val--constructSettingsEnableResizableTextAreas :: Bool -> IO ([Char], GValue)-constructSettingsEnableResizableTextAreas val = constructObjectPropertyBool "enable-resizable-text-areas" val--data SettingsEnableResizableTextAreasPropertyInfo-instance AttrInfo SettingsEnableResizableTextAreasPropertyInfo where-    type AttrAllowedOps SettingsEnableResizableTextAreasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsEnableResizableTextAreasPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsEnableResizableTextAreasPropertyInfo = SettingsK-    type AttrGetType SettingsEnableResizableTextAreasPropertyInfo = Bool-    type AttrLabel SettingsEnableResizableTextAreasPropertyInfo = "enable-resizable-text-areas"-    attrGet _ = getSettingsEnableResizableTextAreas-    attrSet _ = setSettingsEnableResizableTextAreas-    attrConstruct _ = constructSettingsEnableResizableTextAreas-    attrClear _ = undefined---- VVV Prop "enable-site-specific-quirks"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsEnableSiteSpecificQuirks :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsEnableSiteSpecificQuirks obj = liftIO $ getObjectPropertyBool obj "enable-site-specific-quirks"--setSettingsEnableSiteSpecificQuirks :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsEnableSiteSpecificQuirks obj val = liftIO $ setObjectPropertyBool obj "enable-site-specific-quirks" val--constructSettingsEnableSiteSpecificQuirks :: Bool -> IO ([Char], GValue)-constructSettingsEnableSiteSpecificQuirks val = constructObjectPropertyBool "enable-site-specific-quirks" val--data SettingsEnableSiteSpecificQuirksPropertyInfo-instance AttrInfo SettingsEnableSiteSpecificQuirksPropertyInfo where-    type AttrAllowedOps SettingsEnableSiteSpecificQuirksPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsEnableSiteSpecificQuirksPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsEnableSiteSpecificQuirksPropertyInfo = SettingsK-    type AttrGetType SettingsEnableSiteSpecificQuirksPropertyInfo = Bool-    type AttrLabel SettingsEnableSiteSpecificQuirksPropertyInfo = "enable-site-specific-quirks"-    attrGet _ = getSettingsEnableSiteSpecificQuirks-    attrSet _ = setSettingsEnableSiteSpecificQuirks-    attrConstruct _ = constructSettingsEnableSiteSpecificQuirks-    attrClear _ = undefined---- VVV Prop "enable-smooth-scrolling"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsEnableSmoothScrolling :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsEnableSmoothScrolling obj = liftIO $ getObjectPropertyBool obj "enable-smooth-scrolling"--setSettingsEnableSmoothScrolling :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsEnableSmoothScrolling obj val = liftIO $ setObjectPropertyBool obj "enable-smooth-scrolling" val--constructSettingsEnableSmoothScrolling :: Bool -> IO ([Char], GValue)-constructSettingsEnableSmoothScrolling val = constructObjectPropertyBool "enable-smooth-scrolling" val--data SettingsEnableSmoothScrollingPropertyInfo-instance AttrInfo SettingsEnableSmoothScrollingPropertyInfo where-    type AttrAllowedOps SettingsEnableSmoothScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsEnableSmoothScrollingPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsEnableSmoothScrollingPropertyInfo = SettingsK-    type AttrGetType SettingsEnableSmoothScrollingPropertyInfo = Bool-    type AttrLabel SettingsEnableSmoothScrollingPropertyInfo = "enable-smooth-scrolling"-    attrGet _ = getSettingsEnableSmoothScrolling-    attrSet _ = setSettingsEnableSmoothScrolling-    attrConstruct _ = constructSettingsEnableSmoothScrolling-    attrClear _ = undefined---- VVV Prop "enable-spatial-navigation"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsEnableSpatialNavigation :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsEnableSpatialNavigation obj = liftIO $ getObjectPropertyBool obj "enable-spatial-navigation"--setSettingsEnableSpatialNavigation :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsEnableSpatialNavigation obj val = liftIO $ setObjectPropertyBool obj "enable-spatial-navigation" val--constructSettingsEnableSpatialNavigation :: Bool -> IO ([Char], GValue)-constructSettingsEnableSpatialNavigation val = constructObjectPropertyBool "enable-spatial-navigation" val--data SettingsEnableSpatialNavigationPropertyInfo-instance AttrInfo SettingsEnableSpatialNavigationPropertyInfo where-    type AttrAllowedOps SettingsEnableSpatialNavigationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsEnableSpatialNavigationPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsEnableSpatialNavigationPropertyInfo = SettingsK-    type AttrGetType SettingsEnableSpatialNavigationPropertyInfo = Bool-    type AttrLabel SettingsEnableSpatialNavigationPropertyInfo = "enable-spatial-navigation"-    attrGet _ = getSettingsEnableSpatialNavigation-    attrSet _ = setSettingsEnableSpatialNavigation-    attrConstruct _ = constructSettingsEnableSpatialNavigation-    attrClear _ = undefined---- VVV Prop "enable-tabs-to-links"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsEnableTabsToLinks :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsEnableTabsToLinks obj = liftIO $ getObjectPropertyBool obj "enable-tabs-to-links"--setSettingsEnableTabsToLinks :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsEnableTabsToLinks obj val = liftIO $ setObjectPropertyBool obj "enable-tabs-to-links" val--constructSettingsEnableTabsToLinks :: Bool -> IO ([Char], GValue)-constructSettingsEnableTabsToLinks val = constructObjectPropertyBool "enable-tabs-to-links" val--data SettingsEnableTabsToLinksPropertyInfo-instance AttrInfo SettingsEnableTabsToLinksPropertyInfo where-    type AttrAllowedOps SettingsEnableTabsToLinksPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsEnableTabsToLinksPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsEnableTabsToLinksPropertyInfo = SettingsK-    type AttrGetType SettingsEnableTabsToLinksPropertyInfo = Bool-    type AttrLabel SettingsEnableTabsToLinksPropertyInfo = "enable-tabs-to-links"-    attrGet _ = getSettingsEnableTabsToLinks-    attrSet _ = setSettingsEnableTabsToLinks-    attrConstruct _ = constructSettingsEnableTabsToLinks-    attrClear _ = undefined---- VVV Prop "enable-webaudio"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsEnableWebaudio :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsEnableWebaudio obj = liftIO $ getObjectPropertyBool obj "enable-webaudio"--setSettingsEnableWebaudio :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsEnableWebaudio obj val = liftIO $ setObjectPropertyBool obj "enable-webaudio" val--constructSettingsEnableWebaudio :: Bool -> IO ([Char], GValue)-constructSettingsEnableWebaudio val = constructObjectPropertyBool "enable-webaudio" val--data SettingsEnableWebaudioPropertyInfo-instance AttrInfo SettingsEnableWebaudioPropertyInfo where-    type AttrAllowedOps SettingsEnableWebaudioPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsEnableWebaudioPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsEnableWebaudioPropertyInfo = SettingsK-    type AttrGetType SettingsEnableWebaudioPropertyInfo = Bool-    type AttrLabel SettingsEnableWebaudioPropertyInfo = "enable-webaudio"-    attrGet _ = getSettingsEnableWebaudio-    attrSet _ = setSettingsEnableWebaudio-    attrConstruct _ = constructSettingsEnableWebaudio-    attrClear _ = undefined---- VVV Prop "enable-webgl"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsEnableWebgl :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsEnableWebgl obj = liftIO $ getObjectPropertyBool obj "enable-webgl"--setSettingsEnableWebgl :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsEnableWebgl obj val = liftIO $ setObjectPropertyBool obj "enable-webgl" val--constructSettingsEnableWebgl :: Bool -> IO ([Char], GValue)-constructSettingsEnableWebgl val = constructObjectPropertyBool "enable-webgl" val--data SettingsEnableWebglPropertyInfo-instance AttrInfo SettingsEnableWebglPropertyInfo where-    type AttrAllowedOps SettingsEnableWebglPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsEnableWebglPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsEnableWebglPropertyInfo = SettingsK-    type AttrGetType SettingsEnableWebglPropertyInfo = Bool-    type AttrLabel SettingsEnableWebglPropertyInfo = "enable-webgl"-    attrGet _ = getSettingsEnableWebgl-    attrSet _ = setSettingsEnableWebgl-    attrConstruct _ = constructSettingsEnableWebgl-    attrClear _ = undefined---- VVV Prop "enable-write-console-messages-to-stdout"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsEnableWriteConsoleMessagesToStdout :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsEnableWriteConsoleMessagesToStdout obj = liftIO $ getObjectPropertyBool obj "enable-write-console-messages-to-stdout"--setSettingsEnableWriteConsoleMessagesToStdout :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsEnableWriteConsoleMessagesToStdout obj val = liftIO $ setObjectPropertyBool obj "enable-write-console-messages-to-stdout" val--constructSettingsEnableWriteConsoleMessagesToStdout :: Bool -> IO ([Char], GValue)-constructSettingsEnableWriteConsoleMessagesToStdout val = constructObjectPropertyBool "enable-write-console-messages-to-stdout" val--data SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo-instance AttrInfo SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo where-    type AttrAllowedOps SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = SettingsK-    type AttrGetType SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = Bool-    type AttrLabel SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo = "enable-write-console-messages-to-stdout"-    attrGet _ = getSettingsEnableWriteConsoleMessagesToStdout-    attrSet _ = setSettingsEnableWriteConsoleMessagesToStdout-    attrConstruct _ = constructSettingsEnableWriteConsoleMessagesToStdout-    attrClear _ = undefined---- VVV Prop "enable-xss-auditor"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsEnableXssAuditor :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsEnableXssAuditor obj = liftIO $ getObjectPropertyBool obj "enable-xss-auditor"--setSettingsEnableXssAuditor :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsEnableXssAuditor obj val = liftIO $ setObjectPropertyBool obj "enable-xss-auditor" val--constructSettingsEnableXssAuditor :: Bool -> IO ([Char], GValue)-constructSettingsEnableXssAuditor val = constructObjectPropertyBool "enable-xss-auditor" val--data SettingsEnableXssAuditorPropertyInfo-instance AttrInfo SettingsEnableXssAuditorPropertyInfo where-    type AttrAllowedOps SettingsEnableXssAuditorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsEnableXssAuditorPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsEnableXssAuditorPropertyInfo = SettingsK-    type AttrGetType SettingsEnableXssAuditorPropertyInfo = Bool-    type AttrLabel SettingsEnableXssAuditorPropertyInfo = "enable-xss-auditor"-    attrGet _ = getSettingsEnableXssAuditor-    attrSet _ = setSettingsEnableXssAuditor-    attrConstruct _ = constructSettingsEnableXssAuditor-    attrClear _ = undefined---- VVV Prop "fantasy-font-family"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsFantasyFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text-getSettingsFantasyFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsFantasyFontFamily" $ getObjectPropertyString obj "fantasy-font-family"--setSettingsFantasyFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m ()-setSettingsFantasyFontFamily obj val = liftIO $ setObjectPropertyString obj "fantasy-font-family" (Just val)--constructSettingsFantasyFontFamily :: T.Text -> IO ([Char], GValue)-constructSettingsFantasyFontFamily val = constructObjectPropertyString "fantasy-font-family" (Just val)--data SettingsFantasyFontFamilyPropertyInfo-instance AttrInfo SettingsFantasyFontFamilyPropertyInfo where-    type AttrAllowedOps SettingsFantasyFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsFantasyFontFamilyPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint SettingsFantasyFontFamilyPropertyInfo = SettingsK-    type AttrGetType SettingsFantasyFontFamilyPropertyInfo = T.Text-    type AttrLabel SettingsFantasyFontFamilyPropertyInfo = "fantasy-font-family"-    attrGet _ = getSettingsFantasyFontFamily-    attrSet _ = setSettingsFantasyFontFamily-    attrConstruct _ = constructSettingsFantasyFontFamily-    attrClear _ = undefined---- VVV Prop "javascript-can-access-clipboard"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsJavascriptCanAccessClipboard :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsJavascriptCanAccessClipboard obj = liftIO $ getObjectPropertyBool obj "javascript-can-access-clipboard"--setSettingsJavascriptCanAccessClipboard :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsJavascriptCanAccessClipboard obj val = liftIO $ setObjectPropertyBool obj "javascript-can-access-clipboard" val--constructSettingsJavascriptCanAccessClipboard :: Bool -> IO ([Char], GValue)-constructSettingsJavascriptCanAccessClipboard val = constructObjectPropertyBool "javascript-can-access-clipboard" val--data SettingsJavascriptCanAccessClipboardPropertyInfo-instance AttrInfo SettingsJavascriptCanAccessClipboardPropertyInfo where-    type AttrAllowedOps SettingsJavascriptCanAccessClipboardPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsJavascriptCanAccessClipboardPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsJavascriptCanAccessClipboardPropertyInfo = SettingsK-    type AttrGetType SettingsJavascriptCanAccessClipboardPropertyInfo = Bool-    type AttrLabel SettingsJavascriptCanAccessClipboardPropertyInfo = "javascript-can-access-clipboard"-    attrGet _ = getSettingsJavascriptCanAccessClipboard-    attrSet _ = setSettingsJavascriptCanAccessClipboard-    attrConstruct _ = constructSettingsJavascriptCanAccessClipboard-    attrClear _ = undefined---- VVV Prop "javascript-can-open-windows-automatically"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsJavascriptCanOpenWindowsAutomatically :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsJavascriptCanOpenWindowsAutomatically obj = liftIO $ getObjectPropertyBool obj "javascript-can-open-windows-automatically"--setSettingsJavascriptCanOpenWindowsAutomatically :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsJavascriptCanOpenWindowsAutomatically obj val = liftIO $ setObjectPropertyBool obj "javascript-can-open-windows-automatically" val--constructSettingsJavascriptCanOpenWindowsAutomatically :: Bool -> IO ([Char], GValue)-constructSettingsJavascriptCanOpenWindowsAutomatically val = constructObjectPropertyBool "javascript-can-open-windows-automatically" val--data SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo-instance AttrInfo SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo where-    type AttrAllowedOps SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = SettingsK-    type AttrGetType SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = Bool-    type AttrLabel SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = "javascript-can-open-windows-automatically"-    attrGet _ = getSettingsJavascriptCanOpenWindowsAutomatically-    attrSet _ = setSettingsJavascriptCanOpenWindowsAutomatically-    attrConstruct _ = constructSettingsJavascriptCanOpenWindowsAutomatically-    attrClear _ = undefined---- VVV Prop "load-icons-ignoring-image-load-setting"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsLoadIconsIgnoringImageLoadSetting :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsLoadIconsIgnoringImageLoadSetting obj = liftIO $ getObjectPropertyBool obj "load-icons-ignoring-image-load-setting"--setSettingsLoadIconsIgnoringImageLoadSetting :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsLoadIconsIgnoringImageLoadSetting obj val = liftIO $ setObjectPropertyBool obj "load-icons-ignoring-image-load-setting" val--constructSettingsLoadIconsIgnoringImageLoadSetting :: Bool -> IO ([Char], GValue)-constructSettingsLoadIconsIgnoringImageLoadSetting val = constructObjectPropertyBool "load-icons-ignoring-image-load-setting" val--data SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo-instance AttrInfo SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo where-    type AttrAllowedOps SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = SettingsK-    type AttrGetType SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = Bool-    type AttrLabel SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo = "load-icons-ignoring-image-load-setting"-    attrGet _ = getSettingsLoadIconsIgnoringImageLoadSetting-    attrSet _ = setSettingsLoadIconsIgnoringImageLoadSetting-    attrConstruct _ = constructSettingsLoadIconsIgnoringImageLoadSetting-    attrClear _ = undefined---- VVV Prop "media-playback-allows-inline"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsMediaPlaybackAllowsInline :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsMediaPlaybackAllowsInline obj = liftIO $ getObjectPropertyBool obj "media-playback-allows-inline"--setSettingsMediaPlaybackAllowsInline :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsMediaPlaybackAllowsInline obj val = liftIO $ setObjectPropertyBool obj "media-playback-allows-inline" val--constructSettingsMediaPlaybackAllowsInline :: Bool -> IO ([Char], GValue)-constructSettingsMediaPlaybackAllowsInline val = constructObjectPropertyBool "media-playback-allows-inline" val--data SettingsMediaPlaybackAllowsInlinePropertyInfo-instance AttrInfo SettingsMediaPlaybackAllowsInlinePropertyInfo where-    type AttrAllowedOps SettingsMediaPlaybackAllowsInlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsMediaPlaybackAllowsInlinePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsMediaPlaybackAllowsInlinePropertyInfo = SettingsK-    type AttrGetType SettingsMediaPlaybackAllowsInlinePropertyInfo = Bool-    type AttrLabel SettingsMediaPlaybackAllowsInlinePropertyInfo = "media-playback-allows-inline"-    attrGet _ = getSettingsMediaPlaybackAllowsInline-    attrSet _ = setSettingsMediaPlaybackAllowsInline-    attrConstruct _ = constructSettingsMediaPlaybackAllowsInline-    attrClear _ = undefined---- VVV Prop "media-playback-requires-user-gesture"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsMediaPlaybackRequiresUserGesture :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsMediaPlaybackRequiresUserGesture obj = liftIO $ getObjectPropertyBool obj "media-playback-requires-user-gesture"--setSettingsMediaPlaybackRequiresUserGesture :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsMediaPlaybackRequiresUserGesture obj val = liftIO $ setObjectPropertyBool obj "media-playback-requires-user-gesture" val--constructSettingsMediaPlaybackRequiresUserGesture :: Bool -> IO ([Char], GValue)-constructSettingsMediaPlaybackRequiresUserGesture val = constructObjectPropertyBool "media-playback-requires-user-gesture" val--data SettingsMediaPlaybackRequiresUserGesturePropertyInfo-instance AttrInfo SettingsMediaPlaybackRequiresUserGesturePropertyInfo where-    type AttrAllowedOps SettingsMediaPlaybackRequiresUserGesturePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsMediaPlaybackRequiresUserGesturePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsMediaPlaybackRequiresUserGesturePropertyInfo = SettingsK-    type AttrGetType SettingsMediaPlaybackRequiresUserGesturePropertyInfo = Bool-    type AttrLabel SettingsMediaPlaybackRequiresUserGesturePropertyInfo = "media-playback-requires-user-gesture"-    attrGet _ = getSettingsMediaPlaybackRequiresUserGesture-    attrSet _ = setSettingsMediaPlaybackRequiresUserGesture-    attrConstruct _ = constructSettingsMediaPlaybackRequiresUserGesture-    attrClear _ = undefined---- VVV Prop "minimum-font-size"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Nothing,Nothing)--getSettingsMinimumFontSize :: (MonadIO m, SettingsK o) => o -> m Word32-getSettingsMinimumFontSize obj = liftIO $ getObjectPropertyUInt32 obj "minimum-font-size"--setSettingsMinimumFontSize :: (MonadIO m, SettingsK o) => o -> Word32 -> m ()-setSettingsMinimumFontSize obj val = liftIO $ setObjectPropertyUInt32 obj "minimum-font-size" val--constructSettingsMinimumFontSize :: Word32 -> IO ([Char], GValue)-constructSettingsMinimumFontSize val = constructObjectPropertyUInt32 "minimum-font-size" val--data SettingsMinimumFontSizePropertyInfo-instance AttrInfo SettingsMinimumFontSizePropertyInfo where-    type AttrAllowedOps SettingsMinimumFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsMinimumFontSizePropertyInfo = (~) Word32-    type AttrBaseTypeConstraint SettingsMinimumFontSizePropertyInfo = SettingsK-    type AttrGetType SettingsMinimumFontSizePropertyInfo = Word32-    type AttrLabel SettingsMinimumFontSizePropertyInfo = "minimum-font-size"-    attrGet _ = getSettingsMinimumFontSize-    attrSet _ = setSettingsMinimumFontSize-    attrConstruct _ = constructSettingsMinimumFontSize-    attrClear _ = undefined---- VVV Prop "monospace-font-family"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsMonospaceFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text-getSettingsMonospaceFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsMonospaceFontFamily" $ getObjectPropertyString obj "monospace-font-family"--setSettingsMonospaceFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m ()-setSettingsMonospaceFontFamily obj val = liftIO $ setObjectPropertyString obj "monospace-font-family" (Just val)--constructSettingsMonospaceFontFamily :: T.Text -> IO ([Char], GValue)-constructSettingsMonospaceFontFamily val = constructObjectPropertyString "monospace-font-family" (Just val)--data SettingsMonospaceFontFamilyPropertyInfo-instance AttrInfo SettingsMonospaceFontFamilyPropertyInfo where-    type AttrAllowedOps SettingsMonospaceFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsMonospaceFontFamilyPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint SettingsMonospaceFontFamilyPropertyInfo = SettingsK-    type AttrGetType SettingsMonospaceFontFamilyPropertyInfo = T.Text-    type AttrLabel SettingsMonospaceFontFamilyPropertyInfo = "monospace-font-family"-    attrGet _ = getSettingsMonospaceFontFamily-    attrSet _ = setSettingsMonospaceFontFamily-    attrConstruct _ = constructSettingsMonospaceFontFamily-    attrClear _ = undefined---- VVV Prop "pictograph-font-family"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsPictographFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text-getSettingsPictographFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsPictographFontFamily" $ getObjectPropertyString obj "pictograph-font-family"--setSettingsPictographFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m ()-setSettingsPictographFontFamily obj val = liftIO $ setObjectPropertyString obj "pictograph-font-family" (Just val)--constructSettingsPictographFontFamily :: T.Text -> IO ([Char], GValue)-constructSettingsPictographFontFamily val = constructObjectPropertyString "pictograph-font-family" (Just val)--data SettingsPictographFontFamilyPropertyInfo-instance AttrInfo SettingsPictographFontFamilyPropertyInfo where-    type AttrAllowedOps SettingsPictographFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsPictographFontFamilyPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint SettingsPictographFontFamilyPropertyInfo = SettingsK-    type AttrGetType SettingsPictographFontFamilyPropertyInfo = T.Text-    type AttrLabel SettingsPictographFontFamilyPropertyInfo = "pictograph-font-family"-    attrGet _ = getSettingsPictographFontFamily-    attrSet _ = setSettingsPictographFontFamily-    attrConstruct _ = constructSettingsPictographFontFamily-    attrClear _ = undefined---- VVV Prop "print-backgrounds"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsPrintBackgrounds :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsPrintBackgrounds obj = liftIO $ getObjectPropertyBool obj "print-backgrounds"--setSettingsPrintBackgrounds :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsPrintBackgrounds obj val = liftIO $ setObjectPropertyBool obj "print-backgrounds" val--constructSettingsPrintBackgrounds :: Bool -> IO ([Char], GValue)-constructSettingsPrintBackgrounds val = constructObjectPropertyBool "print-backgrounds" val--data SettingsPrintBackgroundsPropertyInfo-instance AttrInfo SettingsPrintBackgroundsPropertyInfo where-    type AttrAllowedOps SettingsPrintBackgroundsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsPrintBackgroundsPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsPrintBackgroundsPropertyInfo = SettingsK-    type AttrGetType SettingsPrintBackgroundsPropertyInfo = Bool-    type AttrLabel SettingsPrintBackgroundsPropertyInfo = "print-backgrounds"-    attrGet _ = getSettingsPrintBackgrounds-    attrSet _ = setSettingsPrintBackgrounds-    attrConstruct _ = constructSettingsPrintBackgrounds-    attrClear _ = undefined---- VVV Prop "sans-serif-font-family"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsSansSerifFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text-getSettingsSansSerifFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsSansSerifFontFamily" $ getObjectPropertyString obj "sans-serif-font-family"--setSettingsSansSerifFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m ()-setSettingsSansSerifFontFamily obj val = liftIO $ setObjectPropertyString obj "sans-serif-font-family" (Just val)--constructSettingsSansSerifFontFamily :: T.Text -> IO ([Char], GValue)-constructSettingsSansSerifFontFamily val = constructObjectPropertyString "sans-serif-font-family" (Just val)--data SettingsSansSerifFontFamilyPropertyInfo-instance AttrInfo SettingsSansSerifFontFamilyPropertyInfo where-    type AttrAllowedOps SettingsSansSerifFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsSansSerifFontFamilyPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint SettingsSansSerifFontFamilyPropertyInfo = SettingsK-    type AttrGetType SettingsSansSerifFontFamilyPropertyInfo = T.Text-    type AttrLabel SettingsSansSerifFontFamilyPropertyInfo = "sans-serif-font-family"-    attrGet _ = getSettingsSansSerifFontFamily-    attrSet _ = setSettingsSansSerifFontFamily-    attrConstruct _ = constructSettingsSansSerifFontFamily-    attrClear _ = undefined---- VVV Prop "serif-font-family"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsSerifFontFamily :: (MonadIO m, SettingsK o) => o -> m T.Text-getSettingsSerifFontFamily obj = liftIO $ checkUnexpectedNothing "getSettingsSerifFontFamily" $ getObjectPropertyString obj "serif-font-family"--setSettingsSerifFontFamily :: (MonadIO m, SettingsK o) => o -> T.Text -> m ()-setSettingsSerifFontFamily obj val = liftIO $ setObjectPropertyString obj "serif-font-family" (Just val)--constructSettingsSerifFontFamily :: T.Text -> IO ([Char], GValue)-constructSettingsSerifFontFamily val = constructObjectPropertyString "serif-font-family" (Just val)--data SettingsSerifFontFamilyPropertyInfo-instance AttrInfo SettingsSerifFontFamilyPropertyInfo where-    type AttrAllowedOps SettingsSerifFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsSerifFontFamilyPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint SettingsSerifFontFamilyPropertyInfo = SettingsK-    type AttrGetType SettingsSerifFontFamilyPropertyInfo = T.Text-    type AttrLabel SettingsSerifFontFamilyPropertyInfo = "serif-font-family"-    attrGet _ = getSettingsSerifFontFamily-    attrSet _ = setSettingsSerifFontFamily-    attrConstruct _ = constructSettingsSerifFontFamily-    attrClear _ = undefined---- VVV Prop "user-agent"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just True)--getSettingsUserAgent :: (MonadIO m, SettingsK o) => o -> m T.Text-getSettingsUserAgent obj = liftIO $ checkUnexpectedNothing "getSettingsUserAgent" $ getObjectPropertyString obj "user-agent"--setSettingsUserAgent :: (MonadIO m, SettingsK o) => o -> T.Text -> m ()-setSettingsUserAgent obj val = liftIO $ setObjectPropertyString obj "user-agent" (Just val)--constructSettingsUserAgent :: T.Text -> IO ([Char], GValue)-constructSettingsUserAgent val = constructObjectPropertyString "user-agent" (Just val)--clearSettingsUserAgent :: (MonadIO m, SettingsK o) => o -> m ()-clearSettingsUserAgent obj = liftIO $ setObjectPropertyString obj "user-agent" (Nothing :: Maybe T.Text)--data SettingsUserAgentPropertyInfo-instance AttrInfo SettingsUserAgentPropertyInfo where-    type AttrAllowedOps SettingsUserAgentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SettingsUserAgentPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint SettingsUserAgentPropertyInfo = SettingsK-    type AttrGetType SettingsUserAgentPropertyInfo = T.Text-    type AttrLabel SettingsUserAgentPropertyInfo = "user-agent"-    attrGet _ = getSettingsUserAgent-    attrSet _ = setSettingsUserAgent-    attrConstruct _ = constructSettingsUserAgent-    attrClear _ = clearSettingsUserAgent---- VVV Prop "zoom-text-only"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSettingsZoomTextOnly :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsZoomTextOnly obj = liftIO $ getObjectPropertyBool obj "zoom-text-only"--setSettingsZoomTextOnly :: (MonadIO m, SettingsK o) => o -> Bool -> m ()-setSettingsZoomTextOnly obj val = liftIO $ setObjectPropertyBool obj "zoom-text-only" val--constructSettingsZoomTextOnly :: Bool -> IO ([Char], GValue)-constructSettingsZoomTextOnly val = constructObjectPropertyBool "zoom-text-only" val--data SettingsZoomTextOnlyPropertyInfo-instance AttrInfo SettingsZoomTextOnlyPropertyInfo where-    type AttrAllowedOps SettingsZoomTextOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SettingsZoomTextOnlyPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SettingsZoomTextOnlyPropertyInfo = SettingsK-    type AttrGetType SettingsZoomTextOnlyPropertyInfo = Bool-    type AttrLabel SettingsZoomTextOnlyPropertyInfo = "zoom-text-only"-    attrGet _ = getSettingsZoomTextOnly-    attrSet _ = setSettingsZoomTextOnly-    attrConstruct _ = constructSettingsZoomTextOnly-    attrClear _ = undefined--type instance AttributeList Settings = SettingsAttributeList-type SettingsAttributeList = ('[ '("allowFileAccessFromFileUrls", SettingsAllowFileAccessFromFileUrlsPropertyInfo), '("allowModalDialogs", SettingsAllowModalDialogsPropertyInfo), '("autoLoadImages", SettingsAutoLoadImagesPropertyInfo), '("cursiveFontFamily", SettingsCursiveFontFamilyPropertyInfo), '("defaultCharset", SettingsDefaultCharsetPropertyInfo), '("defaultFontFamily", SettingsDefaultFontFamilyPropertyInfo), '("defaultFontSize", SettingsDefaultFontSizePropertyInfo), '("defaultMonospaceFontSize", SettingsDefaultMonospaceFontSizePropertyInfo), '("drawCompositingIndicators", SettingsDrawCompositingIndicatorsPropertyInfo), '("enableAccelerated2dCanvas", SettingsEnableAccelerated2dCanvasPropertyInfo), '("enableCaretBrowsing", SettingsEnableCaretBrowsingPropertyInfo), '("enableDeveloperExtras", SettingsEnableDeveloperExtrasPropertyInfo), '("enableDnsPrefetching", SettingsEnableDnsPrefetchingPropertyInfo), '("enableFrameFlattening", SettingsEnableFrameFlatteningPropertyInfo), '("enableFullscreen", SettingsEnableFullscreenPropertyInfo), '("enableHtml5Database", SettingsEnableHtml5DatabasePropertyInfo), '("enableHtml5LocalStorage", SettingsEnableHtml5LocalStoragePropertyInfo), '("enableHyperlinkAuditing", SettingsEnableHyperlinkAuditingPropertyInfo), '("enableJava", SettingsEnableJavaPropertyInfo), '("enableJavascript", SettingsEnableJavascriptPropertyInfo), '("enableMediaStream", SettingsEnableMediaStreamPropertyInfo), '("enableMediasource", SettingsEnableMediasourcePropertyInfo), '("enableOfflineWebApplicationCache", SettingsEnableOfflineWebApplicationCachePropertyInfo), '("enablePageCache", SettingsEnablePageCachePropertyInfo), '("enablePlugins", SettingsEnablePluginsPropertyInfo), '("enablePrivateBrowsing", SettingsEnablePrivateBrowsingPropertyInfo), '("enableResizableTextAreas", SettingsEnableResizableTextAreasPropertyInfo), '("enableSiteSpecificQuirks", SettingsEnableSiteSpecificQuirksPropertyInfo), '("enableSmoothScrolling", SettingsEnableSmoothScrollingPropertyInfo), '("enableSpatialNavigation", SettingsEnableSpatialNavigationPropertyInfo), '("enableTabsToLinks", SettingsEnableTabsToLinksPropertyInfo), '("enableWebaudio", SettingsEnableWebaudioPropertyInfo), '("enableWebgl", SettingsEnableWebglPropertyInfo), '("enableWriteConsoleMessagesToStdout", SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo), '("enableXssAuditor", SettingsEnableXssAuditorPropertyInfo), '("fantasyFontFamily", SettingsFantasyFontFamilyPropertyInfo), '("javascriptCanAccessClipboard", SettingsJavascriptCanAccessClipboardPropertyInfo), '("javascriptCanOpenWindowsAutomatically", SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo), '("loadIconsIgnoringImageLoadSetting", SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo), '("mediaPlaybackAllowsInline", SettingsMediaPlaybackAllowsInlinePropertyInfo), '("mediaPlaybackRequiresUserGesture", SettingsMediaPlaybackRequiresUserGesturePropertyInfo), '("minimumFontSize", SettingsMinimumFontSizePropertyInfo), '("monospaceFontFamily", SettingsMonospaceFontFamilyPropertyInfo), '("pictographFontFamily", SettingsPictographFontFamilyPropertyInfo), '("printBackgrounds", SettingsPrintBackgroundsPropertyInfo), '("sansSerifFontFamily", SettingsSansSerifFontFamilyPropertyInfo), '("serifFontFamily", SettingsSerifFontFamilyPropertyInfo), '("userAgent", SettingsUserAgentPropertyInfo), '("zoomTextOnly", SettingsZoomTextOnlyPropertyInfo)] :: [(Symbol, *)])--settingsAllowFileAccessFromFileUrls :: AttrLabelProxy "allowFileAccessFromFileUrls"-settingsAllowFileAccessFromFileUrls = AttrLabelProxy--settingsAllowModalDialogs :: AttrLabelProxy "allowModalDialogs"-settingsAllowModalDialogs = AttrLabelProxy--settingsAutoLoadImages :: AttrLabelProxy "autoLoadImages"-settingsAutoLoadImages = AttrLabelProxy--settingsCursiveFontFamily :: AttrLabelProxy "cursiveFontFamily"-settingsCursiveFontFamily = AttrLabelProxy--settingsDefaultCharset :: AttrLabelProxy "defaultCharset"-settingsDefaultCharset = AttrLabelProxy--settingsDefaultFontFamily :: AttrLabelProxy "defaultFontFamily"-settingsDefaultFontFamily = AttrLabelProxy--settingsDefaultFontSize :: AttrLabelProxy "defaultFontSize"-settingsDefaultFontSize = AttrLabelProxy--settingsDefaultMonospaceFontSize :: AttrLabelProxy "defaultMonospaceFontSize"-settingsDefaultMonospaceFontSize = AttrLabelProxy--settingsDrawCompositingIndicators :: AttrLabelProxy "drawCompositingIndicators"-settingsDrawCompositingIndicators = AttrLabelProxy--settingsEnableAccelerated2dCanvas :: AttrLabelProxy "enableAccelerated2dCanvas"-settingsEnableAccelerated2dCanvas = AttrLabelProxy--settingsEnableCaretBrowsing :: AttrLabelProxy "enableCaretBrowsing"-settingsEnableCaretBrowsing = AttrLabelProxy--settingsEnableDeveloperExtras :: AttrLabelProxy "enableDeveloperExtras"-settingsEnableDeveloperExtras = AttrLabelProxy--settingsEnableDnsPrefetching :: AttrLabelProxy "enableDnsPrefetching"-settingsEnableDnsPrefetching = AttrLabelProxy--settingsEnableFrameFlattening :: AttrLabelProxy "enableFrameFlattening"-settingsEnableFrameFlattening = AttrLabelProxy--settingsEnableFullscreen :: AttrLabelProxy "enableFullscreen"-settingsEnableFullscreen = AttrLabelProxy--settingsEnableHtml5Database :: AttrLabelProxy "enableHtml5Database"-settingsEnableHtml5Database = AttrLabelProxy--settingsEnableHtml5LocalStorage :: AttrLabelProxy "enableHtml5LocalStorage"-settingsEnableHtml5LocalStorage = AttrLabelProxy--settingsEnableHyperlinkAuditing :: AttrLabelProxy "enableHyperlinkAuditing"-settingsEnableHyperlinkAuditing = AttrLabelProxy--settingsEnableJava :: AttrLabelProxy "enableJava"-settingsEnableJava = AttrLabelProxy--settingsEnableJavascript :: AttrLabelProxy "enableJavascript"-settingsEnableJavascript = AttrLabelProxy--settingsEnableMediaStream :: AttrLabelProxy "enableMediaStream"-settingsEnableMediaStream = AttrLabelProxy--settingsEnableMediasource :: AttrLabelProxy "enableMediasource"-settingsEnableMediasource = AttrLabelProxy--settingsEnableOfflineWebApplicationCache :: AttrLabelProxy "enableOfflineWebApplicationCache"-settingsEnableOfflineWebApplicationCache = AttrLabelProxy--settingsEnablePageCache :: AttrLabelProxy "enablePageCache"-settingsEnablePageCache = AttrLabelProxy--settingsEnablePlugins :: AttrLabelProxy "enablePlugins"-settingsEnablePlugins = AttrLabelProxy--settingsEnablePrivateBrowsing :: AttrLabelProxy "enablePrivateBrowsing"-settingsEnablePrivateBrowsing = AttrLabelProxy--settingsEnableResizableTextAreas :: AttrLabelProxy "enableResizableTextAreas"-settingsEnableResizableTextAreas = AttrLabelProxy--settingsEnableSiteSpecificQuirks :: AttrLabelProxy "enableSiteSpecificQuirks"-settingsEnableSiteSpecificQuirks = AttrLabelProxy--settingsEnableSmoothScrolling :: AttrLabelProxy "enableSmoothScrolling"-settingsEnableSmoothScrolling = AttrLabelProxy--settingsEnableSpatialNavigation :: AttrLabelProxy "enableSpatialNavigation"-settingsEnableSpatialNavigation = AttrLabelProxy--settingsEnableTabsToLinks :: AttrLabelProxy "enableTabsToLinks"-settingsEnableTabsToLinks = AttrLabelProxy--settingsEnableWebaudio :: AttrLabelProxy "enableWebaudio"-settingsEnableWebaudio = AttrLabelProxy--settingsEnableWebgl :: AttrLabelProxy "enableWebgl"-settingsEnableWebgl = AttrLabelProxy--settingsEnableWriteConsoleMessagesToStdout :: AttrLabelProxy "enableWriteConsoleMessagesToStdout"-settingsEnableWriteConsoleMessagesToStdout = AttrLabelProxy--settingsEnableXssAuditor :: AttrLabelProxy "enableXssAuditor"-settingsEnableXssAuditor = AttrLabelProxy--settingsFantasyFontFamily :: AttrLabelProxy "fantasyFontFamily"-settingsFantasyFontFamily = AttrLabelProxy--settingsJavascriptCanAccessClipboard :: AttrLabelProxy "javascriptCanAccessClipboard"-settingsJavascriptCanAccessClipboard = AttrLabelProxy--settingsJavascriptCanOpenWindowsAutomatically :: AttrLabelProxy "javascriptCanOpenWindowsAutomatically"-settingsJavascriptCanOpenWindowsAutomatically = AttrLabelProxy--settingsLoadIconsIgnoringImageLoadSetting :: AttrLabelProxy "loadIconsIgnoringImageLoadSetting"-settingsLoadIconsIgnoringImageLoadSetting = AttrLabelProxy--settingsMediaPlaybackAllowsInline :: AttrLabelProxy "mediaPlaybackAllowsInline"-settingsMediaPlaybackAllowsInline = AttrLabelProxy--settingsMediaPlaybackRequiresUserGesture :: AttrLabelProxy "mediaPlaybackRequiresUserGesture"-settingsMediaPlaybackRequiresUserGesture = AttrLabelProxy--settingsMinimumFontSize :: AttrLabelProxy "minimumFontSize"-settingsMinimumFontSize = AttrLabelProxy--settingsMonospaceFontFamily :: AttrLabelProxy "monospaceFontFamily"-settingsMonospaceFontFamily = AttrLabelProxy--settingsPictographFontFamily :: AttrLabelProxy "pictographFontFamily"-settingsPictographFontFamily = AttrLabelProxy--settingsPrintBackgrounds :: AttrLabelProxy "printBackgrounds"-settingsPrintBackgrounds = AttrLabelProxy--settingsSansSerifFontFamily :: AttrLabelProxy "sansSerifFontFamily"-settingsSansSerifFontFamily = AttrLabelProxy--settingsSerifFontFamily :: AttrLabelProxy "serifFontFamily"-settingsSerifFontFamily = AttrLabelProxy--settingsUserAgent :: AttrLabelProxy "userAgent"-settingsUserAgent = AttrLabelProxy--settingsZoomTextOnly :: AttrLabelProxy "zoomTextOnly"-settingsZoomTextOnly = AttrLabelProxy--type instance SignalList Settings = SettingsSignalList-type SettingsSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Settings::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "WebKit2" "Settings")--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_new" webkit_settings_new :: -    IO (Ptr Settings)---settingsNew ::-    (MonadIO m) =>-    m Settings                              -- result-settingsNew  = liftIO $ do-    result <- webkit_settings_new-    checkUnexpectedReturnNULL "webkit_settings_new" result-    result' <- (wrapObject Settings) result-    return result'---- method Settings::get_allow_file_access_from_file_urls--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_allow_file_access_from_file_urls" webkit_settings_get_allow_file_access_from_file_urls :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetAllowFileAccessFromFileUrls ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetAllowFileAccessFromFileUrls _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_allow_file_access_from_file_urls _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetAllowFileAccessFromFileUrlsMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetAllowFileAccessFromFileUrlsMethodInfo a signature where-    overloadedMethod _ = settingsGetAllowFileAccessFromFileUrls---- method Settings::get_allow_modal_dialogs--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_allow_modal_dialogs" webkit_settings_get_allow_modal_dialogs :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetAllowModalDialogs ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetAllowModalDialogs _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_allow_modal_dialogs _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetAllowModalDialogsMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetAllowModalDialogsMethodInfo a signature where-    overloadedMethod _ = settingsGetAllowModalDialogs---- method Settings::get_auto_load_images--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_auto_load_images" webkit_settings_get_auto_load_images :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetAutoLoadImages ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetAutoLoadImages _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_auto_load_images _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetAutoLoadImagesMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetAutoLoadImagesMethodInfo a signature where-    overloadedMethod _ = settingsGetAutoLoadImages---- method Settings::get_cursive_font_family--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_cursive_font_family" webkit_settings_get_cursive_font_family :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CString---settingsGetCursiveFontFamily ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-settingsGetCursiveFontFamily _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_cursive_font_family _obj'-    checkUnexpectedReturnNULL "webkit_settings_get_cursive_font_family" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data SettingsGetCursiveFontFamilyMethodInfo-instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetCursiveFontFamilyMethodInfo a signature where-    overloadedMethod _ = settingsGetCursiveFontFamily---- method Settings::get_default_charset--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_default_charset" webkit_settings_get_default_charset :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CString---settingsGetDefaultCharset ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-settingsGetDefaultCharset _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_default_charset _obj'-    checkUnexpectedReturnNULL "webkit_settings_get_default_charset" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data SettingsGetDefaultCharsetMethodInfo-instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetDefaultCharsetMethodInfo a signature where-    overloadedMethod _ = settingsGetDefaultCharset---- method Settings::get_default_font_family--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_default_font_family" webkit_settings_get_default_font_family :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CString---settingsGetDefaultFontFamily ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-settingsGetDefaultFontFamily _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_default_font_family _obj'-    checkUnexpectedReturnNULL "webkit_settings_get_default_font_family" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data SettingsGetDefaultFontFamilyMethodInfo-instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetDefaultFontFamilyMethodInfo a signature where-    overloadedMethod _ = settingsGetDefaultFontFamily---- method Settings::get_default_font_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt32)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_default_font_size" webkit_settings_get_default_font_size :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO Word32---settingsGetDefaultFontSize ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-settingsGetDefaultFontSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_default_font_size _obj'-    touchManagedPtr _obj-    return result--data SettingsGetDefaultFontSizeMethodInfo-instance (signature ~ (m Word32), MonadIO m, SettingsK a) => MethodInfo SettingsGetDefaultFontSizeMethodInfo a signature where-    overloadedMethod _ = settingsGetDefaultFontSize---- method Settings::get_default_monospace_font_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt32)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_default_monospace_font_size" webkit_settings_get_default_monospace_font_size :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO Word32---settingsGetDefaultMonospaceFontSize ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-settingsGetDefaultMonospaceFontSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_default_monospace_font_size _obj'-    touchManagedPtr _obj-    return result--data SettingsGetDefaultMonospaceFontSizeMethodInfo-instance (signature ~ (m Word32), MonadIO m, SettingsK a) => MethodInfo SettingsGetDefaultMonospaceFontSizeMethodInfo a signature where-    overloadedMethod _ = settingsGetDefaultMonospaceFontSize---- method Settings::get_draw_compositing_indicators--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_draw_compositing_indicators" webkit_settings_get_draw_compositing_indicators :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetDrawCompositingIndicators ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetDrawCompositingIndicators _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_draw_compositing_indicators _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetDrawCompositingIndicatorsMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetDrawCompositingIndicatorsMethodInfo a signature where-    overloadedMethod _ = settingsGetDrawCompositingIndicators---- method Settings::get_enable_accelerated_2d_canvas--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_enable_accelerated_2d_canvas" webkit_settings_get_enable_accelerated_2d_canvas :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetEnableAccelerated2dCanvas ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetEnableAccelerated2dCanvas _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_enable_accelerated_2d_canvas _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetEnableAccelerated2dCanvasMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableAccelerated2dCanvasMethodInfo a signature where-    overloadedMethod _ = settingsGetEnableAccelerated2dCanvas---- method Settings::get_enable_caret_browsing--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_enable_caret_browsing" webkit_settings_get_enable_caret_browsing :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetEnableCaretBrowsing ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetEnableCaretBrowsing _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_enable_caret_browsing _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetEnableCaretBrowsingMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableCaretBrowsingMethodInfo a signature where-    overloadedMethod _ = settingsGetEnableCaretBrowsing---- method Settings::get_enable_developer_extras--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_enable_developer_extras" webkit_settings_get_enable_developer_extras :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetEnableDeveloperExtras ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetEnableDeveloperExtras _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_enable_developer_extras _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetEnableDeveloperExtrasMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableDeveloperExtrasMethodInfo a signature where-    overloadedMethod _ = settingsGetEnableDeveloperExtras---- method Settings::get_enable_dns_prefetching--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_enable_dns_prefetching" webkit_settings_get_enable_dns_prefetching :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetEnableDnsPrefetching ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetEnableDnsPrefetching _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_enable_dns_prefetching _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetEnableDnsPrefetchingMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableDnsPrefetchingMethodInfo a signature where-    overloadedMethod _ = settingsGetEnableDnsPrefetching---- method Settings::get_enable_frame_flattening--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_enable_frame_flattening" webkit_settings_get_enable_frame_flattening :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetEnableFrameFlattening ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetEnableFrameFlattening _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_enable_frame_flattening _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetEnableFrameFlatteningMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableFrameFlatteningMethodInfo a signature where-    overloadedMethod _ = settingsGetEnableFrameFlattening---- method Settings::get_enable_fullscreen--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_enable_fullscreen" webkit_settings_get_enable_fullscreen :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetEnableFullscreen ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetEnableFullscreen _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_enable_fullscreen _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetEnableFullscreenMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableFullscreenMethodInfo a signature where-    overloadedMethod _ = settingsGetEnableFullscreen---- method Settings::get_enable_html5_database--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_enable_html5_database" webkit_settings_get_enable_html5_database :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetEnableHtml5Database ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetEnableHtml5Database _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_enable_html5_database _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetEnableHtml5DatabaseMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableHtml5DatabaseMethodInfo a signature where-    overloadedMethod _ = settingsGetEnableHtml5Database---- method Settings::get_enable_html5_local_storage--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_enable_html5_local_storage" webkit_settings_get_enable_html5_local_storage :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetEnableHtml5LocalStorage ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetEnableHtml5LocalStorage _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_enable_html5_local_storage _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetEnableHtml5LocalStorageMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableHtml5LocalStorageMethodInfo a signature where-    overloadedMethod _ = settingsGetEnableHtml5LocalStorage---- method Settings::get_enable_hyperlink_auditing--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_enable_hyperlink_auditing" webkit_settings_get_enable_hyperlink_auditing :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetEnableHyperlinkAuditing ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetEnableHyperlinkAuditing _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_enable_hyperlink_auditing _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetEnableHyperlinkAuditingMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableHyperlinkAuditingMethodInfo a signature where-    overloadedMethod _ = settingsGetEnableHyperlinkAuditing---- method Settings::get_enable_java--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_enable_java" webkit_settings_get_enable_java :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetEnableJava ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetEnableJava _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_enable_java _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetEnableJavaMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableJavaMethodInfo a signature where-    overloadedMethod _ = settingsGetEnableJava---- method Settings::get_enable_javascript--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_enable_javascript" webkit_settings_get_enable_javascript :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetEnableJavascript ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetEnableJavascript _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_enable_javascript _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetEnableJavascriptMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableJavascriptMethodInfo a signature where-    overloadedMethod _ = settingsGetEnableJavascript---- method Settings::get_enable_media_stream--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_enable_media_stream" webkit_settings_get_enable_media_stream :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetEnableMediaStream ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetEnableMediaStream _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_enable_media_stream _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetEnableMediaStreamMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableMediaStreamMethodInfo a signature where-    overloadedMethod _ = settingsGetEnableMediaStream---- method Settings::get_enable_mediasource--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_enable_mediasource" webkit_settings_get_enable_mediasource :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetEnableMediasource ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetEnableMediasource _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_enable_mediasource _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetEnableMediasourceMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableMediasourceMethodInfo a signature where-    overloadedMethod _ = settingsGetEnableMediasource---- method Settings::get_enable_offline_web_application_cache--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_enable_offline_web_application_cache" webkit_settings_get_enable_offline_web_application_cache :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetEnableOfflineWebApplicationCache ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetEnableOfflineWebApplicationCache _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_enable_offline_web_application_cache _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetEnableOfflineWebApplicationCacheMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableOfflineWebApplicationCacheMethodInfo a signature where-    overloadedMethod _ = settingsGetEnableOfflineWebApplicationCache---- method Settings::get_enable_page_cache--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_enable_page_cache" webkit_settings_get_enable_page_cache :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetEnablePageCache ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetEnablePageCache _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_enable_page_cache _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetEnablePageCacheMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnablePageCacheMethodInfo a signature where-    overloadedMethod _ = settingsGetEnablePageCache---- method Settings::get_enable_plugins--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_enable_plugins" webkit_settings_get_enable_plugins :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetEnablePlugins ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetEnablePlugins _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_enable_plugins _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetEnablePluginsMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnablePluginsMethodInfo a signature where-    overloadedMethod _ = settingsGetEnablePlugins---- method Settings::get_enable_private_browsing--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_enable_private_browsing" webkit_settings_get_enable_private_browsing :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetEnablePrivateBrowsing ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetEnablePrivateBrowsing _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_enable_private_browsing _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetEnablePrivateBrowsingMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnablePrivateBrowsingMethodInfo a signature where-    overloadedMethod _ = settingsGetEnablePrivateBrowsing---- method Settings::get_enable_resizable_text_areas--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_enable_resizable_text_areas" webkit_settings_get_enable_resizable_text_areas :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetEnableResizableTextAreas ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetEnableResizableTextAreas _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_enable_resizable_text_areas _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetEnableResizableTextAreasMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableResizableTextAreasMethodInfo a signature where-    overloadedMethod _ = settingsGetEnableResizableTextAreas---- method Settings::get_enable_site_specific_quirks--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_enable_site_specific_quirks" webkit_settings_get_enable_site_specific_quirks :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetEnableSiteSpecificQuirks ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetEnableSiteSpecificQuirks _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_enable_site_specific_quirks _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetEnableSiteSpecificQuirksMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableSiteSpecificQuirksMethodInfo a signature where-    overloadedMethod _ = settingsGetEnableSiteSpecificQuirks---- method Settings::get_enable_smooth_scrolling--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_enable_smooth_scrolling" webkit_settings_get_enable_smooth_scrolling :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetEnableSmoothScrolling ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetEnableSmoothScrolling _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_enable_smooth_scrolling _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetEnableSmoothScrollingMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableSmoothScrollingMethodInfo a signature where-    overloadedMethod _ = settingsGetEnableSmoothScrolling---- method Settings::get_enable_spatial_navigation--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_enable_spatial_navigation" webkit_settings_get_enable_spatial_navigation :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetEnableSpatialNavigation ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetEnableSpatialNavigation _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_enable_spatial_navigation _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetEnableSpatialNavigationMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableSpatialNavigationMethodInfo a signature where-    overloadedMethod _ = settingsGetEnableSpatialNavigation---- method Settings::get_enable_tabs_to_links--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_enable_tabs_to_links" webkit_settings_get_enable_tabs_to_links :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetEnableTabsToLinks ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetEnableTabsToLinks _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_enable_tabs_to_links _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetEnableTabsToLinksMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableTabsToLinksMethodInfo a signature where-    overloadedMethod _ = settingsGetEnableTabsToLinks---- method Settings::get_enable_webaudio--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_enable_webaudio" webkit_settings_get_enable_webaudio :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetEnableWebaudio ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetEnableWebaudio _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_enable_webaudio _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetEnableWebaudioMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableWebaudioMethodInfo a signature where-    overloadedMethod _ = settingsGetEnableWebaudio---- method Settings::get_enable_webgl--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_enable_webgl" webkit_settings_get_enable_webgl :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetEnableWebgl ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetEnableWebgl _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_enable_webgl _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetEnableWebglMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableWebglMethodInfo a signature where-    overloadedMethod _ = settingsGetEnableWebgl---- method Settings::get_enable_write_console_messages_to_stdout--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_enable_write_console_messages_to_stdout" webkit_settings_get_enable_write_console_messages_to_stdout :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetEnableWriteConsoleMessagesToStdout ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetEnableWriteConsoleMessagesToStdout _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_enable_write_console_messages_to_stdout _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo a signature where-    overloadedMethod _ = settingsGetEnableWriteConsoleMessagesToStdout---- method Settings::get_enable_xss_auditor--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_enable_xss_auditor" webkit_settings_get_enable_xss_auditor :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetEnableXssAuditor ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetEnableXssAuditor _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_enable_xss_auditor _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetEnableXssAuditorMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnableXssAuditorMethodInfo a signature where-    overloadedMethod _ = settingsGetEnableXssAuditor---- method Settings::get_fantasy_font_family--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_fantasy_font_family" webkit_settings_get_fantasy_font_family :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CString---settingsGetFantasyFontFamily ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-settingsGetFantasyFontFamily _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_fantasy_font_family _obj'-    checkUnexpectedReturnNULL "webkit_settings_get_fantasy_font_family" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data SettingsGetFantasyFontFamilyMethodInfo-instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetFantasyFontFamilyMethodInfo a signature where-    overloadedMethod _ = settingsGetFantasyFontFamily---- method Settings::get_javascript_can_access_clipboard--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_javascript_can_access_clipboard" webkit_settings_get_javascript_can_access_clipboard :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetJavascriptCanAccessClipboard ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetJavascriptCanAccessClipboard _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_javascript_can_access_clipboard _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetJavascriptCanAccessClipboardMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetJavascriptCanAccessClipboardMethodInfo a signature where-    overloadedMethod _ = settingsGetJavascriptCanAccessClipboard---- method Settings::get_javascript_can_open_windows_automatically--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_javascript_can_open_windows_automatically" webkit_settings_get_javascript_can_open_windows_automatically :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetJavascriptCanOpenWindowsAutomatically ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetJavascriptCanOpenWindowsAutomatically _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_javascript_can_open_windows_automatically _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo a signature where-    overloadedMethod _ = settingsGetJavascriptCanOpenWindowsAutomatically---- method Settings::get_load_icons_ignoring_image_load_setting--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_load_icons_ignoring_image_load_setting" webkit_settings_get_load_icons_ignoring_image_load_setting :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetLoadIconsIgnoringImageLoadSetting ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetLoadIconsIgnoringImageLoadSetting _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_load_icons_ignoring_image_load_setting _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo a signature where-    overloadedMethod _ = settingsGetLoadIconsIgnoringImageLoadSetting---- method Settings::get_media_playback_allows_inline--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_media_playback_allows_inline" webkit_settings_get_media_playback_allows_inline :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetMediaPlaybackAllowsInline ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetMediaPlaybackAllowsInline _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_media_playback_allows_inline _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetMediaPlaybackAllowsInlineMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetMediaPlaybackAllowsInlineMethodInfo a signature where-    overloadedMethod _ = settingsGetMediaPlaybackAllowsInline---- method Settings::get_media_playback_requires_user_gesture--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_media_playback_requires_user_gesture" webkit_settings_get_media_playback_requires_user_gesture :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetMediaPlaybackRequiresUserGesture ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetMediaPlaybackRequiresUserGesture _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_media_playback_requires_user_gesture _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetMediaPlaybackRequiresUserGestureMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetMediaPlaybackRequiresUserGestureMethodInfo a signature where-    overloadedMethod _ = settingsGetMediaPlaybackRequiresUserGesture---- method Settings::get_minimum_font_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt32)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_minimum_font_size" webkit_settings_get_minimum_font_size :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO Word32---settingsGetMinimumFontSize ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-settingsGetMinimumFontSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_minimum_font_size _obj'-    touchManagedPtr _obj-    return result--data SettingsGetMinimumFontSizeMethodInfo-instance (signature ~ (m Word32), MonadIO m, SettingsK a) => MethodInfo SettingsGetMinimumFontSizeMethodInfo a signature where-    overloadedMethod _ = settingsGetMinimumFontSize---- method Settings::get_monospace_font_family--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_monospace_font_family" webkit_settings_get_monospace_font_family :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CString---settingsGetMonospaceFontFamily ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-settingsGetMonospaceFontFamily _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_monospace_font_family _obj'-    checkUnexpectedReturnNULL "webkit_settings_get_monospace_font_family" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data SettingsGetMonospaceFontFamilyMethodInfo-instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetMonospaceFontFamilyMethodInfo a signature where-    overloadedMethod _ = settingsGetMonospaceFontFamily---- method Settings::get_pictograph_font_family--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_pictograph_font_family" webkit_settings_get_pictograph_font_family :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CString---settingsGetPictographFontFamily ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-settingsGetPictographFontFamily _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_pictograph_font_family _obj'-    checkUnexpectedReturnNULL "webkit_settings_get_pictograph_font_family" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data SettingsGetPictographFontFamilyMethodInfo-instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetPictographFontFamilyMethodInfo a signature where-    overloadedMethod _ = settingsGetPictographFontFamily---- method Settings::get_print_backgrounds--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_print_backgrounds" webkit_settings_get_print_backgrounds :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetPrintBackgrounds ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetPrintBackgrounds _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_print_backgrounds _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetPrintBackgroundsMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetPrintBackgroundsMethodInfo a signature where-    overloadedMethod _ = settingsGetPrintBackgrounds---- method Settings::get_sans_serif_font_family--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_sans_serif_font_family" webkit_settings_get_sans_serif_font_family :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CString---settingsGetSansSerifFontFamily ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-settingsGetSansSerifFontFamily _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_sans_serif_font_family _obj'-    checkUnexpectedReturnNULL "webkit_settings_get_sans_serif_font_family" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data SettingsGetSansSerifFontFamilyMethodInfo-instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetSansSerifFontFamilyMethodInfo a signature where-    overloadedMethod _ = settingsGetSansSerifFontFamily---- method Settings::get_serif_font_family--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_serif_font_family" webkit_settings_get_serif_font_family :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CString---settingsGetSerifFontFamily ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-settingsGetSerifFontFamily _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_serif_font_family _obj'-    checkUnexpectedReturnNULL "webkit_settings_get_serif_font_family" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data SettingsGetSerifFontFamilyMethodInfo-instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetSerifFontFamilyMethodInfo a signature where-    overloadedMethod _ = settingsGetSerifFontFamily---- method Settings::get_user_agent--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_user_agent" webkit_settings_get_user_agent :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CString---settingsGetUserAgent ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-settingsGetUserAgent _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_user_agent _obj'-    checkUnexpectedReturnNULL "webkit_settings_get_user_agent" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data SettingsGetUserAgentMethodInfo-instance (signature ~ (m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetUserAgentMethodInfo a signature where-    overloadedMethod _ = settingsGetUserAgent---- method Settings::get_zoom_text_only--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_get_zoom_text_only" webkit_settings_get_zoom_text_only :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    IO CInt---settingsGetZoomTextOnly ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetZoomTextOnly _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_settings_get_zoom_text_only _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetZoomTextOnlyMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetZoomTextOnlyMethodInfo a signature where-    overloadedMethod _ = settingsGetZoomTextOnly---- method Settings::set_allow_file_access_from_file_urls--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_allow_file_access_from_file_urls" webkit_settings_set_allow_file_access_from_file_urls :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- allowed : TBasicType TBoolean-    IO ()---settingsSetAllowFileAccessFromFileUrls ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- allowed-    -> m ()                                 -- result-settingsSetAllowFileAccessFromFileUrls _obj allowed = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let allowed' = (fromIntegral . fromEnum) allowed-    webkit_settings_set_allow_file_access_from_file_urls _obj' allowed'-    touchManagedPtr _obj-    return ()--data SettingsSetAllowFileAccessFromFileUrlsMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetAllowFileAccessFromFileUrlsMethodInfo a signature where-    overloadedMethod _ = settingsSetAllowFileAccessFromFileUrls---- method Settings::set_allow_modal_dialogs--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_allow_modal_dialogs" webkit_settings_set_allow_modal_dialogs :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- allowed : TBasicType TBoolean-    IO ()---settingsSetAllowModalDialogs ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- allowed-    -> m ()                                 -- result-settingsSetAllowModalDialogs _obj allowed = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let allowed' = (fromIntegral . fromEnum) allowed-    webkit_settings_set_allow_modal_dialogs _obj' allowed'-    touchManagedPtr _obj-    return ()--data SettingsSetAllowModalDialogsMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetAllowModalDialogsMethodInfo a signature where-    overloadedMethod _ = settingsSetAllowModalDialogs---- method Settings::set_auto_load_images--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_auto_load_images" webkit_settings_set_auto_load_images :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetAutoLoadImages ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetAutoLoadImages _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_auto_load_images _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetAutoLoadImagesMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetAutoLoadImagesMethodInfo a signature where-    overloadedMethod _ = settingsSetAutoLoadImages---- method Settings::set_cursive_font_family--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursive_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_cursive_font_family" webkit_settings_set_cursive_font_family :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CString ->                              -- cursive_font_family : TBasicType TUTF8-    IO ()---settingsSetCursiveFontFamily ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- cursiveFontFamily-    -> m ()                                 -- result-settingsSetCursiveFontFamily _obj cursiveFontFamily = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    cursiveFontFamily' <- textToCString cursiveFontFamily-    webkit_settings_set_cursive_font_family _obj' cursiveFontFamily'-    touchManagedPtr _obj-    freeMem cursiveFontFamily'-    return ()--data SettingsSetCursiveFontFamilyMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetCursiveFontFamilyMethodInfo a signature where-    overloadedMethod _ = settingsSetCursiveFontFamily---- method Settings::set_default_charset--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_charset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_default_charset" webkit_settings_set_default_charset :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CString ->                              -- default_charset : TBasicType TUTF8-    IO ()---settingsSetDefaultCharset ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- defaultCharset-    -> m ()                                 -- result-settingsSetDefaultCharset _obj defaultCharset = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    defaultCharset' <- textToCString defaultCharset-    webkit_settings_set_default_charset _obj' defaultCharset'-    touchManagedPtr _obj-    freeMem defaultCharset'-    return ()--data SettingsSetDefaultCharsetMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetDefaultCharsetMethodInfo a signature where-    overloadedMethod _ = settingsSetDefaultCharset---- method Settings::set_default_font_family--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_default_font_family" webkit_settings_set_default_font_family :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CString ->                              -- default_font_family : TBasicType TUTF8-    IO ()---settingsSetDefaultFontFamily ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- defaultFontFamily-    -> m ()                                 -- result-settingsSetDefaultFontFamily _obj defaultFontFamily = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    defaultFontFamily' <- textToCString defaultFontFamily-    webkit_settings_set_default_font_family _obj' defaultFontFamily'-    touchManagedPtr _obj-    freeMem defaultFontFamily'-    return ()--data SettingsSetDefaultFontFamilyMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetDefaultFontFamilyMethodInfo a signature where-    overloadedMethod _ = settingsSetDefaultFontFamily---- method Settings::set_default_font_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_default_font_size" webkit_settings_set_default_font_size :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    Word32 ->                               -- font_size : TBasicType TUInt32-    IO ()---settingsSetDefaultFontSize ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Word32                               -- fontSize-    -> m ()                                 -- result-settingsSetDefaultFontSize _obj fontSize = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_settings_set_default_font_size _obj' fontSize-    touchManagedPtr _obj-    return ()--data SettingsSetDefaultFontSizeMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetDefaultFontSizeMethodInfo a signature where-    overloadedMethod _ = settingsSetDefaultFontSize---- method Settings::set_default_monospace_font_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_default_monospace_font_size" webkit_settings_set_default_monospace_font_size :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    Word32 ->                               -- font_size : TBasicType TUInt32-    IO ()---settingsSetDefaultMonospaceFontSize ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Word32                               -- fontSize-    -> m ()                                 -- result-settingsSetDefaultMonospaceFontSize _obj fontSize = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_settings_set_default_monospace_font_size _obj' fontSize-    touchManagedPtr _obj-    return ()--data SettingsSetDefaultMonospaceFontSizeMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetDefaultMonospaceFontSizeMethodInfo a signature where-    overloadedMethod _ = settingsSetDefaultMonospaceFontSize---- method Settings::set_draw_compositing_indicators--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_draw_compositing_indicators" webkit_settings_set_draw_compositing_indicators :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetDrawCompositingIndicators ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetDrawCompositingIndicators _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_draw_compositing_indicators _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetDrawCompositingIndicatorsMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetDrawCompositingIndicatorsMethodInfo a signature where-    overloadedMethod _ = settingsSetDrawCompositingIndicators---- method Settings::set_enable_accelerated_2d_canvas--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_enable_accelerated_2d_canvas" webkit_settings_set_enable_accelerated_2d_canvas :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetEnableAccelerated2dCanvas ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetEnableAccelerated2dCanvas _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_enable_accelerated_2d_canvas _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetEnableAccelerated2dCanvasMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableAccelerated2dCanvasMethodInfo a signature where-    overloadedMethod _ = settingsSetEnableAccelerated2dCanvas---- method Settings::set_enable_caret_browsing--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_enable_caret_browsing" webkit_settings_set_enable_caret_browsing :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetEnableCaretBrowsing ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetEnableCaretBrowsing _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_enable_caret_browsing _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetEnableCaretBrowsingMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableCaretBrowsingMethodInfo a signature where-    overloadedMethod _ = settingsSetEnableCaretBrowsing---- method Settings::set_enable_developer_extras--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_enable_developer_extras" webkit_settings_set_enable_developer_extras :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetEnableDeveloperExtras ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetEnableDeveloperExtras _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_enable_developer_extras _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetEnableDeveloperExtrasMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableDeveloperExtrasMethodInfo a signature where-    overloadedMethod _ = settingsSetEnableDeveloperExtras---- method Settings::set_enable_dns_prefetching--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_enable_dns_prefetching" webkit_settings_set_enable_dns_prefetching :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetEnableDnsPrefetching ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetEnableDnsPrefetching _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_enable_dns_prefetching _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetEnableDnsPrefetchingMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableDnsPrefetchingMethodInfo a signature where-    overloadedMethod _ = settingsSetEnableDnsPrefetching---- method Settings::set_enable_frame_flattening--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_enable_frame_flattening" webkit_settings_set_enable_frame_flattening :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetEnableFrameFlattening ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetEnableFrameFlattening _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_enable_frame_flattening _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetEnableFrameFlatteningMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableFrameFlatteningMethodInfo a signature where-    overloadedMethod _ = settingsSetEnableFrameFlattening---- method Settings::set_enable_fullscreen--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_enable_fullscreen" webkit_settings_set_enable_fullscreen :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetEnableFullscreen ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetEnableFullscreen _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_enable_fullscreen _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetEnableFullscreenMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableFullscreenMethodInfo a signature where-    overloadedMethod _ = settingsSetEnableFullscreen---- method Settings::set_enable_html5_database--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_enable_html5_database" webkit_settings_set_enable_html5_database :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetEnableHtml5Database ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetEnableHtml5Database _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_enable_html5_database _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetEnableHtml5DatabaseMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableHtml5DatabaseMethodInfo a signature where-    overloadedMethod _ = settingsSetEnableHtml5Database---- method Settings::set_enable_html5_local_storage--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_enable_html5_local_storage" webkit_settings_set_enable_html5_local_storage :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetEnableHtml5LocalStorage ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetEnableHtml5LocalStorage _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_enable_html5_local_storage _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetEnableHtml5LocalStorageMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableHtml5LocalStorageMethodInfo a signature where-    overloadedMethod _ = settingsSetEnableHtml5LocalStorage---- method Settings::set_enable_hyperlink_auditing--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_enable_hyperlink_auditing" webkit_settings_set_enable_hyperlink_auditing :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetEnableHyperlinkAuditing ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetEnableHyperlinkAuditing _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_enable_hyperlink_auditing _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetEnableHyperlinkAuditingMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableHyperlinkAuditingMethodInfo a signature where-    overloadedMethod _ = settingsSetEnableHyperlinkAuditing---- method Settings::set_enable_java--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_enable_java" webkit_settings_set_enable_java :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetEnableJava ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetEnableJava _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_enable_java _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetEnableJavaMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableJavaMethodInfo a signature where-    overloadedMethod _ = settingsSetEnableJava---- method Settings::set_enable_javascript--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_enable_javascript" webkit_settings_set_enable_javascript :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetEnableJavascript ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetEnableJavascript _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_enable_javascript _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetEnableJavascriptMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableJavascriptMethodInfo a signature where-    overloadedMethod _ = settingsSetEnableJavascript---- method Settings::set_enable_media_stream--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_enable_media_stream" webkit_settings_set_enable_media_stream :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetEnableMediaStream ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetEnableMediaStream _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_enable_media_stream _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetEnableMediaStreamMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableMediaStreamMethodInfo a signature where-    overloadedMethod _ = settingsSetEnableMediaStream---- method Settings::set_enable_mediasource--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_enable_mediasource" webkit_settings_set_enable_mediasource :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetEnableMediasource ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetEnableMediasource _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_enable_mediasource _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetEnableMediasourceMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableMediasourceMethodInfo a signature where-    overloadedMethod _ = settingsSetEnableMediasource---- method Settings::set_enable_offline_web_application_cache--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_enable_offline_web_application_cache" webkit_settings_set_enable_offline_web_application_cache :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetEnableOfflineWebApplicationCache ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetEnableOfflineWebApplicationCache _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_enable_offline_web_application_cache _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetEnableOfflineWebApplicationCacheMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableOfflineWebApplicationCacheMethodInfo a signature where-    overloadedMethod _ = settingsSetEnableOfflineWebApplicationCache---- method Settings::set_enable_page_cache--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_enable_page_cache" webkit_settings_set_enable_page_cache :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetEnablePageCache ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetEnablePageCache _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_enable_page_cache _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetEnablePageCacheMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnablePageCacheMethodInfo a signature where-    overloadedMethod _ = settingsSetEnablePageCache---- method Settings::set_enable_plugins--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_enable_plugins" webkit_settings_set_enable_plugins :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetEnablePlugins ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetEnablePlugins _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_enable_plugins _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetEnablePluginsMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnablePluginsMethodInfo a signature where-    overloadedMethod _ = settingsSetEnablePlugins---- method Settings::set_enable_private_browsing--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_enable_private_browsing" webkit_settings_set_enable_private_browsing :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetEnablePrivateBrowsing ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetEnablePrivateBrowsing _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_enable_private_browsing _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetEnablePrivateBrowsingMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnablePrivateBrowsingMethodInfo a signature where-    overloadedMethod _ = settingsSetEnablePrivateBrowsing---- method Settings::set_enable_resizable_text_areas--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_enable_resizable_text_areas" webkit_settings_set_enable_resizable_text_areas :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetEnableResizableTextAreas ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetEnableResizableTextAreas _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_enable_resizable_text_areas _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetEnableResizableTextAreasMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableResizableTextAreasMethodInfo a signature where-    overloadedMethod _ = settingsSetEnableResizableTextAreas---- method Settings::set_enable_site_specific_quirks--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_enable_site_specific_quirks" webkit_settings_set_enable_site_specific_quirks :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetEnableSiteSpecificQuirks ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetEnableSiteSpecificQuirks _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_enable_site_specific_quirks _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetEnableSiteSpecificQuirksMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableSiteSpecificQuirksMethodInfo a signature where-    overloadedMethod _ = settingsSetEnableSiteSpecificQuirks---- method Settings::set_enable_smooth_scrolling--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_enable_smooth_scrolling" webkit_settings_set_enable_smooth_scrolling :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetEnableSmoothScrolling ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetEnableSmoothScrolling _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_enable_smooth_scrolling _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetEnableSmoothScrollingMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableSmoothScrollingMethodInfo a signature where-    overloadedMethod _ = settingsSetEnableSmoothScrolling---- method Settings::set_enable_spatial_navigation--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_enable_spatial_navigation" webkit_settings_set_enable_spatial_navigation :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetEnableSpatialNavigation ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetEnableSpatialNavigation _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_enable_spatial_navigation _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetEnableSpatialNavigationMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableSpatialNavigationMethodInfo a signature where-    overloadedMethod _ = settingsSetEnableSpatialNavigation---- method Settings::set_enable_tabs_to_links--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_enable_tabs_to_links" webkit_settings_set_enable_tabs_to_links :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetEnableTabsToLinks ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetEnableTabsToLinks _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_enable_tabs_to_links _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetEnableTabsToLinksMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableTabsToLinksMethodInfo a signature where-    overloadedMethod _ = settingsSetEnableTabsToLinks---- method Settings::set_enable_webaudio--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_enable_webaudio" webkit_settings_set_enable_webaudio :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetEnableWebaudio ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetEnableWebaudio _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_enable_webaudio _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetEnableWebaudioMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableWebaudioMethodInfo a signature where-    overloadedMethod _ = settingsSetEnableWebaudio---- method Settings::set_enable_webgl--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_enable_webgl" webkit_settings_set_enable_webgl :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetEnableWebgl ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetEnableWebgl _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_enable_webgl _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetEnableWebglMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableWebglMethodInfo a signature where-    overloadedMethod _ = settingsSetEnableWebgl---- method Settings::set_enable_write_console_messages_to_stdout--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_enable_write_console_messages_to_stdout" webkit_settings_set_enable_write_console_messages_to_stdout :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetEnableWriteConsoleMessagesToStdout ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetEnableWriteConsoleMessagesToStdout _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_enable_write_console_messages_to_stdout _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo a signature where-    overloadedMethod _ = settingsSetEnableWriteConsoleMessagesToStdout---- method Settings::set_enable_xss_auditor--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_enable_xss_auditor" webkit_settings_set_enable_xss_auditor :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetEnableXssAuditor ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetEnableXssAuditor _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_enable_xss_auditor _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetEnableXssAuditorMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnableXssAuditorMethodInfo a signature where-    overloadedMethod _ = settingsSetEnableXssAuditor---- method Settings::set_fantasy_font_family--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fantasy_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_fantasy_font_family" webkit_settings_set_fantasy_font_family :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CString ->                              -- fantasy_font_family : TBasicType TUTF8-    IO ()---settingsSetFantasyFontFamily ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- fantasyFontFamily-    -> m ()                                 -- result-settingsSetFantasyFontFamily _obj fantasyFontFamily = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    fantasyFontFamily' <- textToCString fantasyFontFamily-    webkit_settings_set_fantasy_font_family _obj' fantasyFontFamily'-    touchManagedPtr _obj-    freeMem fantasyFontFamily'-    return ()--data SettingsSetFantasyFontFamilyMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetFantasyFontFamilyMethodInfo a signature where-    overloadedMethod _ = settingsSetFantasyFontFamily---- method Settings::set_javascript_can_access_clipboard--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_javascript_can_access_clipboard" webkit_settings_set_javascript_can_access_clipboard :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetJavascriptCanAccessClipboard ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetJavascriptCanAccessClipboard _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_javascript_can_access_clipboard _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetJavascriptCanAccessClipboardMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetJavascriptCanAccessClipboardMethodInfo a signature where-    overloadedMethod _ = settingsSetJavascriptCanAccessClipboard---- method Settings::set_javascript_can_open_windows_automatically--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_javascript_can_open_windows_automatically" webkit_settings_set_javascript_can_open_windows_automatically :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetJavascriptCanOpenWindowsAutomatically ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetJavascriptCanOpenWindowsAutomatically _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_javascript_can_open_windows_automatically _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo a signature where-    overloadedMethod _ = settingsSetJavascriptCanOpenWindowsAutomatically---- method Settings::set_load_icons_ignoring_image_load_setting--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_load_icons_ignoring_image_load_setting" webkit_settings_set_load_icons_ignoring_image_load_setting :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetLoadIconsIgnoringImageLoadSetting ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetLoadIconsIgnoringImageLoadSetting _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_load_icons_ignoring_image_load_setting _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo a signature where-    overloadedMethod _ = settingsSetLoadIconsIgnoringImageLoadSetting---- method Settings::set_media_playback_allows_inline--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_media_playback_allows_inline" webkit_settings_set_media_playback_allows_inline :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetMediaPlaybackAllowsInline ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetMediaPlaybackAllowsInline _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_media_playback_allows_inline _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetMediaPlaybackAllowsInlineMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetMediaPlaybackAllowsInlineMethodInfo a signature where-    overloadedMethod _ = settingsSetMediaPlaybackAllowsInline---- method Settings::set_media_playback_requires_user_gesture--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_media_playback_requires_user_gesture" webkit_settings_set_media_playback_requires_user_gesture :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---settingsSetMediaPlaybackRequiresUserGesture ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-settingsSetMediaPlaybackRequiresUserGesture _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_settings_set_media_playback_requires_user_gesture _obj' enabled'-    touchManagedPtr _obj-    return ()--data SettingsSetMediaPlaybackRequiresUserGestureMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetMediaPlaybackRequiresUserGestureMethodInfo a signature where-    overloadedMethod _ = settingsSetMediaPlaybackRequiresUserGesture---- method Settings::set_minimum_font_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_minimum_font_size" webkit_settings_set_minimum_font_size :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    Word32 ->                               -- font_size : TBasicType TUInt32-    IO ()---settingsSetMinimumFontSize ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Word32                               -- fontSize-    -> m ()                                 -- result-settingsSetMinimumFontSize _obj fontSize = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_settings_set_minimum_font_size _obj' fontSize-    touchManagedPtr _obj-    return ()--data SettingsSetMinimumFontSizeMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetMinimumFontSizeMethodInfo a signature where-    overloadedMethod _ = settingsSetMinimumFontSize---- method Settings::set_monospace_font_family--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monospace_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_monospace_font_family" webkit_settings_set_monospace_font_family :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CString ->                              -- monospace_font_family : TBasicType TUTF8-    IO ()---settingsSetMonospaceFontFamily ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- monospaceFontFamily-    -> m ()                                 -- result-settingsSetMonospaceFontFamily _obj monospaceFontFamily = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    monospaceFontFamily' <- textToCString monospaceFontFamily-    webkit_settings_set_monospace_font_family _obj' monospaceFontFamily'-    touchManagedPtr _obj-    freeMem monospaceFontFamily'-    return ()--data SettingsSetMonospaceFontFamilyMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetMonospaceFontFamilyMethodInfo a signature where-    overloadedMethod _ = settingsSetMonospaceFontFamily---- method Settings::set_pictograph_font_family--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pictograph_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_pictograph_font_family" webkit_settings_set_pictograph_font_family :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CString ->                              -- pictograph_font_family : TBasicType TUTF8-    IO ()---settingsSetPictographFontFamily ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- pictographFontFamily-    -> m ()                                 -- result-settingsSetPictographFontFamily _obj pictographFontFamily = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    pictographFontFamily' <- textToCString pictographFontFamily-    webkit_settings_set_pictograph_font_family _obj' pictographFontFamily'-    touchManagedPtr _obj-    freeMem pictographFontFamily'-    return ()--data SettingsSetPictographFontFamilyMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetPictographFontFamilyMethodInfo a signature where-    overloadedMethod _ = settingsSetPictographFontFamily---- method Settings::set_print_backgrounds--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "print_backgrounds", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_print_backgrounds" webkit_settings_set_print_backgrounds :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- print_backgrounds : TBasicType TBoolean-    IO ()---settingsSetPrintBackgrounds ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- printBackgrounds-    -> m ()                                 -- result-settingsSetPrintBackgrounds _obj printBackgrounds = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let printBackgrounds' = (fromIntegral . fromEnum) printBackgrounds-    webkit_settings_set_print_backgrounds _obj' printBackgrounds'-    touchManagedPtr _obj-    return ()--data SettingsSetPrintBackgroundsMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetPrintBackgroundsMethodInfo a signature where-    overloadedMethod _ = settingsSetPrintBackgrounds---- method Settings::set_sans_serif_font_family--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sans_serif_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_sans_serif_font_family" webkit_settings_set_sans_serif_font_family :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CString ->                              -- sans_serif_font_family : TBasicType TUTF8-    IO ()---settingsSetSansSerifFontFamily ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- sansSerifFontFamily-    -> m ()                                 -- result-settingsSetSansSerifFontFamily _obj sansSerifFontFamily = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    sansSerifFontFamily' <- textToCString sansSerifFontFamily-    webkit_settings_set_sans_serif_font_family _obj' sansSerifFontFamily'-    touchManagedPtr _obj-    freeMem sansSerifFontFamily'-    return ()--data SettingsSetSansSerifFontFamilyMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetSansSerifFontFamilyMethodInfo a signature where-    overloadedMethod _ = settingsSetSansSerifFontFamily---- method Settings::set_serif_font_family--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "serif_font_family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_serif_font_family" webkit_settings_set_serif_font_family :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CString ->                              -- serif_font_family : TBasicType TUTF8-    IO ()---settingsSetSerifFontFamily ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- serifFontFamily-    -> m ()                                 -- result-settingsSetSerifFontFamily _obj serifFontFamily = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    serifFontFamily' <- textToCString serifFontFamily-    webkit_settings_set_serif_font_family _obj' serifFontFamily'-    touchManagedPtr _obj-    freeMem serifFontFamily'-    return ()--data SettingsSetSerifFontFamilyMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetSerifFontFamilyMethodInfo a signature where-    overloadedMethod _ = settingsSetSerifFontFamily---- method Settings::set_user_agent--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_agent", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_user_agent" webkit_settings_set_user_agent :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CString ->                              -- user_agent : TBasicType TUTF8-    IO ()---settingsSetUserAgent ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- userAgent-    -> m ()                                 -- result-settingsSetUserAgent _obj userAgent = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeUserAgent <- case userAgent of-        Nothing -> return nullPtr-        Just jUserAgent -> do-            jUserAgent' <- textToCString jUserAgent-            return jUserAgent'-    webkit_settings_set_user_agent _obj' maybeUserAgent-    touchManagedPtr _obj-    freeMem maybeUserAgent-    return ()--data SettingsSetUserAgentMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetUserAgentMethodInfo a signature where-    overloadedMethod _ = settingsSetUserAgent---- method Settings::set_user_agent_with_application_details--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "application_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "application_version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_user_agent_with_application_details" webkit_settings_set_user_agent_with_application_details :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CString ->                              -- application_name : TBasicType TUTF8-    CString ->                              -- application_version : TBasicType TUTF8-    IO ()---settingsSetUserAgentWithApplicationDetails ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- applicationName-    -> Maybe (T.Text)                       -- applicationVersion-    -> m ()                                 -- result-settingsSetUserAgentWithApplicationDetails _obj applicationName applicationVersion = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeApplicationName <- case applicationName of-        Nothing -> return nullPtr-        Just jApplicationName -> do-            jApplicationName' <- textToCString jApplicationName-            return jApplicationName'-    maybeApplicationVersion <- case applicationVersion of-        Nothing -> return nullPtr-        Just jApplicationVersion -> do-            jApplicationVersion' <- textToCString jApplicationVersion-            return jApplicationVersion'-    webkit_settings_set_user_agent_with_application_details _obj' maybeApplicationName maybeApplicationVersion-    touchManagedPtr _obj-    freeMem maybeApplicationName-    freeMem maybeApplicationVersion-    return ()--data SettingsSetUserAgentWithApplicationDetailsMethodInfo-instance (signature ~ (Maybe (T.Text) -> Maybe (T.Text) -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetUserAgentWithApplicationDetailsMethodInfo a signature where-    overloadedMethod _ = settingsSetUserAgentWithApplicationDetails---- method Settings::set_zoom_text_only--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "zoom_text_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_settings_set_zoom_text_only" webkit_settings_set_zoom_text_only :: -    Ptr Settings ->                         -- _obj : TInterface "WebKit2" "Settings"-    CInt ->                                 -- zoom_text_only : TBasicType TBoolean-    IO ()---settingsSetZoomTextOnly ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> Bool                                 -- zoomTextOnly-    -> m ()                                 -- result-settingsSetZoomTextOnly _obj zoomTextOnly = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let zoomTextOnly' = (fromIntegral . fromEnum) zoomTextOnly-    webkit_settings_set_zoom_text_only _obj' zoomTextOnly'-    touchManagedPtr _obj-    return ()--data SettingsSetZoomTextOnlyMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetZoomTextOnlyMethodInfo a signature where-    overloadedMethod _ = settingsSetZoomTextOnly--
− GI/WebKit2/Objects/Settings.hs-boot 
@@ -1,161 +0,0 @@-module GI.WebKit2.Objects.Settings where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Settings = Settings (ForeignPtr Settings)-instance GObject Settings where-class GObject o => SettingsK o-instance (GObject o, IsDescendantOf Settings o) => SettingsK o-data SettingsAllowFileAccessFromFileUrlsPropertyInfo-data SettingsAllowModalDialogsPropertyInfo-data SettingsAutoLoadImagesPropertyInfo-data SettingsCursiveFontFamilyPropertyInfo-data SettingsDefaultCharsetPropertyInfo-data SettingsDefaultFontFamilyPropertyInfo-data SettingsDefaultFontSizePropertyInfo-data SettingsDefaultMonospaceFontSizePropertyInfo-data SettingsDrawCompositingIndicatorsPropertyInfo-data SettingsEnableAccelerated2dCanvasPropertyInfo-data SettingsEnableCaretBrowsingPropertyInfo-data SettingsEnableDeveloperExtrasPropertyInfo-data SettingsEnableDnsPrefetchingPropertyInfo-data SettingsEnableFrameFlatteningPropertyInfo-data SettingsEnableFullscreenPropertyInfo-data SettingsEnableHtml5DatabasePropertyInfo-data SettingsEnableHtml5LocalStoragePropertyInfo-data SettingsEnableHyperlinkAuditingPropertyInfo-data SettingsEnableJavaPropertyInfo-data SettingsEnableJavascriptPropertyInfo-data SettingsEnableMediaStreamPropertyInfo-data SettingsEnableMediasourcePropertyInfo-data SettingsEnableOfflineWebApplicationCachePropertyInfo-data SettingsEnablePageCachePropertyInfo-data SettingsEnablePluginsPropertyInfo-data SettingsEnablePrivateBrowsingPropertyInfo-data SettingsEnableResizableTextAreasPropertyInfo-data SettingsEnableSiteSpecificQuirksPropertyInfo-data SettingsEnableSmoothScrollingPropertyInfo-data SettingsEnableSpatialNavigationPropertyInfo-data SettingsEnableTabsToLinksPropertyInfo-data SettingsEnableWebaudioPropertyInfo-data SettingsEnableWebglPropertyInfo-data SettingsEnableWriteConsoleMessagesToStdoutPropertyInfo-data SettingsEnableXssAuditorPropertyInfo-data SettingsFantasyFontFamilyPropertyInfo-data SettingsJavascriptCanAccessClipboardPropertyInfo-data SettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo-data SettingsLoadIconsIgnoringImageLoadSettingPropertyInfo-data SettingsMediaPlaybackAllowsInlinePropertyInfo-data SettingsMediaPlaybackRequiresUserGesturePropertyInfo-data SettingsMinimumFontSizePropertyInfo-data SettingsMonospaceFontFamilyPropertyInfo-data SettingsPictographFontFamilyPropertyInfo-data SettingsPrintBackgroundsPropertyInfo-data SettingsSansSerifFontFamilyPropertyInfo-data SettingsSerifFontFamilyPropertyInfo-data SettingsUserAgentPropertyInfo-data SettingsZoomTextOnlyPropertyInfo-data SettingsGetAllowFileAccessFromFileUrlsMethodInfo-data SettingsGetAllowModalDialogsMethodInfo-data SettingsGetAutoLoadImagesMethodInfo-data SettingsGetCursiveFontFamilyMethodInfo-data SettingsGetDefaultCharsetMethodInfo-data SettingsGetDefaultFontFamilyMethodInfo-data SettingsGetDefaultFontSizeMethodInfo-data SettingsGetDefaultMonospaceFontSizeMethodInfo-data SettingsGetDrawCompositingIndicatorsMethodInfo-data SettingsGetEnableAccelerated2dCanvasMethodInfo-data SettingsGetEnableCaretBrowsingMethodInfo-data SettingsGetEnableDeveloperExtrasMethodInfo-data SettingsGetEnableDnsPrefetchingMethodInfo-data SettingsGetEnableFrameFlatteningMethodInfo-data SettingsGetEnableFullscreenMethodInfo-data SettingsGetEnableHtml5DatabaseMethodInfo-data SettingsGetEnableHtml5LocalStorageMethodInfo-data SettingsGetEnableHyperlinkAuditingMethodInfo-data SettingsGetEnableJavaMethodInfo-data SettingsGetEnableJavascriptMethodInfo-data SettingsGetEnableMediaStreamMethodInfo-data SettingsGetEnableMediasourceMethodInfo-data SettingsGetEnableOfflineWebApplicationCacheMethodInfo-data SettingsGetEnablePageCacheMethodInfo-data SettingsGetEnablePluginsMethodInfo-data SettingsGetEnablePrivateBrowsingMethodInfo-data SettingsGetEnableResizableTextAreasMethodInfo-data SettingsGetEnableSiteSpecificQuirksMethodInfo-data SettingsGetEnableSmoothScrollingMethodInfo-data SettingsGetEnableSpatialNavigationMethodInfo-data SettingsGetEnableTabsToLinksMethodInfo-data SettingsGetEnableWebaudioMethodInfo-data SettingsGetEnableWebglMethodInfo-data SettingsGetEnableWriteConsoleMessagesToStdoutMethodInfo-data SettingsGetEnableXssAuditorMethodInfo-data SettingsGetFantasyFontFamilyMethodInfo-data SettingsGetJavascriptCanAccessClipboardMethodInfo-data SettingsGetJavascriptCanOpenWindowsAutomaticallyMethodInfo-data SettingsGetLoadIconsIgnoringImageLoadSettingMethodInfo-data SettingsGetMediaPlaybackAllowsInlineMethodInfo-data SettingsGetMediaPlaybackRequiresUserGestureMethodInfo-data SettingsGetMinimumFontSizeMethodInfo-data SettingsGetMonospaceFontFamilyMethodInfo-data SettingsGetPictographFontFamilyMethodInfo-data SettingsGetPrintBackgroundsMethodInfo-data SettingsGetSansSerifFontFamilyMethodInfo-data SettingsGetSerifFontFamilyMethodInfo-data SettingsGetUserAgentMethodInfo-data SettingsGetZoomTextOnlyMethodInfo-data SettingsSetAllowFileAccessFromFileUrlsMethodInfo-data SettingsSetAllowModalDialogsMethodInfo-data SettingsSetAutoLoadImagesMethodInfo-data SettingsSetCursiveFontFamilyMethodInfo-data SettingsSetDefaultCharsetMethodInfo-data SettingsSetDefaultFontFamilyMethodInfo-data SettingsSetDefaultFontSizeMethodInfo-data SettingsSetDefaultMonospaceFontSizeMethodInfo-data SettingsSetDrawCompositingIndicatorsMethodInfo-data SettingsSetEnableAccelerated2dCanvasMethodInfo-data SettingsSetEnableCaretBrowsingMethodInfo-data SettingsSetEnableDeveloperExtrasMethodInfo-data SettingsSetEnableDnsPrefetchingMethodInfo-data SettingsSetEnableFrameFlatteningMethodInfo-data SettingsSetEnableFullscreenMethodInfo-data SettingsSetEnableHtml5DatabaseMethodInfo-data SettingsSetEnableHtml5LocalStorageMethodInfo-data SettingsSetEnableHyperlinkAuditingMethodInfo-data SettingsSetEnableJavaMethodInfo-data SettingsSetEnableJavascriptMethodInfo-data SettingsSetEnableMediaStreamMethodInfo-data SettingsSetEnableMediasourceMethodInfo-data SettingsSetEnableOfflineWebApplicationCacheMethodInfo-data SettingsSetEnablePageCacheMethodInfo-data SettingsSetEnablePluginsMethodInfo-data SettingsSetEnablePrivateBrowsingMethodInfo-data SettingsSetEnableResizableTextAreasMethodInfo-data SettingsSetEnableSiteSpecificQuirksMethodInfo-data SettingsSetEnableSmoothScrollingMethodInfo-data SettingsSetEnableSpatialNavigationMethodInfo-data SettingsSetEnableTabsToLinksMethodInfo-data SettingsSetEnableWebaudioMethodInfo-data SettingsSetEnableWebglMethodInfo-data SettingsSetEnableWriteConsoleMessagesToStdoutMethodInfo-data SettingsSetEnableXssAuditorMethodInfo-data SettingsSetFantasyFontFamilyMethodInfo-data SettingsSetJavascriptCanAccessClipboardMethodInfo-data SettingsSetJavascriptCanOpenWindowsAutomaticallyMethodInfo-data SettingsSetLoadIconsIgnoringImageLoadSettingMethodInfo-data SettingsSetMediaPlaybackAllowsInlineMethodInfo-data SettingsSetMediaPlaybackRequiresUserGestureMethodInfo-data SettingsSetMinimumFontSizeMethodInfo-data SettingsSetMonospaceFontFamilyMethodInfo-data SettingsSetPictographFontFamilyMethodInfo-data SettingsSetPrintBackgroundsMethodInfo-data SettingsSetSansSerifFontFamilyMethodInfo-data SettingsSetSerifFontFamilyMethodInfo-data SettingsSetUserAgentMethodInfo-data SettingsSetUserAgentWithApplicationDetailsMethodInfo-data SettingsSetZoomTextOnlyMethodInfo
− GI/WebKit2/Objects/URIRequest.hs 
@@ -1,307 +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.WebKit2.Objects.URIRequest-    ( ---- * Exported types-    URIRequest(..)                          ,-    URIRequestK                             ,-    toURIRequest                            ,-    noURIRequest                            ,--- -- * Methods--- ** uRIRequestGetHttpHeaders-    URIRequestGetHttpHeadersMethodInfo      ,-    uRIRequestGetHttpHeaders                ,----- ** uRIRequestGetHttpMethod-    URIRequestGetHttpMethodMethodInfo       ,-    uRIRequestGetHttpMethod                 ,----- ** uRIRequestGetUri-    URIRequestGetUriMethodInfo              ,-    uRIRequestGetUri                        ,----- ** uRIRequestNew-    uRIRequestNew                           ,----- ** uRIRequestSetUri-    URIRequestSetUriMethodInfo              ,-    uRIRequestSetUri                        ,----- -- * Properties--- ** Uri-    URIRequestUriPropertyInfo               ,-    constructURIRequestUri                  ,-    getURIRequestUri                        ,-    setURIRequestUri                        ,-    uRIRequestUri                           ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject-import qualified GI.Soup as Soup--newtype URIRequest = URIRequest (ForeignPtr URIRequest)-foreign import ccall "webkit_uri_request_get_type"-    c_webkit_uri_request_get_type :: IO GType--type instance ParentTypes URIRequest = URIRequestParentTypes-type URIRequestParentTypes = '[GObject.Object]--instance GObject URIRequest where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_uri_request_get_type-    --class GObject o => URIRequestK o-instance (GObject o, IsDescendantOf URIRequest o) => URIRequestK o--toURIRequest :: URIRequestK o => o -> IO URIRequest-toURIRequest = unsafeCastTo URIRequest--noURIRequest :: Maybe URIRequest-noURIRequest = Nothing--type family ResolveURIRequestMethod (t :: Symbol) (o :: *) :: * where-    ResolveURIRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveURIRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveURIRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveURIRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveURIRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveURIRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveURIRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveURIRequestMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveURIRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveURIRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveURIRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveURIRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveURIRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveURIRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveURIRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveURIRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveURIRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveURIRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveURIRequestMethod "getHttpHeaders" o = URIRequestGetHttpHeadersMethodInfo-    ResolveURIRequestMethod "getHttpMethod" o = URIRequestGetHttpMethodMethodInfo-    ResolveURIRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveURIRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveURIRequestMethod "getUri" o = URIRequestGetUriMethodInfo-    ResolveURIRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveURIRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveURIRequestMethod "setUri" o = URIRequestSetUriMethodInfo-    ResolveURIRequestMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveURIRequestMethod t URIRequest, MethodInfo info URIRequest p) => IsLabelProxy t (URIRequest -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveURIRequestMethod t URIRequest, MethodInfo info URIRequest p) => IsLabel t (URIRequest -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "uri"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getURIRequestUri :: (MonadIO m, URIRequestK o) => o -> m T.Text-getURIRequestUri obj = liftIO $ checkUnexpectedNothing "getURIRequestUri" $ getObjectPropertyString obj "uri"--setURIRequestUri :: (MonadIO m, URIRequestK o) => o -> T.Text -> m ()-setURIRequestUri obj val = liftIO $ setObjectPropertyString obj "uri" (Just val)--constructURIRequestUri :: T.Text -> IO ([Char], GValue)-constructURIRequestUri val = constructObjectPropertyString "uri" (Just val)--data URIRequestUriPropertyInfo-instance AttrInfo URIRequestUriPropertyInfo where-    type AttrAllowedOps URIRequestUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint URIRequestUriPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint URIRequestUriPropertyInfo = URIRequestK-    type AttrGetType URIRequestUriPropertyInfo = T.Text-    type AttrLabel URIRequestUriPropertyInfo = "uri"-    attrGet _ = getURIRequestUri-    attrSet _ = setURIRequestUri-    attrConstruct _ = constructURIRequestUri-    attrClear _ = undefined--type instance AttributeList URIRequest = URIRequestAttributeList-type URIRequestAttributeList = ('[ '("uri", URIRequestUriPropertyInfo)] :: [(Symbol, *)])--uRIRequestUri :: AttrLabelProxy "uri"-uRIRequestUri = AttrLabelProxy--type instance SignalList URIRequest = URIRequestSignalList-type URIRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method URIRequest::new--- method type : Constructor--- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "URIRequest")--- throws : False--- Skip return : False--foreign import ccall "webkit_uri_request_new" webkit_uri_request_new :: -    CString ->                              -- uri : TBasicType TUTF8-    IO (Ptr URIRequest)---uRIRequestNew ::-    (MonadIO m) =>-    T.Text                                  -- uri-    -> m URIRequest                         -- result-uRIRequestNew uri = liftIO $ do-    uri' <- textToCString uri-    result <- webkit_uri_request_new uri'-    checkUnexpectedReturnNULL "webkit_uri_request_new" result-    result' <- (wrapObject URIRequest) result-    freeMem uri'-    return result'---- method URIRequest::get_http_headers--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "MessageHeaders")--- throws : False--- Skip return : False--foreign import ccall "webkit_uri_request_get_http_headers" webkit_uri_request_get_http_headers :: -    Ptr URIRequest ->                       -- _obj : TInterface "WebKit2" "URIRequest"-    IO (Ptr Soup.MessageHeaders)---uRIRequestGetHttpHeaders ::-    (MonadIO m, URIRequestK a) =>-    a                                       -- _obj-    -> m Soup.MessageHeaders                -- result-uRIRequestGetHttpHeaders _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_uri_request_get_http_headers _obj'-    checkUnexpectedReturnNULL "webkit_uri_request_get_http_headers" result-    result' <- (newBoxed Soup.MessageHeaders) result-    touchManagedPtr _obj-    return result'--data URIRequestGetHttpHeadersMethodInfo-instance (signature ~ (m Soup.MessageHeaders), MonadIO m, URIRequestK a) => MethodInfo URIRequestGetHttpHeadersMethodInfo a signature where-    overloadedMethod _ = uRIRequestGetHttpHeaders---- method URIRequest::get_http_method--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_uri_request_get_http_method" webkit_uri_request_get_http_method :: -    Ptr URIRequest ->                       -- _obj : TInterface "WebKit2" "URIRequest"-    IO CString---uRIRequestGetHttpMethod ::-    (MonadIO m, URIRequestK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-uRIRequestGetHttpMethod _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_uri_request_get_http_method _obj'-    checkUnexpectedReturnNULL "webkit_uri_request_get_http_method" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data URIRequestGetHttpMethodMethodInfo-instance (signature ~ (m T.Text), MonadIO m, URIRequestK a) => MethodInfo URIRequestGetHttpMethodMethodInfo a signature where-    overloadedMethod _ = uRIRequestGetHttpMethod---- method URIRequest::get_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_uri_request_get_uri" webkit_uri_request_get_uri :: -    Ptr URIRequest ->                       -- _obj : TInterface "WebKit2" "URIRequest"-    IO CString---uRIRequestGetUri ::-    (MonadIO m, URIRequestK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-uRIRequestGetUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_uri_request_get_uri _obj'-    checkUnexpectedReturnNULL "webkit_uri_request_get_uri" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data URIRequestGetUriMethodInfo-instance (signature ~ (m T.Text), MonadIO m, URIRequestK a) => MethodInfo URIRequestGetUriMethodInfo a signature where-    overloadedMethod _ = uRIRequestGetUri---- method URIRequest::set_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_uri_request_set_uri" webkit_uri_request_set_uri :: -    Ptr URIRequest ->                       -- _obj : TInterface "WebKit2" "URIRequest"-    CString ->                              -- uri : TBasicType TUTF8-    IO ()---uRIRequestSetUri ::-    (MonadIO m, URIRequestK a) =>-    a                                       -- _obj-    -> T.Text                               -- uri-    -> m ()                                 -- result-uRIRequestSetUri _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    uri' <- textToCString uri-    webkit_uri_request_set_uri _obj' uri'-    touchManagedPtr _obj-    freeMem uri'-    return ()--data URIRequestSetUriMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, URIRequestK a) => MethodInfo URIRequestSetUriMethodInfo a signature where-    overloadedMethod _ = uRIRequestSetUri--
− GI/WebKit2/Objects/URIRequest.hs-boot 
@@ -1,18 +0,0 @@-module GI.WebKit2.Objects.URIRequest where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype URIRequest = URIRequest (ForeignPtr URIRequest)-instance GObject URIRequest where-class GObject o => URIRequestK o-instance (GObject o, IsDescendantOf URIRequest o) => URIRequestK o-data URIRequestUriPropertyInfo-data URIRequestGetHttpHeadersMethodInfo-data URIRequestGetHttpMethodMethodInfo-data URIRequestGetUriMethodInfo-data URIRequestSetUriMethodInfo
− GI/WebKit2/Objects/URIResponse.hs 
@@ -1,479 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.WebKit2.Objects.URIResponse-    ( ---- * Exported types-    URIResponse(..)                         ,-    URIResponseK                            ,-    toURIResponse                           ,-    noURIResponse                           ,--- -- * Methods--- ** uRIResponseGetContentLength-    URIResponseGetContentLengthMethodInfo   ,-    uRIResponseGetContentLength             ,----- ** uRIResponseGetHttpHeaders-    URIResponseGetHttpHeadersMethodInfo     ,-    uRIResponseGetHttpHeaders               ,----- ** uRIResponseGetMimeType-    URIResponseGetMimeTypeMethodInfo        ,-    uRIResponseGetMimeType                  ,----- ** uRIResponseGetStatusCode-    URIResponseGetStatusCodeMethodInfo      ,-    uRIResponseGetStatusCode                ,----- ** uRIResponseGetSuggestedFilename-    URIResponseGetSuggestedFilenameMethodInfo,-    uRIResponseGetSuggestedFilename         ,----- ** uRIResponseGetUri-    URIResponseGetUriMethodInfo             ,-    uRIResponseGetUri                       ,----- -- * Properties--- ** ContentLength-    URIResponseContentLengthPropertyInfo    ,-    getURIResponseContentLength             ,-    uRIResponseContentLength                ,----- ** HttpHeaders-    URIResponseHttpHeadersPropertyInfo      ,-    getURIResponseHttpHeaders               ,-    uRIResponseHttpHeaders                  ,----- ** MimeType-    URIResponseMimeTypePropertyInfo         ,-    getURIResponseMimeType                  ,-    uRIResponseMimeType                     ,----- ** StatusCode-    URIResponseStatusCodePropertyInfo       ,-    getURIResponseStatusCode                ,-    uRIResponseStatusCode                   ,----- ** SuggestedFilename-    URIResponseSuggestedFilenamePropertyInfo,-    getURIResponseSuggestedFilename         ,-    uRIResponseSuggestedFilename            ,----- ** Uri-    URIResponseUriPropertyInfo              ,-    getURIResponseUri                       ,-    uRIResponseUri                          ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject-import qualified GI.Soup as Soup--newtype URIResponse = URIResponse (ForeignPtr URIResponse)-foreign import ccall "webkit_uri_response_get_type"-    c_webkit_uri_response_get_type :: IO GType--type instance ParentTypes URIResponse = URIResponseParentTypes-type URIResponseParentTypes = '[GObject.Object]--instance GObject URIResponse where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_uri_response_get_type-    --class GObject o => URIResponseK o-instance (GObject o, IsDescendantOf URIResponse o) => URIResponseK o--toURIResponse :: URIResponseK o => o -> IO URIResponse-toURIResponse = unsafeCastTo URIResponse--noURIResponse :: Maybe URIResponse-noURIResponse = Nothing--type family ResolveURIResponseMethod (t :: Symbol) (o :: *) :: * where-    ResolveURIResponseMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveURIResponseMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveURIResponseMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveURIResponseMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveURIResponseMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveURIResponseMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveURIResponseMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveURIResponseMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveURIResponseMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveURIResponseMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveURIResponseMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveURIResponseMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveURIResponseMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveURIResponseMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveURIResponseMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveURIResponseMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveURIResponseMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveURIResponseMethod "getContentLength" o = URIResponseGetContentLengthMethodInfo-    ResolveURIResponseMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveURIResponseMethod "getHttpHeaders" o = URIResponseGetHttpHeadersMethodInfo-    ResolveURIResponseMethod "getMimeType" o = URIResponseGetMimeTypeMethodInfo-    ResolveURIResponseMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveURIResponseMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveURIResponseMethod "getStatusCode" o = URIResponseGetStatusCodeMethodInfo-    ResolveURIResponseMethod "getSuggestedFilename" o = URIResponseGetSuggestedFilenameMethodInfo-    ResolveURIResponseMethod "getUri" o = URIResponseGetUriMethodInfo-    ResolveURIResponseMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveURIResponseMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveURIResponseMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveURIResponseMethod t URIResponse, MethodInfo info URIResponse p) => IsLabelProxy t (URIResponse -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveURIResponseMethod t URIResponse, MethodInfo info URIResponse p) => IsLabel t (URIResponse -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "content-length"-   -- Type: TBasicType TUInt64-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getURIResponseContentLength :: (MonadIO m, URIResponseK o) => o -> m Word64-getURIResponseContentLength obj = liftIO $ getObjectPropertyUInt64 obj "content-length"--data URIResponseContentLengthPropertyInfo-instance AttrInfo URIResponseContentLengthPropertyInfo where-    type AttrAllowedOps URIResponseContentLengthPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint URIResponseContentLengthPropertyInfo = (~) ()-    type AttrBaseTypeConstraint URIResponseContentLengthPropertyInfo = URIResponseK-    type AttrGetType URIResponseContentLengthPropertyInfo = Word64-    type AttrLabel URIResponseContentLengthPropertyInfo = "content-length"-    attrGet _ = getURIResponseContentLength-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "http-headers"-   -- Type: TInterface "Soup" "MessageHeaders"-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getURIResponseHttpHeaders :: (MonadIO m, URIResponseK o) => o -> m Soup.MessageHeaders-getURIResponseHttpHeaders obj = liftIO $ checkUnexpectedNothing "getURIResponseHttpHeaders" $ getObjectPropertyBoxed obj "http-headers" Soup.MessageHeaders--data URIResponseHttpHeadersPropertyInfo-instance AttrInfo URIResponseHttpHeadersPropertyInfo where-    type AttrAllowedOps URIResponseHttpHeadersPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint URIResponseHttpHeadersPropertyInfo = (~) ()-    type AttrBaseTypeConstraint URIResponseHttpHeadersPropertyInfo = URIResponseK-    type AttrGetType URIResponseHttpHeadersPropertyInfo = Soup.MessageHeaders-    type AttrLabel URIResponseHttpHeadersPropertyInfo = "http-headers"-    attrGet _ = getURIResponseHttpHeaders-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "mime-type"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getURIResponseMimeType :: (MonadIO m, URIResponseK o) => o -> m T.Text-getURIResponseMimeType obj = liftIO $ checkUnexpectedNothing "getURIResponseMimeType" $ getObjectPropertyString obj "mime-type"--data URIResponseMimeTypePropertyInfo-instance AttrInfo URIResponseMimeTypePropertyInfo where-    type AttrAllowedOps URIResponseMimeTypePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint URIResponseMimeTypePropertyInfo = (~) ()-    type AttrBaseTypeConstraint URIResponseMimeTypePropertyInfo = URIResponseK-    type AttrGetType URIResponseMimeTypePropertyInfo = T.Text-    type AttrLabel URIResponseMimeTypePropertyInfo = "mime-type"-    attrGet _ = getURIResponseMimeType-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "status-code"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getURIResponseStatusCode :: (MonadIO m, URIResponseK o) => o -> m Word32-getURIResponseStatusCode obj = liftIO $ getObjectPropertyUInt32 obj "status-code"--data URIResponseStatusCodePropertyInfo-instance AttrInfo URIResponseStatusCodePropertyInfo where-    type AttrAllowedOps URIResponseStatusCodePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint URIResponseStatusCodePropertyInfo = (~) ()-    type AttrBaseTypeConstraint URIResponseStatusCodePropertyInfo = URIResponseK-    type AttrGetType URIResponseStatusCodePropertyInfo = Word32-    type AttrLabel URIResponseStatusCodePropertyInfo = "status-code"-    attrGet _ = getURIResponseStatusCode-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "suggested-filename"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getURIResponseSuggestedFilename :: (MonadIO m, URIResponseK o) => o -> m T.Text-getURIResponseSuggestedFilename obj = liftIO $ checkUnexpectedNothing "getURIResponseSuggestedFilename" $ getObjectPropertyString obj "suggested-filename"--data URIResponseSuggestedFilenamePropertyInfo-instance AttrInfo URIResponseSuggestedFilenamePropertyInfo where-    type AttrAllowedOps URIResponseSuggestedFilenamePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint URIResponseSuggestedFilenamePropertyInfo = (~) ()-    type AttrBaseTypeConstraint URIResponseSuggestedFilenamePropertyInfo = URIResponseK-    type AttrGetType URIResponseSuggestedFilenamePropertyInfo = T.Text-    type AttrLabel URIResponseSuggestedFilenamePropertyInfo = "suggested-filename"-    attrGet _ = getURIResponseSuggestedFilename-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "uri"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getURIResponseUri :: (MonadIO m, URIResponseK o) => o -> m T.Text-getURIResponseUri obj = liftIO $ checkUnexpectedNothing "getURIResponseUri" $ getObjectPropertyString obj "uri"--data URIResponseUriPropertyInfo-instance AttrInfo URIResponseUriPropertyInfo where-    type AttrAllowedOps URIResponseUriPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint URIResponseUriPropertyInfo = (~) ()-    type AttrBaseTypeConstraint URIResponseUriPropertyInfo = URIResponseK-    type AttrGetType URIResponseUriPropertyInfo = T.Text-    type AttrLabel URIResponseUriPropertyInfo = "uri"-    attrGet _ = getURIResponseUri-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined--type instance AttributeList URIResponse = URIResponseAttributeList-type URIResponseAttributeList = ('[ '("contentLength", URIResponseContentLengthPropertyInfo), '("httpHeaders", URIResponseHttpHeadersPropertyInfo), '("mimeType", URIResponseMimeTypePropertyInfo), '("statusCode", URIResponseStatusCodePropertyInfo), '("suggestedFilename", URIResponseSuggestedFilenamePropertyInfo), '("uri", URIResponseUriPropertyInfo)] :: [(Symbol, *)])--uRIResponseContentLength :: AttrLabelProxy "contentLength"-uRIResponseContentLength = AttrLabelProxy--uRIResponseHttpHeaders :: AttrLabelProxy "httpHeaders"-uRIResponseHttpHeaders = AttrLabelProxy--uRIResponseMimeType :: AttrLabelProxy "mimeType"-uRIResponseMimeType = AttrLabelProxy--uRIResponseStatusCode :: AttrLabelProxy "statusCode"-uRIResponseStatusCode = AttrLabelProxy--uRIResponseSuggestedFilename :: AttrLabelProxy "suggestedFilename"-uRIResponseSuggestedFilename = AttrLabelProxy--uRIResponseUri :: AttrLabelProxy "uri"-uRIResponseUri = AttrLabelProxy--type instance SignalList URIResponse = URIResponseSignalList-type URIResponseSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method URIResponse::get_content_length--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt64)--- throws : False--- Skip return : False--foreign import ccall "webkit_uri_response_get_content_length" webkit_uri_response_get_content_length :: -    Ptr URIResponse ->                      -- _obj : TInterface "WebKit2" "URIResponse"-    IO Word64---uRIResponseGetContentLength ::-    (MonadIO m, URIResponseK a) =>-    a                                       -- _obj-    -> m Word64                             -- result-uRIResponseGetContentLength _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_uri_response_get_content_length _obj'-    touchManagedPtr _obj-    return result--data URIResponseGetContentLengthMethodInfo-instance (signature ~ (m Word64), MonadIO m, URIResponseK a) => MethodInfo URIResponseGetContentLengthMethodInfo a signature where-    overloadedMethod _ = uRIResponseGetContentLength---- method URIResponse::get_http_headers--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "MessageHeaders")--- throws : False--- Skip return : False--foreign import ccall "webkit_uri_response_get_http_headers" webkit_uri_response_get_http_headers :: -    Ptr URIResponse ->                      -- _obj : TInterface "WebKit2" "URIResponse"-    IO (Ptr Soup.MessageHeaders)---uRIResponseGetHttpHeaders ::-    (MonadIO m, URIResponseK a) =>-    a                                       -- _obj-    -> m Soup.MessageHeaders                -- result-uRIResponseGetHttpHeaders _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_uri_response_get_http_headers _obj'-    checkUnexpectedReturnNULL "webkit_uri_response_get_http_headers" result-    result' <- (newBoxed Soup.MessageHeaders) result-    touchManagedPtr _obj-    return result'--data URIResponseGetHttpHeadersMethodInfo-instance (signature ~ (m Soup.MessageHeaders), MonadIO m, URIResponseK a) => MethodInfo URIResponseGetHttpHeadersMethodInfo a signature where-    overloadedMethod _ = uRIResponseGetHttpHeaders---- method URIResponse::get_mime_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_uri_response_get_mime_type" webkit_uri_response_get_mime_type :: -    Ptr URIResponse ->                      -- _obj : TInterface "WebKit2" "URIResponse"-    IO CString---uRIResponseGetMimeType ::-    (MonadIO m, URIResponseK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-uRIResponseGetMimeType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_uri_response_get_mime_type _obj'-    checkUnexpectedReturnNULL "webkit_uri_response_get_mime_type" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data URIResponseGetMimeTypeMethodInfo-instance (signature ~ (m T.Text), MonadIO m, URIResponseK a) => MethodInfo URIResponseGetMimeTypeMethodInfo a signature where-    overloadedMethod _ = uRIResponseGetMimeType---- method URIResponse::get_status_code--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "webkit_uri_response_get_status_code" webkit_uri_response_get_status_code :: -    Ptr URIResponse ->                      -- _obj : TInterface "WebKit2" "URIResponse"-    IO Word32---uRIResponseGetStatusCode ::-    (MonadIO m, URIResponseK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-uRIResponseGetStatusCode _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_uri_response_get_status_code _obj'-    touchManagedPtr _obj-    return result--data URIResponseGetStatusCodeMethodInfo-instance (signature ~ (m Word32), MonadIO m, URIResponseK a) => MethodInfo URIResponseGetStatusCodeMethodInfo a signature where-    overloadedMethod _ = uRIResponseGetStatusCode---- method URIResponse::get_suggested_filename--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_uri_response_get_suggested_filename" webkit_uri_response_get_suggested_filename :: -    Ptr URIResponse ->                      -- _obj : TInterface "WebKit2" "URIResponse"-    IO CString---uRIResponseGetSuggestedFilename ::-    (MonadIO m, URIResponseK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-uRIResponseGetSuggestedFilename _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_uri_response_get_suggested_filename _obj'-    checkUnexpectedReturnNULL "webkit_uri_response_get_suggested_filename" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data URIResponseGetSuggestedFilenameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, URIResponseK a) => MethodInfo URIResponseGetSuggestedFilenameMethodInfo a signature where-    overloadedMethod _ = uRIResponseGetSuggestedFilename---- method URIResponse::get_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_uri_response_get_uri" webkit_uri_response_get_uri :: -    Ptr URIResponse ->                      -- _obj : TInterface "WebKit2" "URIResponse"-    IO CString---uRIResponseGetUri ::-    (MonadIO m, URIResponseK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-uRIResponseGetUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_uri_response_get_uri _obj'-    checkUnexpectedReturnNULL "webkit_uri_response_get_uri" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data URIResponseGetUriMethodInfo-instance (signature ~ (m T.Text), MonadIO m, URIResponseK a) => MethodInfo URIResponseGetUriMethodInfo a signature where-    overloadedMethod _ = uRIResponseGetUri--
− GI/WebKit2/Objects/URIResponse.hs-boot 
@@ -1,25 +0,0 @@-module GI.WebKit2.Objects.URIResponse where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype URIResponse = URIResponse (ForeignPtr URIResponse)-instance GObject URIResponse where-class GObject o => URIResponseK o-instance (GObject o, IsDescendantOf URIResponse o) => URIResponseK o-data URIResponseContentLengthPropertyInfo-data URIResponseHttpHeadersPropertyInfo-data URIResponseMimeTypePropertyInfo-data URIResponseStatusCodePropertyInfo-data URIResponseSuggestedFilenamePropertyInfo-data URIResponseUriPropertyInfo-data URIResponseGetContentLengthMethodInfo-data URIResponseGetHttpHeadersMethodInfo-data URIResponseGetMimeTypeMethodInfo-data URIResponseGetStatusCodeMethodInfo-data URIResponseGetSuggestedFilenameMethodInfo-data URIResponseGetUriMethodInfo
− GI/WebKit2/Objects/URISchemeRequest.hs 
@@ -1,320 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.WebKit2.Objects.URISchemeRequest-    ( ---- * Exported types-    URISchemeRequest(..)                    ,-    URISchemeRequestK                       ,-    toURISchemeRequest                      ,-    noURISchemeRequest                      ,--- -- * Methods--- ** uRISchemeRequestFinish-    URISchemeRequestFinishMethodInfo        ,-    uRISchemeRequestFinish                  ,----- ** uRISchemeRequestFinishError-    URISchemeRequestFinishErrorMethodInfo   ,-    uRISchemeRequestFinishError             ,----- ** uRISchemeRequestGetPath-    URISchemeRequestGetPathMethodInfo       ,-    uRISchemeRequestGetPath                 ,----- ** uRISchemeRequestGetScheme-    URISchemeRequestGetSchemeMethodInfo     ,-    uRISchemeRequestGetScheme               ,----- ** uRISchemeRequestGetUri-    URISchemeRequestGetUriMethodInfo        ,-    uRISchemeRequestGetUri                  ,----- ** uRISchemeRequestGetWebView-    URISchemeRequestGetWebViewMethodInfo    ,-    uRISchemeRequestGetWebView              ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject-import qualified GI.Gio as Gio--newtype URISchemeRequest = URISchemeRequest (ForeignPtr URISchemeRequest)-foreign import ccall "webkit_uri_scheme_request_get_type"-    c_webkit_uri_scheme_request_get_type :: IO GType--type instance ParentTypes URISchemeRequest = URISchemeRequestParentTypes-type URISchemeRequestParentTypes = '[GObject.Object]--instance GObject URISchemeRequest where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_uri_scheme_request_get_type-    --class GObject o => URISchemeRequestK o-instance (GObject o, IsDescendantOf URISchemeRequest o) => URISchemeRequestK o--toURISchemeRequest :: URISchemeRequestK o => o -> IO URISchemeRequest-toURISchemeRequest = unsafeCastTo URISchemeRequest--noURISchemeRequest :: Maybe URISchemeRequest-noURISchemeRequest = Nothing--type family ResolveURISchemeRequestMethod (t :: Symbol) (o :: *) :: * where-    ResolveURISchemeRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveURISchemeRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveURISchemeRequestMethod "finish" o = URISchemeRequestFinishMethodInfo-    ResolveURISchemeRequestMethod "finishError" o = URISchemeRequestFinishErrorMethodInfo-    ResolveURISchemeRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveURISchemeRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveURISchemeRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveURISchemeRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveURISchemeRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveURISchemeRequestMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveURISchemeRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveURISchemeRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveURISchemeRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveURISchemeRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveURISchemeRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveURISchemeRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveURISchemeRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveURISchemeRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveURISchemeRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveURISchemeRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveURISchemeRequestMethod "getPath" o = URISchemeRequestGetPathMethodInfo-    ResolveURISchemeRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveURISchemeRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveURISchemeRequestMethod "getScheme" o = URISchemeRequestGetSchemeMethodInfo-    ResolveURISchemeRequestMethod "getUri" o = URISchemeRequestGetUriMethodInfo-    ResolveURISchemeRequestMethod "getWebView" o = URISchemeRequestGetWebViewMethodInfo-    ResolveURISchemeRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveURISchemeRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveURISchemeRequestMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveURISchemeRequestMethod t URISchemeRequest, MethodInfo info URISchemeRequest p) => IsLabelProxy t (URISchemeRequest -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveURISchemeRequestMethod t URISchemeRequest, MethodInfo info URISchemeRequest p) => IsLabel t (URISchemeRequest -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList URISchemeRequest = URISchemeRequestAttributeList-type URISchemeRequestAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList URISchemeRequest = URISchemeRequestSignalList-type URISchemeRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method URISchemeRequest::finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stream_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_uri_scheme_request_finish" webkit_uri_scheme_request_finish :: -    Ptr URISchemeRequest ->                 -- _obj : TInterface "WebKit2" "URISchemeRequest"-    Ptr Gio.InputStream ->                  -- stream : TInterface "Gio" "InputStream"-    Int64 ->                                -- stream_length : TBasicType TInt64-    CString ->                              -- mime_type : TBasicType TUTF8-    IO ()---uRISchemeRequestFinish ::-    (MonadIO m, URISchemeRequestK a, Gio.InputStreamK b) =>-    a                                       -- _obj-    -> b                                    -- stream-    -> Int64                                -- streamLength-    -> Maybe (T.Text)                       -- mimeType-    -> m ()                                 -- result-uRISchemeRequestFinish _obj stream streamLength mimeType = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let stream' = unsafeManagedPtrCastPtr stream-    maybeMimeType <- case mimeType of-        Nothing -> return nullPtr-        Just jMimeType -> do-            jMimeType' <- textToCString jMimeType-            return jMimeType'-    webkit_uri_scheme_request_finish _obj' stream' streamLength maybeMimeType-    touchManagedPtr _obj-    touchManagedPtr stream-    freeMem maybeMimeType-    return ()--data URISchemeRequestFinishMethodInfo-instance (signature ~ (b -> Int64 -> Maybe (T.Text) -> m ()), MonadIO m, URISchemeRequestK a, Gio.InputStreamK b) => MethodInfo URISchemeRequestFinishMethodInfo a signature where-    overloadedMethod _ = uRISchemeRequestFinish---- method URISchemeRequest::finish_error--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_uri_scheme_request_finish_error" webkit_uri_scheme_request_finish_error :: -    Ptr URISchemeRequest ->                 -- _obj : TInterface "WebKit2" "URISchemeRequest"-    Ptr GError ->                           -- error : TError-    IO ()---uRISchemeRequestFinishError ::-    (MonadIO m, URISchemeRequestK a) =>-    a                                       -- _obj-    -> GError                               -- error_-    -> m ()                                 -- result-uRISchemeRequestFinishError _obj error_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let error_' = unsafeManagedPtrGetPtr error_-    webkit_uri_scheme_request_finish_error _obj' error_'-    touchManagedPtr _obj-    touchManagedPtr error_-    return ()--data URISchemeRequestFinishErrorMethodInfo-instance (signature ~ (GError -> m ()), MonadIO m, URISchemeRequestK a) => MethodInfo URISchemeRequestFinishErrorMethodInfo a signature where-    overloadedMethod _ = uRISchemeRequestFinishError---- method URISchemeRequest::get_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_uri_scheme_request_get_path" webkit_uri_scheme_request_get_path :: -    Ptr URISchemeRequest ->                 -- _obj : TInterface "WebKit2" "URISchemeRequest"-    IO CString---uRISchemeRequestGetPath ::-    (MonadIO m, URISchemeRequestK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-uRISchemeRequestGetPath _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_uri_scheme_request_get_path _obj'-    checkUnexpectedReturnNULL "webkit_uri_scheme_request_get_path" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data URISchemeRequestGetPathMethodInfo-instance (signature ~ (m T.Text), MonadIO m, URISchemeRequestK a) => MethodInfo URISchemeRequestGetPathMethodInfo a signature where-    overloadedMethod _ = uRISchemeRequestGetPath---- method URISchemeRequest::get_scheme--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_uri_scheme_request_get_scheme" webkit_uri_scheme_request_get_scheme :: -    Ptr URISchemeRequest ->                 -- _obj : TInterface "WebKit2" "URISchemeRequest"-    IO CString---uRISchemeRequestGetScheme ::-    (MonadIO m, URISchemeRequestK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-uRISchemeRequestGetScheme _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_uri_scheme_request_get_scheme _obj'-    checkUnexpectedReturnNULL "webkit_uri_scheme_request_get_scheme" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data URISchemeRequestGetSchemeMethodInfo-instance (signature ~ (m T.Text), MonadIO m, URISchemeRequestK a) => MethodInfo URISchemeRequestGetSchemeMethodInfo a signature where-    overloadedMethod _ = uRISchemeRequestGetScheme---- method URISchemeRequest::get_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_uri_scheme_request_get_uri" webkit_uri_scheme_request_get_uri :: -    Ptr URISchemeRequest ->                 -- _obj : TInterface "WebKit2" "URISchemeRequest"-    IO CString---uRISchemeRequestGetUri ::-    (MonadIO m, URISchemeRequestK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-uRISchemeRequestGetUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_uri_scheme_request_get_uri _obj'-    checkUnexpectedReturnNULL "webkit_uri_scheme_request_get_uri" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data URISchemeRequestGetUriMethodInfo-instance (signature ~ (m T.Text), MonadIO m, URISchemeRequestK a) => MethodInfo URISchemeRequestGetUriMethodInfo a signature where-    overloadedMethod _ = uRISchemeRequestGetUri---- method URISchemeRequest::get_web_view--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "URISchemeRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "WebView")--- throws : False--- Skip return : False--foreign import ccall "webkit_uri_scheme_request_get_web_view" webkit_uri_scheme_request_get_web_view :: -    Ptr URISchemeRequest ->                 -- _obj : TInterface "WebKit2" "URISchemeRequest"-    IO (Ptr WebView)---uRISchemeRequestGetWebView ::-    (MonadIO m, URISchemeRequestK a) =>-    a                                       -- _obj-    -> m WebView                            -- result-uRISchemeRequestGetWebView _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_uri_scheme_request_get_web_view _obj'-    checkUnexpectedReturnNULL "webkit_uri_scheme_request_get_web_view" result-    result' <- (newObject WebView) result-    touchManagedPtr _obj-    return result'--data URISchemeRequestGetWebViewMethodInfo-instance (signature ~ (m WebView), MonadIO m, URISchemeRequestK a) => MethodInfo URISchemeRequestGetWebViewMethodInfo a signature where-    overloadedMethod _ = uRISchemeRequestGetWebView--
− GI/WebKit2/Objects/URISchemeRequest.hs-boot 
@@ -1,19 +0,0 @@-module GI.WebKit2.Objects.URISchemeRequest where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype URISchemeRequest = URISchemeRequest (ForeignPtr URISchemeRequest)-instance GObject URISchemeRequest where-class GObject o => URISchemeRequestK o-instance (GObject o, IsDescendantOf URISchemeRequest o) => URISchemeRequestK o-data URISchemeRequestFinishMethodInfo-data URISchemeRequestFinishErrorMethodInfo-data URISchemeRequestGetPathMethodInfo-data URISchemeRequestGetSchemeMethodInfo-data URISchemeRequestGetUriMethodInfo-data URISchemeRequestGetWebViewMethodInfo
− GI/WebKit2/Objects/UserContentManager.hs 
@@ -1,397 +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.WebKit2.Objects.UserContentManager-    ( ---- * Exported types-    UserContentManager(..)                  ,-    UserContentManagerK                     ,-    toUserContentManager                    ,-    noUserContentManager                    ,--- -- * Methods--- ** userContentManagerAddScript-    UserContentManagerAddScriptMethodInfo   ,-    userContentManagerAddScript             ,----- ** userContentManagerAddStyleSheet-    UserContentManagerAddStyleSheetMethodInfo,-    userContentManagerAddStyleSheet         ,----- ** userContentManagerNew-    userContentManagerNew                   ,----- ** userContentManagerRegisterScriptMessageHandler-    UserContentManagerRegisterScriptMessageHandlerMethodInfo,-    userContentManagerRegisterScriptMessageHandler,----- ** userContentManagerRemoveAllScripts-    UserContentManagerRemoveAllScriptsMethodInfo,-    userContentManagerRemoveAllScripts      ,----- ** userContentManagerRemoveAllStyleSheets-    UserContentManagerRemoveAllStyleSheetsMethodInfo,-    userContentManagerRemoveAllStyleSheets  ,----- ** userContentManagerUnregisterScriptMessageHandler-    UserContentManagerUnregisterScriptMessageHandlerMethodInfo,-    userContentManagerUnregisterScriptMessageHandler,----- -- * Signals--- ** ScriptMessageReceived-    UserContentManagerScriptMessageReceivedCallback,-    UserContentManagerScriptMessageReceivedCallbackC,-    UserContentManagerScriptMessageReceivedSignalInfo,-    afterUserContentManagerScriptMessageReceived,-    mkUserContentManagerScriptMessageReceivedCallback,-    noUserContentManagerScriptMessageReceivedCallback,-    onUserContentManagerScriptMessageReceived,-    userContentManagerScriptMessageReceivedCallbackWrapper,-    userContentManagerScriptMessageReceivedClosure,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject--newtype UserContentManager = UserContentManager (ForeignPtr UserContentManager)-foreign import ccall "webkit_user_content_manager_get_type"-    c_webkit_user_content_manager_get_type :: IO GType--type instance ParentTypes UserContentManager = UserContentManagerParentTypes-type UserContentManagerParentTypes = '[GObject.Object]--instance GObject UserContentManager where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_user_content_manager_get_type-    --class GObject o => UserContentManagerK o-instance (GObject o, IsDescendantOf UserContentManager o) => UserContentManagerK o--toUserContentManager :: UserContentManagerK o => o -> IO UserContentManager-toUserContentManager = unsafeCastTo UserContentManager--noUserContentManager :: Maybe UserContentManager-noUserContentManager = Nothing--type family ResolveUserContentManagerMethod (t :: Symbol) (o :: *) :: * where-    ResolveUserContentManagerMethod "addScript" o = UserContentManagerAddScriptMethodInfo-    ResolveUserContentManagerMethod "addStyleSheet" o = UserContentManagerAddStyleSheetMethodInfo-    ResolveUserContentManagerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveUserContentManagerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveUserContentManagerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveUserContentManagerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveUserContentManagerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveUserContentManagerMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveUserContentManagerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveUserContentManagerMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveUserContentManagerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveUserContentManagerMethod "registerScriptMessageHandler" o = UserContentManagerRegisterScriptMessageHandlerMethodInfo-    ResolveUserContentManagerMethod "removeAllScripts" o = UserContentManagerRemoveAllScriptsMethodInfo-    ResolveUserContentManagerMethod "removeAllStyleSheets" o = UserContentManagerRemoveAllStyleSheetsMethodInfo-    ResolveUserContentManagerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveUserContentManagerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveUserContentManagerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveUserContentManagerMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveUserContentManagerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveUserContentManagerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveUserContentManagerMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveUserContentManagerMethod "unregisterScriptMessageHandler" o = UserContentManagerUnregisterScriptMessageHandlerMethodInfo-    ResolveUserContentManagerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveUserContentManagerMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveUserContentManagerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveUserContentManagerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveUserContentManagerMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveUserContentManagerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveUserContentManagerMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveUserContentManagerMethod t UserContentManager, MethodInfo info UserContentManager p) => IsLabelProxy t (UserContentManager -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveUserContentManagerMethod t UserContentManager, MethodInfo info UserContentManager p) => IsLabel t (UserContentManager -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal UserContentManager::script-message-received-type UserContentManagerScriptMessageReceivedCallback =-    JavascriptResult ->-    IO ()--noUserContentManagerScriptMessageReceivedCallback :: Maybe UserContentManagerScriptMessageReceivedCallback-noUserContentManagerScriptMessageReceivedCallback = Nothing--type UserContentManagerScriptMessageReceivedCallbackC =-    Ptr () ->                               -- object-    Ptr JavascriptResult ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkUserContentManagerScriptMessageReceivedCallback :: UserContentManagerScriptMessageReceivedCallbackC -> IO (FunPtr UserContentManagerScriptMessageReceivedCallbackC)--userContentManagerScriptMessageReceivedClosure :: UserContentManagerScriptMessageReceivedCallback -> IO Closure-userContentManagerScriptMessageReceivedClosure cb = newCClosure =<< mkUserContentManagerScriptMessageReceivedCallback wrapped-    where wrapped = userContentManagerScriptMessageReceivedCallbackWrapper cb--userContentManagerScriptMessageReceivedCallbackWrapper ::-    UserContentManagerScriptMessageReceivedCallback ->-    Ptr () ->-    Ptr JavascriptResult ->-    Ptr () ->-    IO ()-userContentManagerScriptMessageReceivedCallbackWrapper _cb _ jsResult _ = do-    jsResult' <- (newBoxed JavascriptResult) jsResult-    _cb  jsResult'--onUserContentManagerScriptMessageReceived :: (GObject a, MonadIO m) => a -> UserContentManagerScriptMessageReceivedCallback -> m SignalHandlerId-onUserContentManagerScriptMessageReceived obj cb = liftIO $ connectUserContentManagerScriptMessageReceived obj cb SignalConnectBefore-afterUserContentManagerScriptMessageReceived :: (GObject a, MonadIO m) => a -> UserContentManagerScriptMessageReceivedCallback -> m SignalHandlerId-afterUserContentManagerScriptMessageReceived obj cb = connectUserContentManagerScriptMessageReceived obj cb SignalConnectAfter--connectUserContentManagerScriptMessageReceived :: (GObject a, MonadIO m) =>-                                                  a -> UserContentManagerScriptMessageReceivedCallback -> SignalConnectMode -> m SignalHandlerId-connectUserContentManagerScriptMessageReceived obj cb after = liftIO $ do-    cb' <- mkUserContentManagerScriptMessageReceivedCallback (userContentManagerScriptMessageReceivedCallbackWrapper cb)-    connectSignalFunPtr obj "script-message-received" cb' after--type instance AttributeList UserContentManager = UserContentManagerAttributeList-type UserContentManagerAttributeList = ('[ ] :: [(Symbol, *)])--data UserContentManagerScriptMessageReceivedSignalInfo-instance SignalInfo UserContentManagerScriptMessageReceivedSignalInfo where-    type HaskellCallbackType UserContentManagerScriptMessageReceivedSignalInfo = UserContentManagerScriptMessageReceivedCallback-    connectSignal _ = connectUserContentManagerScriptMessageReceived--type instance SignalList UserContentManager = UserContentManagerSignalList-type UserContentManagerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("scriptMessageReceived", UserContentManagerScriptMessageReceivedSignalInfo)] :: [(Symbol, *)])---- method UserContentManager::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "WebKit2" "UserContentManager")--- throws : False--- Skip return : False--foreign import ccall "webkit_user_content_manager_new" webkit_user_content_manager_new :: -    IO (Ptr UserContentManager)---userContentManagerNew ::-    (MonadIO m) =>-    m UserContentManager                    -- result-userContentManagerNew  = liftIO $ do-    result <- webkit_user_content_manager_new-    checkUnexpectedReturnNULL "webkit_user_content_manager_new" result-    result' <- (wrapObject UserContentManager) result-    return result'---- method UserContentManager::add_script--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "script", argType = TInterface "WebKit2" "UserScript", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_user_content_manager_add_script" webkit_user_content_manager_add_script :: -    Ptr UserContentManager ->               -- _obj : TInterface "WebKit2" "UserContentManager"-    Ptr UserScript ->                       -- script : TInterface "WebKit2" "UserScript"-    IO ()---userContentManagerAddScript ::-    (MonadIO m, UserContentManagerK a) =>-    a                                       -- _obj-    -> UserScript                           -- script-    -> m ()                                 -- result-userContentManagerAddScript _obj script = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let script' = unsafeManagedPtrGetPtr script-    webkit_user_content_manager_add_script _obj' script'-    touchManagedPtr _obj-    touchManagedPtr script-    return ()--data UserContentManagerAddScriptMethodInfo-instance (signature ~ (UserScript -> m ()), MonadIO m, UserContentManagerK a) => MethodInfo UserContentManagerAddScriptMethodInfo a signature where-    overloadedMethod _ = userContentManagerAddScript---- method UserContentManager::add_style_sheet--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stylesheet", argType = TInterface "WebKit2" "UserStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_user_content_manager_add_style_sheet" webkit_user_content_manager_add_style_sheet :: -    Ptr UserContentManager ->               -- _obj : TInterface "WebKit2" "UserContentManager"-    Ptr UserStyleSheet ->                   -- stylesheet : TInterface "WebKit2" "UserStyleSheet"-    IO ()---userContentManagerAddStyleSheet ::-    (MonadIO m, UserContentManagerK a) =>-    a                                       -- _obj-    -> UserStyleSheet                       -- stylesheet-    -> m ()                                 -- result-userContentManagerAddStyleSheet _obj stylesheet = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let stylesheet' = unsafeManagedPtrGetPtr stylesheet-    webkit_user_content_manager_add_style_sheet _obj' stylesheet'-    touchManagedPtr _obj-    touchManagedPtr stylesheet-    return ()--data UserContentManagerAddStyleSheetMethodInfo-instance (signature ~ (UserStyleSheet -> m ()), MonadIO m, UserContentManagerK a) => MethodInfo UserContentManagerAddStyleSheetMethodInfo a signature where-    overloadedMethod _ = userContentManagerAddStyleSheet---- method UserContentManager::register_script_message_handler--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_user_content_manager_register_script_message_handler" webkit_user_content_manager_register_script_message_handler :: -    Ptr UserContentManager ->               -- _obj : TInterface "WebKit2" "UserContentManager"-    CString ->                              -- name : TBasicType TUTF8-    IO CInt---userContentManagerRegisterScriptMessageHandler ::-    (MonadIO m, UserContentManagerK a) =>-    a                                       -- _obj-    -> T.Text                               -- name-    -> m Bool                               -- result-userContentManagerRegisterScriptMessageHandler _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    name' <- textToCString name-    result <- webkit_user_content_manager_register_script_message_handler _obj' name'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem name'-    return result'--data UserContentManagerRegisterScriptMessageHandlerMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, UserContentManagerK a) => MethodInfo UserContentManagerRegisterScriptMessageHandlerMethodInfo a signature where-    overloadedMethod _ = userContentManagerRegisterScriptMessageHandler---- method UserContentManager::remove_all_scripts--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_user_content_manager_remove_all_scripts" webkit_user_content_manager_remove_all_scripts :: -    Ptr UserContentManager ->               -- _obj : TInterface "WebKit2" "UserContentManager"-    IO ()---userContentManagerRemoveAllScripts ::-    (MonadIO m, UserContentManagerK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-userContentManagerRemoveAllScripts _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_user_content_manager_remove_all_scripts _obj'-    touchManagedPtr _obj-    return ()--data UserContentManagerRemoveAllScriptsMethodInfo-instance (signature ~ (m ()), MonadIO m, UserContentManagerK a) => MethodInfo UserContentManagerRemoveAllScriptsMethodInfo a signature where-    overloadedMethod _ = userContentManagerRemoveAllScripts---- method UserContentManager::remove_all_style_sheets--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_user_content_manager_remove_all_style_sheets" webkit_user_content_manager_remove_all_style_sheets :: -    Ptr UserContentManager ->               -- _obj : TInterface "WebKit2" "UserContentManager"-    IO ()---userContentManagerRemoveAllStyleSheets ::-    (MonadIO m, UserContentManagerK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-userContentManagerRemoveAllStyleSheets _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_user_content_manager_remove_all_style_sheets _obj'-    touchManagedPtr _obj-    return ()--data UserContentManagerRemoveAllStyleSheetsMethodInfo-instance (signature ~ (m ()), MonadIO m, UserContentManagerK a) => MethodInfo UserContentManagerRemoveAllStyleSheetsMethodInfo a signature where-    overloadedMethod _ = userContentManagerRemoveAllStyleSheets---- method UserContentManager::unregister_script_message_handler--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_user_content_manager_unregister_script_message_handler" webkit_user_content_manager_unregister_script_message_handler :: -    Ptr UserContentManager ->               -- _obj : TInterface "WebKit2" "UserContentManager"-    CString ->                              -- name : TBasicType TUTF8-    IO ()---userContentManagerUnregisterScriptMessageHandler ::-    (MonadIO m, UserContentManagerK a) =>-    a                                       -- _obj-    -> T.Text                               -- name-    -> m ()                                 -- result-userContentManagerUnregisterScriptMessageHandler _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    name' <- textToCString name-    webkit_user_content_manager_unregister_script_message_handler _obj' name'-    touchManagedPtr _obj-    freeMem name'-    return ()--data UserContentManagerUnregisterScriptMessageHandlerMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, UserContentManagerK a) => MethodInfo UserContentManagerUnregisterScriptMessageHandlerMethodInfo a signature where-    overloadedMethod _ = userContentManagerUnregisterScriptMessageHandler--
− GI/WebKit2/Objects/UserContentManager.hs-boot 
@@ -1,20 +0,0 @@-module GI.WebKit2.Objects.UserContentManager where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype UserContentManager = UserContentManager (ForeignPtr UserContentManager)-instance GObject UserContentManager where-class GObject o => UserContentManagerK o-instance (GObject o, IsDescendantOf UserContentManager o) => UserContentManagerK o-data UserContentManagerScriptMessageReceivedSignalInfo-data UserContentManagerAddScriptMethodInfo-data UserContentManagerAddStyleSheetMethodInfo-data UserContentManagerRegisterScriptMessageHandlerMethodInfo-data UserContentManagerRemoveAllScriptsMethodInfo-data UserContentManagerRemoveAllStyleSheetsMethodInfo-data UserContentManagerUnregisterScriptMessageHandlerMethodInfo
− GI/WebKit2/Objects/UserMediaPermissionRequest.hs 
@@ -1,155 +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.WebKit2.Objects.UserMediaPermissionRequest-    ( ---- * Exported types-    UserMediaPermissionRequest(..)          ,-    UserMediaPermissionRequestK             ,-    toUserMediaPermissionRequest            ,-    noUserMediaPermissionRequest            ,--- -- * Properties--- ** IsForAudioDevice-    UserMediaPermissionRequestIsForAudioDevicePropertyInfo,-    getUserMediaPermissionRequestIsForAudioDevice,-    userMediaPermissionRequestIsForAudioDevice,----- ** IsForVideoDevice-    UserMediaPermissionRequestIsForVideoDevicePropertyInfo,-    getUserMediaPermissionRequestIsForVideoDevice,-    userMediaPermissionRequestIsForVideoDevice,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject--newtype UserMediaPermissionRequest = UserMediaPermissionRequest (ForeignPtr UserMediaPermissionRequest)-foreign import ccall "webkit_user_media_permission_request_get_type"-    c_webkit_user_media_permission_request_get_type :: IO GType--type instance ParentTypes UserMediaPermissionRequest = UserMediaPermissionRequestParentTypes-type UserMediaPermissionRequestParentTypes = '[GObject.Object, PermissionRequest]--instance GObject UserMediaPermissionRequest where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_user_media_permission_request_get_type-    --class GObject o => UserMediaPermissionRequestK o-instance (GObject o, IsDescendantOf UserMediaPermissionRequest o) => UserMediaPermissionRequestK o--toUserMediaPermissionRequest :: UserMediaPermissionRequestK o => o -> IO UserMediaPermissionRequest-toUserMediaPermissionRequest = unsafeCastTo UserMediaPermissionRequest--noUserMediaPermissionRequest :: Maybe UserMediaPermissionRequest-noUserMediaPermissionRequest = Nothing--type family ResolveUserMediaPermissionRequestMethod (t :: Symbol) (o :: *) :: * where-    ResolveUserMediaPermissionRequestMethod "allow" o = PermissionRequestAllowMethodInfo-    ResolveUserMediaPermissionRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveUserMediaPermissionRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveUserMediaPermissionRequestMethod "deny" o = PermissionRequestDenyMethodInfo-    ResolveUserMediaPermissionRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveUserMediaPermissionRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveUserMediaPermissionRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveUserMediaPermissionRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveUserMediaPermissionRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveUserMediaPermissionRequestMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveUserMediaPermissionRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveUserMediaPermissionRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveUserMediaPermissionRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveUserMediaPermissionRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveUserMediaPermissionRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveUserMediaPermissionRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveUserMediaPermissionRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveUserMediaPermissionRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveUserMediaPermissionRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveUserMediaPermissionRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveUserMediaPermissionRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveUserMediaPermissionRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveUserMediaPermissionRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveUserMediaPermissionRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveUserMediaPermissionRequestMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveUserMediaPermissionRequestMethod t UserMediaPermissionRequest, MethodInfo info UserMediaPermissionRequest p) => IsLabelProxy t (UserMediaPermissionRequest -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveUserMediaPermissionRequestMethod t UserMediaPermissionRequest, MethodInfo info UserMediaPermissionRequest p) => IsLabel t (UserMediaPermissionRequest -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "is-for-audio-device"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getUserMediaPermissionRequestIsForAudioDevice :: (MonadIO m, UserMediaPermissionRequestK o) => o -> m Bool-getUserMediaPermissionRequestIsForAudioDevice obj = liftIO $ getObjectPropertyBool obj "is-for-audio-device"--data UserMediaPermissionRequestIsForAudioDevicePropertyInfo-instance AttrInfo UserMediaPermissionRequestIsForAudioDevicePropertyInfo where-    type AttrAllowedOps UserMediaPermissionRequestIsForAudioDevicePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint UserMediaPermissionRequestIsForAudioDevicePropertyInfo = (~) ()-    type AttrBaseTypeConstraint UserMediaPermissionRequestIsForAudioDevicePropertyInfo = UserMediaPermissionRequestK-    type AttrGetType UserMediaPermissionRequestIsForAudioDevicePropertyInfo = Bool-    type AttrLabel UserMediaPermissionRequestIsForAudioDevicePropertyInfo = "is-for-audio-device"-    attrGet _ = getUserMediaPermissionRequestIsForAudioDevice-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "is-for-video-device"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getUserMediaPermissionRequestIsForVideoDevice :: (MonadIO m, UserMediaPermissionRequestK o) => o -> m Bool-getUserMediaPermissionRequestIsForVideoDevice obj = liftIO $ getObjectPropertyBool obj "is-for-video-device"--data UserMediaPermissionRequestIsForVideoDevicePropertyInfo-instance AttrInfo UserMediaPermissionRequestIsForVideoDevicePropertyInfo where-    type AttrAllowedOps UserMediaPermissionRequestIsForVideoDevicePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint UserMediaPermissionRequestIsForVideoDevicePropertyInfo = (~) ()-    type AttrBaseTypeConstraint UserMediaPermissionRequestIsForVideoDevicePropertyInfo = UserMediaPermissionRequestK-    type AttrGetType UserMediaPermissionRequestIsForVideoDevicePropertyInfo = Bool-    type AttrLabel UserMediaPermissionRequestIsForVideoDevicePropertyInfo = "is-for-video-device"-    attrGet _ = getUserMediaPermissionRequestIsForVideoDevice-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined--type instance AttributeList UserMediaPermissionRequest = UserMediaPermissionRequestAttributeList-type UserMediaPermissionRequestAttributeList = ('[ '("isForAudioDevice", UserMediaPermissionRequestIsForAudioDevicePropertyInfo), '("isForVideoDevice", UserMediaPermissionRequestIsForVideoDevicePropertyInfo)] :: [(Symbol, *)])--userMediaPermissionRequestIsForAudioDevice :: AttrLabelProxy "isForAudioDevice"-userMediaPermissionRequestIsForAudioDevice = AttrLabelProxy--userMediaPermissionRequestIsForVideoDevice :: AttrLabelProxy "isForVideoDevice"-userMediaPermissionRequestIsForVideoDevice = AttrLabelProxy--type instance SignalList UserMediaPermissionRequest = UserMediaPermissionRequestSignalList-type UserMediaPermissionRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--
− GI/WebKit2/Objects/UserMediaPermissionRequest.hs-boot 
@@ -1,15 +0,0 @@-module GI.WebKit2.Objects.UserMediaPermissionRequest where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype UserMediaPermissionRequest = UserMediaPermissionRequest (ForeignPtr UserMediaPermissionRequest)-instance GObject UserMediaPermissionRequest where-class GObject o => UserMediaPermissionRequestK o-instance (GObject o, IsDescendantOf UserMediaPermissionRequest o) => UserMediaPermissionRequestK o-data UserMediaPermissionRequestIsForAudioDevicePropertyInfo-data UserMediaPermissionRequestIsForVideoDevicePropertyInfo
− GI/WebKit2/Objects/WebContext.hs 
@@ -1,1479 +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.WebKit2.Objects.WebContext-    ( ---- * Exported types-    WebContext(..)                          ,-    WebContextK                             ,-    toWebContext                            ,-    noWebContext                            ,--- -- * Methods--- ** webContextAllowTlsCertificateForHost-    WebContextAllowTlsCertificateForHostMethodInfo,-    webContextAllowTlsCertificateForHost    ,----- ** webContextClearCache-    WebContextClearCacheMethodInfo          ,-    webContextClearCache                    ,----- ** webContextDownloadUri-    WebContextDownloadUriMethodInfo         ,-    webContextDownloadUri                   ,----- ** webContextGetCacheModel-    WebContextGetCacheModelMethodInfo       ,-    webContextGetCacheModel                 ,----- ** webContextGetCookieManager-    WebContextGetCookieManagerMethodInfo    ,-    webContextGetCookieManager              ,----- ** webContextGetDefault-    webContextGetDefault                    ,----- ** webContextGetFaviconDatabase-    WebContextGetFaviconDatabaseMethodInfo  ,-    webContextGetFaviconDatabase            ,----- ** webContextGetFaviconDatabaseDirectory-    WebContextGetFaviconDatabaseDirectoryMethodInfo,-    webContextGetFaviconDatabaseDirectory   ,----- ** webContextGetPlugins-    WebContextGetPluginsMethodInfo          ,-    webContextGetPlugins                    ,----- ** webContextGetPluginsFinish-    WebContextGetPluginsFinishMethodInfo    ,-    webContextGetPluginsFinish              ,----- ** webContextGetProcessModel-    WebContextGetProcessModelMethodInfo     ,-    webContextGetProcessModel               ,----- ** webContextGetSecurityManager-    WebContextGetSecurityManagerMethodInfo  ,-    webContextGetSecurityManager            ,----- ** webContextGetSpellCheckingEnabled-    WebContextGetSpellCheckingEnabledMethodInfo,-    webContextGetSpellCheckingEnabled       ,----- ** webContextGetSpellCheckingLanguages-    WebContextGetSpellCheckingLanguagesMethodInfo,-    webContextGetSpellCheckingLanguages     ,----- ** webContextGetTlsErrorsPolicy-    WebContextGetTlsErrorsPolicyMethodInfo  ,-    webContextGetTlsErrorsPolicy            ,----- ** webContextGetWebProcessCountLimit-    WebContextGetWebProcessCountLimitMethodInfo,-    webContextGetWebProcessCountLimit       ,----- ** webContextGetWebsiteDataManager-    WebContextGetWebsiteDataManagerMethodInfo,-    webContextGetWebsiteDataManager         ,----- ** webContextNew-    webContextNew                           ,----- ** webContextNewWithWebsiteDataManager-    webContextNewWithWebsiteDataManager     ,----- ** webContextPrefetchDns-    WebContextPrefetchDnsMethodInfo         ,-    webContextPrefetchDns                   ,----- ** webContextRegisterUriScheme-    WebContextRegisterUriSchemeMethodInfo   ,-    webContextRegisterUriScheme             ,----- ** webContextSetAdditionalPluginsDirectory-    WebContextSetAdditionalPluginsDirectoryMethodInfo,-    webContextSetAdditionalPluginsDirectory ,----- ** webContextSetCacheModel-    WebContextSetCacheModelMethodInfo       ,-    webContextSetCacheModel                 ,----- ** webContextSetDiskCacheDirectory-    WebContextSetDiskCacheDirectoryMethodInfo,-    webContextSetDiskCacheDirectory         ,----- ** webContextSetFaviconDatabaseDirectory-    WebContextSetFaviconDatabaseDirectoryMethodInfo,-    webContextSetFaviconDatabaseDirectory   ,----- ** webContextSetPreferredLanguages-    WebContextSetPreferredLanguagesMethodInfo,-    webContextSetPreferredLanguages         ,----- ** webContextSetProcessModel-    WebContextSetProcessModelMethodInfo     ,-    webContextSetProcessModel               ,----- ** webContextSetSpellCheckingEnabled-    WebContextSetSpellCheckingEnabledMethodInfo,-    webContextSetSpellCheckingEnabled       ,----- ** webContextSetSpellCheckingLanguages-    WebContextSetSpellCheckingLanguagesMethodInfo,-    webContextSetSpellCheckingLanguages     ,----- ** webContextSetTlsErrorsPolicy-    WebContextSetTlsErrorsPolicyMethodInfo  ,-    webContextSetTlsErrorsPolicy            ,----- ** webContextSetWebExtensionsDirectory-    WebContextSetWebExtensionsDirectoryMethodInfo,-    webContextSetWebExtensionsDirectory     ,----- ** webContextSetWebExtensionsInitializationUserData-    WebContextSetWebExtensionsInitializationUserDataMethodInfo,-    webContextSetWebExtensionsInitializationUserData,----- ** webContextSetWebProcessCountLimit-    WebContextSetWebProcessCountLimitMethodInfo,-    webContextSetWebProcessCountLimit       ,----- -- * Properties--- ** LocalStorageDirectory-    WebContextLocalStorageDirectoryPropertyInfo,-    constructWebContextLocalStorageDirectory,-    getWebContextLocalStorageDirectory      ,-    webContextLocalStorageDirectory         ,----- ** WebsiteDataManager-    WebContextWebsiteDataManagerPropertyInfo,-    constructWebContextWebsiteDataManager   ,-    getWebContextWebsiteDataManager         ,-    webContextWebsiteDataManager            ,----- -- * Signals--- ** DownloadStarted-    WebContextDownloadStartedCallback       ,-    WebContextDownloadStartedCallbackC      ,-    WebContextDownloadStartedSignalInfo     ,-    afterWebContextDownloadStarted          ,-    mkWebContextDownloadStartedCallback     ,-    noWebContextDownloadStartedCallback     ,-    onWebContextDownloadStarted             ,-    webContextDownloadStartedCallbackWrapper,-    webContextDownloadStartedClosure        ,----- ** InitializeWebExtensions-    WebContextInitializeWebExtensionsCallback,-    WebContextInitializeWebExtensionsCallbackC,-    WebContextInitializeWebExtensionsSignalInfo,-    afterWebContextInitializeWebExtensions  ,-    mkWebContextInitializeWebExtensionsCallback,-    noWebContextInitializeWebExtensionsCallback,-    onWebContextInitializeWebExtensions     ,-    webContextInitializeWebExtensionsCallbackWrapper,-    webContextInitializeWebExtensionsClosure,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject-import qualified GI.Gio as Gio--newtype WebContext = WebContext (ForeignPtr WebContext)-foreign import ccall "webkit_web_context_get_type"-    c_webkit_web_context_get_type :: IO GType--type instance ParentTypes WebContext = WebContextParentTypes-type WebContextParentTypes = '[GObject.Object]--instance GObject WebContext where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_web_context_get_type-    --class GObject o => WebContextK o-instance (GObject o, IsDescendantOf WebContext o) => WebContextK o--toWebContext :: WebContextK o => o -> IO WebContext-toWebContext = unsafeCastTo WebContext--noWebContext :: Maybe WebContext-noWebContext = Nothing--type family ResolveWebContextMethod (t :: Symbol) (o :: *) :: * where-    ResolveWebContextMethod "allowTlsCertificateForHost" o = WebContextAllowTlsCertificateForHostMethodInfo-    ResolveWebContextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveWebContextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveWebContextMethod "clearCache" o = WebContextClearCacheMethodInfo-    ResolveWebContextMethod "downloadUri" o = WebContextDownloadUriMethodInfo-    ResolveWebContextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveWebContextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveWebContextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveWebContextMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveWebContextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveWebContextMethod "prefetchDns" o = WebContextPrefetchDnsMethodInfo-    ResolveWebContextMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveWebContextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveWebContextMethod "registerUriScheme" o = WebContextRegisterUriSchemeMethodInfo-    ResolveWebContextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveWebContextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveWebContextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveWebContextMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveWebContextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveWebContextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveWebContextMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveWebContextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveWebContextMethod "getCacheModel" o = WebContextGetCacheModelMethodInfo-    ResolveWebContextMethod "getCookieManager" o = WebContextGetCookieManagerMethodInfo-    ResolveWebContextMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveWebContextMethod "getFaviconDatabase" o = WebContextGetFaviconDatabaseMethodInfo-    ResolveWebContextMethod "getFaviconDatabaseDirectory" o = WebContextGetFaviconDatabaseDirectoryMethodInfo-    ResolveWebContextMethod "getPlugins" o = WebContextGetPluginsMethodInfo-    ResolveWebContextMethod "getPluginsFinish" o = WebContextGetPluginsFinishMethodInfo-    ResolveWebContextMethod "getProcessModel" o = WebContextGetProcessModelMethodInfo-    ResolveWebContextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveWebContextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveWebContextMethod "getSecurityManager" o = WebContextGetSecurityManagerMethodInfo-    ResolveWebContextMethod "getSpellCheckingEnabled" o = WebContextGetSpellCheckingEnabledMethodInfo-    ResolveWebContextMethod "getSpellCheckingLanguages" o = WebContextGetSpellCheckingLanguagesMethodInfo-    ResolveWebContextMethod "getTlsErrorsPolicy" o = WebContextGetTlsErrorsPolicyMethodInfo-    ResolveWebContextMethod "getWebProcessCountLimit" o = WebContextGetWebProcessCountLimitMethodInfo-    ResolveWebContextMethod "getWebsiteDataManager" o = WebContextGetWebsiteDataManagerMethodInfo-    ResolveWebContextMethod "setAdditionalPluginsDirectory" o = WebContextSetAdditionalPluginsDirectoryMethodInfo-    ResolveWebContextMethod "setCacheModel" o = WebContextSetCacheModelMethodInfo-    ResolveWebContextMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveWebContextMethod "setDiskCacheDirectory" o = WebContextSetDiskCacheDirectoryMethodInfo-    ResolveWebContextMethod "setFaviconDatabaseDirectory" o = WebContextSetFaviconDatabaseDirectoryMethodInfo-    ResolveWebContextMethod "setPreferredLanguages" o = WebContextSetPreferredLanguagesMethodInfo-    ResolveWebContextMethod "setProcessModel" o = WebContextSetProcessModelMethodInfo-    ResolveWebContextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveWebContextMethod "setSpellCheckingEnabled" o = WebContextSetSpellCheckingEnabledMethodInfo-    ResolveWebContextMethod "setSpellCheckingLanguages" o = WebContextSetSpellCheckingLanguagesMethodInfo-    ResolveWebContextMethod "setTlsErrorsPolicy" o = WebContextSetTlsErrorsPolicyMethodInfo-    ResolveWebContextMethod "setWebExtensionsDirectory" o = WebContextSetWebExtensionsDirectoryMethodInfo-    ResolveWebContextMethod "setWebExtensionsInitializationUserData" o = WebContextSetWebExtensionsInitializationUserDataMethodInfo-    ResolveWebContextMethod "setWebProcessCountLimit" o = WebContextSetWebProcessCountLimitMethodInfo-    ResolveWebContextMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveWebContextMethod t WebContext, MethodInfo info WebContext p) => IsLabelProxy t (WebContext -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveWebContextMethod t WebContext, MethodInfo info WebContext p) => IsLabel t (WebContext -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal WebContext::download-started-type WebContextDownloadStartedCallback =-    Download ->-    IO ()--noWebContextDownloadStartedCallback :: Maybe WebContextDownloadStartedCallback-noWebContextDownloadStartedCallback = Nothing--type WebContextDownloadStartedCallbackC =-    Ptr () ->                               -- object-    Ptr Download ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebContextDownloadStartedCallback :: WebContextDownloadStartedCallbackC -> IO (FunPtr WebContextDownloadStartedCallbackC)--webContextDownloadStartedClosure :: WebContextDownloadStartedCallback -> IO Closure-webContextDownloadStartedClosure cb = newCClosure =<< mkWebContextDownloadStartedCallback wrapped-    where wrapped = webContextDownloadStartedCallbackWrapper cb--webContextDownloadStartedCallbackWrapper ::-    WebContextDownloadStartedCallback ->-    Ptr () ->-    Ptr Download ->-    Ptr () ->-    IO ()-webContextDownloadStartedCallbackWrapper _cb _ download _ = do-    download' <- (newObject Download) download-    _cb  download'--onWebContextDownloadStarted :: (GObject a, MonadIO m) => a -> WebContextDownloadStartedCallback -> m SignalHandlerId-onWebContextDownloadStarted obj cb = liftIO $ connectWebContextDownloadStarted obj cb SignalConnectBefore-afterWebContextDownloadStarted :: (GObject a, MonadIO m) => a -> WebContextDownloadStartedCallback -> m SignalHandlerId-afterWebContextDownloadStarted obj cb = connectWebContextDownloadStarted obj cb SignalConnectAfter--connectWebContextDownloadStarted :: (GObject a, MonadIO m) =>-                                    a -> WebContextDownloadStartedCallback -> SignalConnectMode -> m SignalHandlerId-connectWebContextDownloadStarted obj cb after = liftIO $ do-    cb' <- mkWebContextDownloadStartedCallback (webContextDownloadStartedCallbackWrapper cb)-    connectSignalFunPtr obj "download-started" cb' after---- signal WebContext::initialize-web-extensions-type WebContextInitializeWebExtensionsCallback =-    IO ()--noWebContextInitializeWebExtensionsCallback :: Maybe WebContextInitializeWebExtensionsCallback-noWebContextInitializeWebExtensionsCallback = Nothing--type WebContextInitializeWebExtensionsCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebContextInitializeWebExtensionsCallback :: WebContextInitializeWebExtensionsCallbackC -> IO (FunPtr WebContextInitializeWebExtensionsCallbackC)--webContextInitializeWebExtensionsClosure :: WebContextInitializeWebExtensionsCallback -> IO Closure-webContextInitializeWebExtensionsClosure cb = newCClosure =<< mkWebContextInitializeWebExtensionsCallback wrapped-    where wrapped = webContextInitializeWebExtensionsCallbackWrapper cb--webContextInitializeWebExtensionsCallbackWrapper ::-    WebContextInitializeWebExtensionsCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-webContextInitializeWebExtensionsCallbackWrapper _cb _ _ = do-    _cb --onWebContextInitializeWebExtensions :: (GObject a, MonadIO m) => a -> WebContextInitializeWebExtensionsCallback -> m SignalHandlerId-onWebContextInitializeWebExtensions obj cb = liftIO $ connectWebContextInitializeWebExtensions obj cb SignalConnectBefore-afterWebContextInitializeWebExtensions :: (GObject a, MonadIO m) => a -> WebContextInitializeWebExtensionsCallback -> m SignalHandlerId-afterWebContextInitializeWebExtensions obj cb = connectWebContextInitializeWebExtensions obj cb SignalConnectAfter--connectWebContextInitializeWebExtensions :: (GObject a, MonadIO m) =>-                                            a -> WebContextInitializeWebExtensionsCallback -> SignalConnectMode -> m SignalHandlerId-connectWebContextInitializeWebExtensions obj cb after = liftIO $ do-    cb' <- mkWebContextInitializeWebExtensionsCallback (webContextInitializeWebExtensionsCallbackWrapper cb)-    connectSignalFunPtr obj "initialize-web-extensions" cb' after---- VVV Prop "local-storage-directory"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getWebContextLocalStorageDirectory :: (MonadIO m, WebContextK o) => o -> m (Maybe T.Text)-getWebContextLocalStorageDirectory obj = liftIO $ getObjectPropertyString obj "local-storage-directory"--constructWebContextLocalStorageDirectory :: T.Text -> IO ([Char], GValue)-constructWebContextLocalStorageDirectory val = constructObjectPropertyString "local-storage-directory" (Just val)--data WebContextLocalStorageDirectoryPropertyInfo-instance AttrInfo WebContextLocalStorageDirectoryPropertyInfo where-    type AttrAllowedOps WebContextLocalStorageDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WebContextLocalStorageDirectoryPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint WebContextLocalStorageDirectoryPropertyInfo = WebContextK-    type AttrGetType WebContextLocalStorageDirectoryPropertyInfo = (Maybe T.Text)-    type AttrLabel WebContextLocalStorageDirectoryPropertyInfo = "local-storage-directory"-    attrGet _ = getWebContextLocalStorageDirectory-    attrSet _ = undefined-    attrConstruct _ = constructWebContextLocalStorageDirectory-    attrClear _ = undefined---- VVV Prop "website-data-manager"-   -- Type: TInterface "WebKit2" "WebsiteDataManager"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getWebContextWebsiteDataManager :: (MonadIO m, WebContextK o) => o -> m WebsiteDataManager-getWebContextWebsiteDataManager obj = liftIO $ checkUnexpectedNothing "getWebContextWebsiteDataManager" $ getObjectPropertyObject obj "website-data-manager" WebsiteDataManager--constructWebContextWebsiteDataManager :: (WebsiteDataManagerK a) => a -> IO ([Char], GValue)-constructWebContextWebsiteDataManager val = constructObjectPropertyObject "website-data-manager" (Just val)--data WebContextWebsiteDataManagerPropertyInfo-instance AttrInfo WebContextWebsiteDataManagerPropertyInfo where-    type AttrAllowedOps WebContextWebsiteDataManagerPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WebContextWebsiteDataManagerPropertyInfo = WebsiteDataManagerK-    type AttrBaseTypeConstraint WebContextWebsiteDataManagerPropertyInfo = WebContextK-    type AttrGetType WebContextWebsiteDataManagerPropertyInfo = WebsiteDataManager-    type AttrLabel WebContextWebsiteDataManagerPropertyInfo = "website-data-manager"-    attrGet _ = getWebContextWebsiteDataManager-    attrSet _ = undefined-    attrConstruct _ = constructWebContextWebsiteDataManager-    attrClear _ = undefined--type instance AttributeList WebContext = WebContextAttributeList-type WebContextAttributeList = ('[ '("localStorageDirectory", WebContextLocalStorageDirectoryPropertyInfo), '("websiteDataManager", WebContextWebsiteDataManagerPropertyInfo)] :: [(Symbol, *)])--webContextLocalStorageDirectory :: AttrLabelProxy "localStorageDirectory"-webContextLocalStorageDirectory = AttrLabelProxy--webContextWebsiteDataManager :: AttrLabelProxy "websiteDataManager"-webContextWebsiteDataManager = AttrLabelProxy--data WebContextDownloadStartedSignalInfo-instance SignalInfo WebContextDownloadStartedSignalInfo where-    type HaskellCallbackType WebContextDownloadStartedSignalInfo = WebContextDownloadStartedCallback-    connectSignal _ = connectWebContextDownloadStarted--data WebContextInitializeWebExtensionsSignalInfo-instance SignalInfo WebContextInitializeWebExtensionsSignalInfo where-    type HaskellCallbackType WebContextInitializeWebExtensionsSignalInfo = WebContextInitializeWebExtensionsCallback-    connectSignal _ = connectWebContextInitializeWebExtensions--type instance SignalList WebContext = WebContextSignalList-type WebContextSignalList = ('[ '("downloadStarted", WebContextDownloadStartedSignalInfo), '("initializeWebExtensions", WebContextInitializeWebExtensionsSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method WebContext::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "WebKit2" "WebContext")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_new" webkit_web_context_new :: -    IO (Ptr WebContext)---webContextNew ::-    (MonadIO m) =>-    m WebContext                            -- result-webContextNew  = liftIO $ do-    result <- webkit_web_context_new-    checkUnexpectedReturnNULL "webkit_web_context_new" result-    result' <- (wrapObject WebContext) result-    return result'---- method WebContext::new_with_website_data_manager--- method type : Constructor--- Args : [Arg {argCName = "manager", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "WebContext")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_new_with_website_data_manager" webkit_web_context_new_with_website_data_manager :: -    Ptr WebsiteDataManager ->               -- manager : TInterface "WebKit2" "WebsiteDataManager"-    IO (Ptr WebContext)---webContextNewWithWebsiteDataManager ::-    (MonadIO m, WebsiteDataManagerK a) =>-    a                                       -- manager-    -> m WebContext                         -- result-webContextNewWithWebsiteDataManager manager = liftIO $ do-    let manager' = unsafeManagedPtrCastPtr manager-    result <- webkit_web_context_new_with_website_data_manager manager'-    checkUnexpectedReturnNULL "webkit_web_context_new_with_website_data_manager" result-    result' <- (wrapObject WebContext) result-    touchManagedPtr manager-    return result'---- method WebContext::allow_tls_certificate_for_host--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_allow_tls_certificate_for_host" webkit_web_context_allow_tls_certificate_for_host :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    Ptr Gio.TlsCertificate ->               -- certificate : TInterface "Gio" "TlsCertificate"-    CString ->                              -- host : TBasicType TUTF8-    IO ()---webContextAllowTlsCertificateForHost ::-    (MonadIO m, WebContextK a, Gio.TlsCertificateK b) =>-    a                                       -- _obj-    -> b                                    -- certificate-    -> T.Text                               -- host-    -> m ()                                 -- result-webContextAllowTlsCertificateForHost _obj certificate host = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let certificate' = unsafeManagedPtrCastPtr certificate-    host' <- textToCString host-    webkit_web_context_allow_tls_certificate_for_host _obj' certificate' host'-    touchManagedPtr _obj-    touchManagedPtr certificate-    freeMem host'-    return ()--data WebContextAllowTlsCertificateForHostMethodInfo-instance (signature ~ (b -> T.Text -> m ()), MonadIO m, WebContextK a, Gio.TlsCertificateK b) => MethodInfo WebContextAllowTlsCertificateForHostMethodInfo a signature where-    overloadedMethod _ = webContextAllowTlsCertificateForHost---- method WebContext::clear_cache--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_clear_cache" webkit_web_context_clear_cache :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    IO ()---webContextClearCache ::-    (MonadIO m, WebContextK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-webContextClearCache _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_web_context_clear_cache _obj'-    touchManagedPtr _obj-    return ()--data WebContextClearCacheMethodInfo-instance (signature ~ (m ()), MonadIO m, WebContextK a) => MethodInfo WebContextClearCacheMethodInfo a signature where-    overloadedMethod _ = webContextClearCache---- method WebContext::download_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "Download")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_download_uri" webkit_web_context_download_uri :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    CString ->                              -- uri : TBasicType TUTF8-    IO (Ptr Download)---webContextDownloadUri ::-    (MonadIO m, WebContextK a) =>-    a                                       -- _obj-    -> T.Text                               -- uri-    -> m Download                           -- result-webContextDownloadUri _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    uri' <- textToCString uri-    result <- webkit_web_context_download_uri _obj' uri'-    checkUnexpectedReturnNULL "webkit_web_context_download_uri" result-    result' <- (wrapObject Download) result-    touchManagedPtr _obj-    freeMem uri'-    return result'--data WebContextDownloadUriMethodInfo-instance (signature ~ (T.Text -> m Download), MonadIO m, WebContextK a) => MethodInfo WebContextDownloadUriMethodInfo a signature where-    overloadedMethod _ = webContextDownloadUri---- method WebContext::get_cache_model--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "CacheModel")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_get_cache_model" webkit_web_context_get_cache_model :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    IO CUInt---webContextGetCacheModel ::-    (MonadIO m, WebContextK a) =>-    a                                       -- _obj-    -> m CacheModel                         -- result-webContextGetCacheModel _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_context_get_cache_model _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data WebContextGetCacheModelMethodInfo-instance (signature ~ (m CacheModel), MonadIO m, WebContextK a) => MethodInfo WebContextGetCacheModelMethodInfo a signature where-    overloadedMethod _ = webContextGetCacheModel---- method WebContext::get_cookie_manager--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "CookieManager")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_get_cookie_manager" webkit_web_context_get_cookie_manager :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    IO (Ptr CookieManager)---webContextGetCookieManager ::-    (MonadIO m, WebContextK a) =>-    a                                       -- _obj-    -> m CookieManager                      -- result-webContextGetCookieManager _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_context_get_cookie_manager _obj'-    checkUnexpectedReturnNULL "webkit_web_context_get_cookie_manager" result-    result' <- (newObject CookieManager) result-    touchManagedPtr _obj-    return result'--data WebContextGetCookieManagerMethodInfo-instance (signature ~ (m CookieManager), MonadIO m, WebContextK a) => MethodInfo WebContextGetCookieManagerMethodInfo a signature where-    overloadedMethod _ = webContextGetCookieManager---- method WebContext::get_favicon_database--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "FaviconDatabase")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_get_favicon_database" webkit_web_context_get_favicon_database :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    IO (Ptr FaviconDatabase)---webContextGetFaviconDatabase ::-    (MonadIO m, WebContextK a) =>-    a                                       -- _obj-    -> m FaviconDatabase                    -- result-webContextGetFaviconDatabase _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_context_get_favicon_database _obj'-    checkUnexpectedReturnNULL "webkit_web_context_get_favicon_database" result-    result' <- (newObject FaviconDatabase) result-    touchManagedPtr _obj-    return result'--data WebContextGetFaviconDatabaseMethodInfo-instance (signature ~ (m FaviconDatabase), MonadIO m, WebContextK a) => MethodInfo WebContextGetFaviconDatabaseMethodInfo a signature where-    overloadedMethod _ = webContextGetFaviconDatabase---- method WebContext::get_favicon_database_directory--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_get_favicon_database_directory" webkit_web_context_get_favicon_database_directory :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    IO CString---webContextGetFaviconDatabaseDirectory ::-    (MonadIO m, WebContextK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-webContextGetFaviconDatabaseDirectory _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_context_get_favicon_database_directory _obj'-    checkUnexpectedReturnNULL "webkit_web_context_get_favicon_database_directory" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data WebContextGetFaviconDatabaseDirectoryMethodInfo-instance (signature ~ (m T.Text), MonadIO m, WebContextK a) => MethodInfo WebContextGetFaviconDatabaseDirectoryMethodInfo a signature where-    overloadedMethod _ = webContextGetFaviconDatabaseDirectory---- method WebContext::get_plugins--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_get_plugins" webkit_web_context_get_plugins :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---webContextGetPlugins ::-    (MonadIO m, WebContextK a, Gio.CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> Maybe (Gio.AsyncReadyCallback)       -- callback-    -> m ()                                 -- result-webContextGetPlugins _obj cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    webkit_web_context_get_plugins _obj' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data WebContextGetPluginsMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, WebContextK a, Gio.CancellableK b) => MethodInfo WebContextGetPluginsMethodInfo a signature where-    overloadedMethod _ = webContextGetPlugins---- method WebContext::get_plugins_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "WebKit2" "Plugin"))--- throws : True--- Skip return : False--foreign import ccall "webkit_web_context_get_plugins_finish" webkit_web_context_get_plugins_finish :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr (GList (Ptr Plugin)))---webContextGetPluginsFinish ::-    (MonadIO m, WebContextK a, Gio.AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m [Plugin]                           -- result-webContextGetPluginsFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ webkit_web_context_get_plugins_finish _obj' result_'-        result' <- unpackGList result-        result'' <- mapM (wrapObject Plugin) result'-        g_list_free result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result''-     ) (do-        return ()-     )--data WebContextGetPluginsFinishMethodInfo-instance (signature ~ (b -> m [Plugin]), MonadIO m, WebContextK a, Gio.AsyncResultK b) => MethodInfo WebContextGetPluginsFinishMethodInfo a signature where-    overloadedMethod _ = webContextGetPluginsFinish---- method WebContext::get_process_model--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "ProcessModel")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_get_process_model" webkit_web_context_get_process_model :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    IO CUInt---webContextGetProcessModel ::-    (MonadIO m, WebContextK a) =>-    a                                       -- _obj-    -> m ProcessModel                       -- result-webContextGetProcessModel _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_context_get_process_model _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data WebContextGetProcessModelMethodInfo-instance (signature ~ (m ProcessModel), MonadIO m, WebContextK a) => MethodInfo WebContextGetProcessModelMethodInfo a signature where-    overloadedMethod _ = webContextGetProcessModel---- method WebContext::get_security_manager--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "SecurityManager")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_get_security_manager" webkit_web_context_get_security_manager :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    IO (Ptr SecurityManager)---webContextGetSecurityManager ::-    (MonadIO m, WebContextK a) =>-    a                                       -- _obj-    -> m SecurityManager                    -- result-webContextGetSecurityManager _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_context_get_security_manager _obj'-    checkUnexpectedReturnNULL "webkit_web_context_get_security_manager" result-    result' <- (newObject SecurityManager) result-    touchManagedPtr _obj-    return result'--data WebContextGetSecurityManagerMethodInfo-instance (signature ~ (m SecurityManager), MonadIO m, WebContextK a) => MethodInfo WebContextGetSecurityManagerMethodInfo a signature where-    overloadedMethod _ = webContextGetSecurityManager---- method WebContext::get_spell_checking_enabled--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_get_spell_checking_enabled" webkit_web_context_get_spell_checking_enabled :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    IO CInt---webContextGetSpellCheckingEnabled ::-    (MonadIO m, WebContextK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-webContextGetSpellCheckingEnabled _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_context_get_spell_checking_enabled _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WebContextGetSpellCheckingEnabledMethodInfo-instance (signature ~ (m Bool), MonadIO m, WebContextK a) => MethodInfo WebContextGetSpellCheckingEnabledMethodInfo a signature where-    overloadedMethod _ = webContextGetSpellCheckingEnabled---- method WebContext::get_spell_checking_languages--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_get_spell_checking_languages" webkit_web_context_get_spell_checking_languages :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    IO (Ptr CString)---webContextGetSpellCheckingLanguages ::-    (MonadIO m, WebContextK a) =>-    a                                       -- _obj-    -> m [T.Text]                           -- result-webContextGetSpellCheckingLanguages _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_context_get_spell_checking_languages _obj'-    checkUnexpectedReturnNULL "webkit_web_context_get_spell_checking_languages" result-    result' <- unpackZeroTerminatedUTF8CArray result-    touchManagedPtr _obj-    return result'--data WebContextGetSpellCheckingLanguagesMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, WebContextK a) => MethodInfo WebContextGetSpellCheckingLanguagesMethodInfo a signature where-    overloadedMethod _ = webContextGetSpellCheckingLanguages---- method WebContext::get_tls_errors_policy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "TLSErrorsPolicy")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_get_tls_errors_policy" webkit_web_context_get_tls_errors_policy :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    IO CUInt---webContextGetTlsErrorsPolicy ::-    (MonadIO m, WebContextK a) =>-    a                                       -- _obj-    -> m TLSErrorsPolicy                    -- result-webContextGetTlsErrorsPolicy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_context_get_tls_errors_policy _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data WebContextGetTlsErrorsPolicyMethodInfo-instance (signature ~ (m TLSErrorsPolicy), MonadIO m, WebContextK a) => MethodInfo WebContextGetTlsErrorsPolicyMethodInfo a signature where-    overloadedMethod _ = webContextGetTlsErrorsPolicy---- method WebContext::get_web_process_count_limit--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_get_web_process_count_limit" webkit_web_context_get_web_process_count_limit :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    IO Word32---webContextGetWebProcessCountLimit ::-    (MonadIO m, WebContextK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-webContextGetWebProcessCountLimit _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_context_get_web_process_count_limit _obj'-    touchManagedPtr _obj-    return result--data WebContextGetWebProcessCountLimitMethodInfo-instance (signature ~ (m Word32), MonadIO m, WebContextK a) => MethodInfo WebContextGetWebProcessCountLimitMethodInfo a signature where-    overloadedMethod _ = webContextGetWebProcessCountLimit---- method WebContext::get_website_data_manager--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "WebsiteDataManager")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_get_website_data_manager" webkit_web_context_get_website_data_manager :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    IO (Ptr WebsiteDataManager)---webContextGetWebsiteDataManager ::-    (MonadIO m, WebContextK a) =>-    a                                       -- _obj-    -> m WebsiteDataManager                 -- result-webContextGetWebsiteDataManager _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_context_get_website_data_manager _obj'-    checkUnexpectedReturnNULL "webkit_web_context_get_website_data_manager" result-    result' <- (newObject WebsiteDataManager) result-    touchManagedPtr _obj-    return result'--data WebContextGetWebsiteDataManagerMethodInfo-instance (signature ~ (m WebsiteDataManager), MonadIO m, WebContextK a) => MethodInfo WebContextGetWebsiteDataManagerMethodInfo a signature where-    overloadedMethod _ = webContextGetWebsiteDataManager---- method WebContext::prefetch_dns--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_prefetch_dns" webkit_web_context_prefetch_dns :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    CString ->                              -- hostname : TBasicType TUTF8-    IO ()---webContextPrefetchDns ::-    (MonadIO m, WebContextK a) =>-    a                                       -- _obj-    -> T.Text                               -- hostname-    -> m ()                                 -- result-webContextPrefetchDns _obj hostname = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    hostname' <- textToCString hostname-    webkit_web_context_prefetch_dns _obj' hostname'-    touchManagedPtr _obj-    freeMem hostname'-    return ()--data WebContextPrefetchDnsMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextPrefetchDnsMethodInfo a signature where-    overloadedMethod _ = webContextPrefetchDns---- method WebContext::register_uri_scheme--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "WebKit2" "URISchemeRequestCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_register_uri_scheme" webkit_web_context_register_uri_scheme :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    CString ->                              -- scheme : TBasicType TUTF8-    FunPtr URISchemeRequestCallbackC ->     -- callback : TInterface "WebKit2" "URISchemeRequestCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- user_data_destroy_func : TInterface "GLib" "DestroyNotify"-    IO ()---webContextRegisterUriScheme ::-    (MonadIO m, WebContextK a) =>-    a                                       -- _obj-    -> T.Text                               -- scheme-    -> URISchemeRequestCallback             -- callback-    -> m ()                                 -- result-webContextRegisterUriScheme _obj scheme callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    scheme' <- textToCString scheme-    callback' <- mkURISchemeRequestCallback (uRISchemeRequestCallbackWrapper Nothing callback)-    let userData = castFunPtrToPtr callback'-    let userDataDestroyFunc = safeFreeFunPtrPtr-    webkit_web_context_register_uri_scheme _obj' scheme' callback' userData userDataDestroyFunc-    touchManagedPtr _obj-    freeMem scheme'-    return ()--data WebContextRegisterUriSchemeMethodInfo-instance (signature ~ (T.Text -> URISchemeRequestCallback -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextRegisterUriSchemeMethodInfo a signature where-    overloadedMethod _ = webContextRegisterUriScheme---- method WebContext::set_additional_plugins_directory--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_set_additional_plugins_directory" webkit_web_context_set_additional_plugins_directory :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    CString ->                              -- directory : TBasicType TUTF8-    IO ()---webContextSetAdditionalPluginsDirectory ::-    (MonadIO m, WebContextK a) =>-    a                                       -- _obj-    -> T.Text                               -- directory-    -> m ()                                 -- result-webContextSetAdditionalPluginsDirectory _obj directory = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    directory' <- textToCString directory-    webkit_web_context_set_additional_plugins_directory _obj' directory'-    touchManagedPtr _obj-    freeMem directory'-    return ()--data WebContextSetAdditionalPluginsDirectoryMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetAdditionalPluginsDirectoryMethodInfo a signature where-    overloadedMethod _ = webContextSetAdditionalPluginsDirectory---- method WebContext::set_cache_model--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cache_model", argType = TInterface "WebKit2" "CacheModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_set_cache_model" webkit_web_context_set_cache_model :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    CUInt ->                                -- cache_model : TInterface "WebKit2" "CacheModel"-    IO ()---webContextSetCacheModel ::-    (MonadIO m, WebContextK a) =>-    a                                       -- _obj-    -> CacheModel                           -- cacheModel-    -> m ()                                 -- result-webContextSetCacheModel _obj cacheModel = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let cacheModel' = (fromIntegral . fromEnum) cacheModel-    webkit_web_context_set_cache_model _obj' cacheModel'-    touchManagedPtr _obj-    return ()--data WebContextSetCacheModelMethodInfo-instance (signature ~ (CacheModel -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetCacheModelMethodInfo a signature where-    overloadedMethod _ = webContextSetCacheModel---- method WebContext::set_disk_cache_directory--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_set_disk_cache_directory" webkit_web_context_set_disk_cache_directory :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    CString ->                              -- directory : TBasicType TUTF8-    IO ()--{-# DEPRECATED webContextSetDiskCacheDirectory ["(Since version 2.10.)","Use webkit_web_context_new_with_website_data_manager() instead."]#-}-webContextSetDiskCacheDirectory ::-    (MonadIO m, WebContextK a) =>-    a                                       -- _obj-    -> T.Text                               -- directory-    -> m ()                                 -- result-webContextSetDiskCacheDirectory _obj directory = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    directory' <- textToCString directory-    webkit_web_context_set_disk_cache_directory _obj' directory'-    touchManagedPtr _obj-    freeMem directory'-    return ()--data WebContextSetDiskCacheDirectoryMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetDiskCacheDirectoryMethodInfo a signature where-    overloadedMethod _ = webContextSetDiskCacheDirectory---- method WebContext::set_favicon_database_directory--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_set_favicon_database_directory" webkit_web_context_set_favicon_database_directory :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    CString ->                              -- path : TBasicType TUTF8-    IO ()---webContextSetFaviconDatabaseDirectory ::-    (MonadIO m, WebContextK a) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- path-    -> m ()                                 -- result-webContextSetFaviconDatabaseDirectory _obj path = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybePath <- case path of-        Nothing -> return nullPtr-        Just jPath -> do-            jPath' <- textToCString jPath-            return jPath'-    webkit_web_context_set_favicon_database_directory _obj' maybePath-    touchManagedPtr _obj-    freeMem maybePath-    return ()--data WebContextSetFaviconDatabaseDirectoryMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetFaviconDatabaseDirectoryMethodInfo a signature where-    overloadedMethod _ = webContextSetFaviconDatabaseDirectory---- method WebContext::set_preferred_languages--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "languages", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_set_preferred_languages" webkit_web_context_set_preferred_languages :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    Ptr CString ->                          -- languages : TCArray True (-1) (-1) (TBasicType TUTF8)-    IO ()---webContextSetPreferredLanguages ::-    (MonadIO m, WebContextK a) =>-    a                                       -- _obj-    -> Maybe ([T.Text])                     -- languages-    -> m ()                                 -- result-webContextSetPreferredLanguages _obj languages = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeLanguages <- case languages of-        Nothing -> return nullPtr-        Just jLanguages -> do-            jLanguages' <- packZeroTerminatedUTF8CArray jLanguages-            return jLanguages'-    webkit_web_context_set_preferred_languages _obj' maybeLanguages-    touchManagedPtr _obj-    mapZeroTerminatedCArray freeMem maybeLanguages-    freeMem maybeLanguages-    return ()--data WebContextSetPreferredLanguagesMethodInfo-instance (signature ~ (Maybe ([T.Text]) -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetPreferredLanguagesMethodInfo a signature where-    overloadedMethod _ = webContextSetPreferredLanguages---- method WebContext::set_process_model--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "process_model", argType = TInterface "WebKit2" "ProcessModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_set_process_model" webkit_web_context_set_process_model :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    CUInt ->                                -- process_model : TInterface "WebKit2" "ProcessModel"-    IO ()---webContextSetProcessModel ::-    (MonadIO m, WebContextK a) =>-    a                                       -- _obj-    -> ProcessModel                         -- processModel-    -> m ()                                 -- result-webContextSetProcessModel _obj processModel = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let processModel' = (fromIntegral . fromEnum) processModel-    webkit_web_context_set_process_model _obj' processModel'-    touchManagedPtr _obj-    return ()--data WebContextSetProcessModelMethodInfo-instance (signature ~ (ProcessModel -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetProcessModelMethodInfo a signature where-    overloadedMethod _ = webContextSetProcessModel---- method WebContext::set_spell_checking_enabled--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_set_spell_checking_enabled" webkit_web_context_set_spell_checking_enabled :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---webContextSetSpellCheckingEnabled ::-    (MonadIO m, WebContextK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-webContextSetSpellCheckingEnabled _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    webkit_web_context_set_spell_checking_enabled _obj' enabled'-    touchManagedPtr _obj-    return ()--data WebContextSetSpellCheckingEnabledMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetSpellCheckingEnabledMethodInfo a signature where-    overloadedMethod _ = webContextSetSpellCheckingEnabled---- method WebContext::set_spell_checking_languages--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "languages", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_set_spell_checking_languages" webkit_web_context_set_spell_checking_languages :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    Ptr CString ->                          -- languages : TCArray True (-1) (-1) (TBasicType TUTF8)-    IO ()---webContextSetSpellCheckingLanguages ::-    (MonadIO m, WebContextK a) =>-    a                                       -- _obj-    -> [T.Text]                             -- languages-    -> m ()                                 -- result-webContextSetSpellCheckingLanguages _obj languages = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    languages' <- packZeroTerminatedUTF8CArray languages-    webkit_web_context_set_spell_checking_languages _obj' languages'-    touchManagedPtr _obj-    mapZeroTerminatedCArray freeMem languages'-    freeMem languages'-    return ()--data WebContextSetSpellCheckingLanguagesMethodInfo-instance (signature ~ ([T.Text] -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetSpellCheckingLanguagesMethodInfo a signature where-    overloadedMethod _ = webContextSetSpellCheckingLanguages---- method WebContext::set_tls_errors_policy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "policy", argType = TInterface "WebKit2" "TLSErrorsPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_set_tls_errors_policy" webkit_web_context_set_tls_errors_policy :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    CUInt ->                                -- policy : TInterface "WebKit2" "TLSErrorsPolicy"-    IO ()---webContextSetTlsErrorsPolicy ::-    (MonadIO m, WebContextK a) =>-    a                                       -- _obj-    -> TLSErrorsPolicy                      -- policy-    -> m ()                                 -- result-webContextSetTlsErrorsPolicy _obj policy = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let policy' = (fromIntegral . fromEnum) policy-    webkit_web_context_set_tls_errors_policy _obj' policy'-    touchManagedPtr _obj-    return ()--data WebContextSetTlsErrorsPolicyMethodInfo-instance (signature ~ (TLSErrorsPolicy -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetTlsErrorsPolicyMethodInfo a signature where-    overloadedMethod _ = webContextSetTlsErrorsPolicy---- method WebContext::set_web_extensions_directory--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_set_web_extensions_directory" webkit_web_context_set_web_extensions_directory :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    CString ->                              -- directory : TBasicType TUTF8-    IO ()---webContextSetWebExtensionsDirectory ::-    (MonadIO m, WebContextK a) =>-    a                                       -- _obj-    -> T.Text                               -- directory-    -> m ()                                 -- result-webContextSetWebExtensionsDirectory _obj directory = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    directory' <- textToCString directory-    webkit_web_context_set_web_extensions_directory _obj' directory'-    touchManagedPtr _obj-    freeMem directory'-    return ()--data WebContextSetWebExtensionsDirectoryMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetWebExtensionsDirectoryMethodInfo a signature where-    overloadedMethod _ = webContextSetWebExtensionsDirectory---- method WebContext::set_web_extensions_initialization_user_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_set_web_extensions_initialization_user_data" webkit_web_context_set_web_extensions_initialization_user_data :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    Ptr GVariant ->                         -- user_data : TVariant-    IO ()---webContextSetWebExtensionsInitializationUserData ::-    (MonadIO m, WebContextK a) =>-    a                                       -- _obj-    -> GVariant                             -- userData-    -> m ()                                 -- result-webContextSetWebExtensionsInitializationUserData _obj userData = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let userData' = unsafeManagedPtrGetPtr userData-    webkit_web_context_set_web_extensions_initialization_user_data _obj' userData'-    touchManagedPtr _obj-    return ()--data WebContextSetWebExtensionsInitializationUserDataMethodInfo-instance (signature ~ (GVariant -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetWebExtensionsInitializationUserDataMethodInfo a signature where-    overloadedMethod _ = webContextSetWebExtensionsInitializationUserData---- method WebContext::set_web_process_count_limit--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_set_web_process_count_limit" webkit_web_context_set_web_process_count_limit :: -    Ptr WebContext ->                       -- _obj : TInterface "WebKit2" "WebContext"-    Word32 ->                               -- limit : TBasicType TUInt-    IO ()---webContextSetWebProcessCountLimit ::-    (MonadIO m, WebContextK a) =>-    a                                       -- _obj-    -> Word32                               -- limit-    -> m ()                                 -- result-webContextSetWebProcessCountLimit _obj limit = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_web_context_set_web_process_count_limit _obj' limit-    touchManagedPtr _obj-    return ()--data WebContextSetWebProcessCountLimitMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, WebContextK a) => MethodInfo WebContextSetWebProcessCountLimitMethodInfo a signature where-    overloadedMethod _ = webContextSetWebProcessCountLimit---- method WebContext::get_default--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface "WebKit2" "WebContext")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_context_get_default" webkit_web_context_get_default :: -    IO (Ptr WebContext)---webContextGetDefault ::-    (MonadIO m) =>-    m WebContext                            -- result-webContextGetDefault  = liftIO $ do-    result <- webkit_web_context_get_default-    checkUnexpectedReturnNULL "webkit_web_context_get_default" result-    result' <- (newObject WebContext) result-    return result'--
− GI/WebKit2/Objects/WebContext.hs-boot 
@@ -1,47 +0,0 @@-module GI.WebKit2.Objects.WebContext where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype WebContext = WebContext (ForeignPtr WebContext)-instance GObject WebContext where-class GObject o => WebContextK o-instance (GObject o, IsDescendantOf WebContext o) => WebContextK o-data WebContextLocalStorageDirectoryPropertyInfo-data WebContextWebsiteDataManagerPropertyInfo-data WebContextDownloadStartedSignalInfo-data WebContextInitializeWebExtensionsSignalInfo-data WebContextAllowTlsCertificateForHostMethodInfo-data WebContextClearCacheMethodInfo-data WebContextDownloadUriMethodInfo-data WebContextGetCacheModelMethodInfo-data WebContextGetCookieManagerMethodInfo-data WebContextGetFaviconDatabaseMethodInfo-data WebContextGetFaviconDatabaseDirectoryMethodInfo-data WebContextGetPluginsMethodInfo-data WebContextGetPluginsFinishMethodInfo-data WebContextGetProcessModelMethodInfo-data WebContextGetSecurityManagerMethodInfo-data WebContextGetSpellCheckingEnabledMethodInfo-data WebContextGetSpellCheckingLanguagesMethodInfo-data WebContextGetTlsErrorsPolicyMethodInfo-data WebContextGetWebProcessCountLimitMethodInfo-data WebContextGetWebsiteDataManagerMethodInfo-data WebContextPrefetchDnsMethodInfo-data WebContextRegisterUriSchemeMethodInfo-data WebContextSetAdditionalPluginsDirectoryMethodInfo-data WebContextSetCacheModelMethodInfo-data WebContextSetDiskCacheDirectoryMethodInfo-data WebContextSetFaviconDatabaseDirectoryMethodInfo-data WebContextSetPreferredLanguagesMethodInfo-data WebContextSetProcessModelMethodInfo-data WebContextSetSpellCheckingEnabledMethodInfo-data WebContextSetSpellCheckingLanguagesMethodInfo-data WebContextSetTlsErrorsPolicyMethodInfo-data WebContextSetWebExtensionsDirectoryMethodInfo-data WebContextSetWebExtensionsInitializationUserDataMethodInfo-data WebContextSetWebProcessCountLimitMethodInfo
− GI/WebKit2/Objects/WebInspector.hs 
@@ -1,774 +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.WebKit2.Objects.WebInspector-    ( ---- * Exported types-    WebInspector(..)                        ,-    WebInspectorK                           ,-    toWebInspector                          ,-    noWebInspector                          ,--- -- * Methods--- ** webInspectorAttach-    WebInspectorAttachMethodInfo            ,-    webInspectorAttach                      ,----- ** webInspectorClose-    WebInspectorCloseMethodInfo             ,-    webInspectorClose                       ,----- ** webInspectorDetach-    WebInspectorDetachMethodInfo            ,-    webInspectorDetach                      ,----- ** webInspectorGetAttachedHeight-    WebInspectorGetAttachedHeightMethodInfo ,-    webInspectorGetAttachedHeight           ,----- ** webInspectorGetCanAttach-    WebInspectorGetCanAttachMethodInfo      ,-    webInspectorGetCanAttach                ,----- ** webInspectorGetInspectedUri-    WebInspectorGetInspectedUriMethodInfo   ,-    webInspectorGetInspectedUri             ,----- ** webInspectorGetWebView-    WebInspectorGetWebViewMethodInfo        ,-    webInspectorGetWebView                  ,----- ** webInspectorIsAttached-    WebInspectorIsAttachedMethodInfo        ,-    webInspectorIsAttached                  ,----- ** webInspectorShow-    WebInspectorShowMethodInfo              ,-    webInspectorShow                        ,----- -- * Properties--- ** AttachedHeight-    WebInspectorAttachedHeightPropertyInfo  ,-    getWebInspectorAttachedHeight           ,-    webInspectorAttachedHeight              ,----- ** CanAttach-    WebInspectorCanAttachPropertyInfo       ,-    getWebInspectorCanAttach                ,-    webInspectorCanAttach                   ,----- ** InspectedUri-    WebInspectorInspectedUriPropertyInfo    ,-    getWebInspectorInspectedUri             ,-    webInspectorInspectedUri                ,----- -- * Signals--- ** Attach-    WebInspectorAttachCallback              ,-    WebInspectorAttachCallbackC             ,-    WebInspectorAttachSignalInfo            ,-    afterWebInspectorAttach                 ,-    mkWebInspectorAttachCallback            ,-    noWebInspectorAttachCallback            ,-    onWebInspectorAttach                    ,-    webInspectorAttachCallbackWrapper       ,-    webInspectorAttachClosure               ,----- ** BringToFront-    WebInspectorBringToFrontCallback        ,-    WebInspectorBringToFrontCallbackC       ,-    WebInspectorBringToFrontSignalInfo      ,-    afterWebInspectorBringToFront           ,-    mkWebInspectorBringToFrontCallback      ,-    noWebInspectorBringToFrontCallback      ,-    onWebInspectorBringToFront              ,-    webInspectorBringToFrontCallbackWrapper ,-    webInspectorBringToFrontClosure         ,----- ** Closed-    WebInspectorClosedCallback              ,-    WebInspectorClosedCallbackC             ,-    WebInspectorClosedSignalInfo            ,-    afterWebInspectorClosed                 ,-    mkWebInspectorClosedCallback            ,-    noWebInspectorClosedCallback            ,-    onWebInspectorClosed                    ,-    webInspectorClosedCallbackWrapper       ,-    webInspectorClosedClosure               ,----- ** Detach-    WebInspectorDetachCallback              ,-    WebInspectorDetachCallbackC             ,-    WebInspectorDetachSignalInfo            ,-    afterWebInspectorDetach                 ,-    mkWebInspectorDetachCallback            ,-    noWebInspectorDetachCallback            ,-    onWebInspectorDetach                    ,-    webInspectorDetachCallbackWrapper       ,-    webInspectorDetachClosure               ,----- ** OpenWindow-    WebInspectorOpenWindowCallback          ,-    WebInspectorOpenWindowCallbackC         ,-    WebInspectorOpenWindowSignalInfo        ,-    afterWebInspectorOpenWindow             ,-    mkWebInspectorOpenWindowCallback        ,-    noWebInspectorOpenWindowCallback        ,-    onWebInspectorOpenWindow                ,-    webInspectorOpenWindowCallbackWrapper   ,-    webInspectorOpenWindowClosure           ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject--newtype WebInspector = WebInspector (ForeignPtr WebInspector)-foreign import ccall "webkit_web_inspector_get_type"-    c_webkit_web_inspector_get_type :: IO GType--type instance ParentTypes WebInspector = WebInspectorParentTypes-type WebInspectorParentTypes = '[GObject.Object]--instance GObject WebInspector where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_web_inspector_get_type-    --class GObject o => WebInspectorK o-instance (GObject o, IsDescendantOf WebInspector o) => WebInspectorK o--toWebInspector :: WebInspectorK o => o -> IO WebInspector-toWebInspector = unsafeCastTo WebInspector--noWebInspector :: Maybe WebInspector-noWebInspector = Nothing--type family ResolveWebInspectorMethod (t :: Symbol) (o :: *) :: * where-    ResolveWebInspectorMethod "attach" o = WebInspectorAttachMethodInfo-    ResolveWebInspectorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveWebInspectorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveWebInspectorMethod "close" o = WebInspectorCloseMethodInfo-    ResolveWebInspectorMethod "detach" o = WebInspectorDetachMethodInfo-    ResolveWebInspectorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveWebInspectorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveWebInspectorMethod "isAttached" o = WebInspectorIsAttachedMethodInfo-    ResolveWebInspectorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveWebInspectorMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveWebInspectorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveWebInspectorMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveWebInspectorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveWebInspectorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveWebInspectorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveWebInspectorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveWebInspectorMethod "show" o = WebInspectorShowMethodInfo-    ResolveWebInspectorMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveWebInspectorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveWebInspectorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveWebInspectorMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveWebInspectorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveWebInspectorMethod "getAttachedHeight" o = WebInspectorGetAttachedHeightMethodInfo-    ResolveWebInspectorMethod "getCanAttach" o = WebInspectorGetCanAttachMethodInfo-    ResolveWebInspectorMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveWebInspectorMethod "getInspectedUri" o = WebInspectorGetInspectedUriMethodInfo-    ResolveWebInspectorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveWebInspectorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveWebInspectorMethod "getWebView" o = WebInspectorGetWebViewMethodInfo-    ResolveWebInspectorMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveWebInspectorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveWebInspectorMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveWebInspectorMethod t WebInspector, MethodInfo info WebInspector p) => IsLabelProxy t (WebInspector -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveWebInspectorMethod t WebInspector, MethodInfo info WebInspector p) => IsLabel t (WebInspector -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal WebInspector::attach-type WebInspectorAttachCallback =-    IO Bool--noWebInspectorAttachCallback :: Maybe WebInspectorAttachCallback-noWebInspectorAttachCallback = Nothing--type WebInspectorAttachCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkWebInspectorAttachCallback :: WebInspectorAttachCallbackC -> IO (FunPtr WebInspectorAttachCallbackC)--webInspectorAttachClosure :: WebInspectorAttachCallback -> IO Closure-webInspectorAttachClosure cb = newCClosure =<< mkWebInspectorAttachCallback wrapped-    where wrapped = webInspectorAttachCallbackWrapper cb--webInspectorAttachCallbackWrapper ::-    WebInspectorAttachCallback ->-    Ptr () ->-    Ptr () ->-    IO CInt-webInspectorAttachCallbackWrapper _cb _ _ = do-    result <- _cb -    let result' = (fromIntegral . fromEnum) result-    return result'--onWebInspectorAttach :: (GObject a, MonadIO m) => a -> WebInspectorAttachCallback -> m SignalHandlerId-onWebInspectorAttach obj cb = liftIO $ connectWebInspectorAttach obj cb SignalConnectBefore-afterWebInspectorAttach :: (GObject a, MonadIO m) => a -> WebInspectorAttachCallback -> m SignalHandlerId-afterWebInspectorAttach obj cb = connectWebInspectorAttach obj cb SignalConnectAfter--connectWebInspectorAttach :: (GObject a, MonadIO m) =>-                             a -> WebInspectorAttachCallback -> SignalConnectMode -> m SignalHandlerId-connectWebInspectorAttach obj cb after = liftIO $ do-    cb' <- mkWebInspectorAttachCallback (webInspectorAttachCallbackWrapper cb)-    connectSignalFunPtr obj "attach" cb' after---- signal WebInspector::bring-to-front-type WebInspectorBringToFrontCallback =-    IO Bool--noWebInspectorBringToFrontCallback :: Maybe WebInspectorBringToFrontCallback-noWebInspectorBringToFrontCallback = Nothing--type WebInspectorBringToFrontCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkWebInspectorBringToFrontCallback :: WebInspectorBringToFrontCallbackC -> IO (FunPtr WebInspectorBringToFrontCallbackC)--webInspectorBringToFrontClosure :: WebInspectorBringToFrontCallback -> IO Closure-webInspectorBringToFrontClosure cb = newCClosure =<< mkWebInspectorBringToFrontCallback wrapped-    where wrapped = webInspectorBringToFrontCallbackWrapper cb--webInspectorBringToFrontCallbackWrapper ::-    WebInspectorBringToFrontCallback ->-    Ptr () ->-    Ptr () ->-    IO CInt-webInspectorBringToFrontCallbackWrapper _cb _ _ = do-    result <- _cb -    let result' = (fromIntegral . fromEnum) result-    return result'--onWebInspectorBringToFront :: (GObject a, MonadIO m) => a -> WebInspectorBringToFrontCallback -> m SignalHandlerId-onWebInspectorBringToFront obj cb = liftIO $ connectWebInspectorBringToFront obj cb SignalConnectBefore-afterWebInspectorBringToFront :: (GObject a, MonadIO m) => a -> WebInspectorBringToFrontCallback -> m SignalHandlerId-afterWebInspectorBringToFront obj cb = connectWebInspectorBringToFront obj cb SignalConnectAfter--connectWebInspectorBringToFront :: (GObject a, MonadIO m) =>-                                   a -> WebInspectorBringToFrontCallback -> SignalConnectMode -> m SignalHandlerId-connectWebInspectorBringToFront obj cb after = liftIO $ do-    cb' <- mkWebInspectorBringToFrontCallback (webInspectorBringToFrontCallbackWrapper cb)-    connectSignalFunPtr obj "bring-to-front" cb' after---- signal WebInspector::closed-type WebInspectorClosedCallback =-    IO ()--noWebInspectorClosedCallback :: Maybe WebInspectorClosedCallback-noWebInspectorClosedCallback = Nothing--type WebInspectorClosedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebInspectorClosedCallback :: WebInspectorClosedCallbackC -> IO (FunPtr WebInspectorClosedCallbackC)--webInspectorClosedClosure :: WebInspectorClosedCallback -> IO Closure-webInspectorClosedClosure cb = newCClosure =<< mkWebInspectorClosedCallback wrapped-    where wrapped = webInspectorClosedCallbackWrapper cb--webInspectorClosedCallbackWrapper ::-    WebInspectorClosedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-webInspectorClosedCallbackWrapper _cb _ _ = do-    _cb --onWebInspectorClosed :: (GObject a, MonadIO m) => a -> WebInspectorClosedCallback -> m SignalHandlerId-onWebInspectorClosed obj cb = liftIO $ connectWebInspectorClosed obj cb SignalConnectBefore-afterWebInspectorClosed :: (GObject a, MonadIO m) => a -> WebInspectorClosedCallback -> m SignalHandlerId-afterWebInspectorClosed obj cb = connectWebInspectorClosed obj cb SignalConnectAfter--connectWebInspectorClosed :: (GObject a, MonadIO m) =>-                             a -> WebInspectorClosedCallback -> SignalConnectMode -> m SignalHandlerId-connectWebInspectorClosed obj cb after = liftIO $ do-    cb' <- mkWebInspectorClosedCallback (webInspectorClosedCallbackWrapper cb)-    connectSignalFunPtr obj "closed" cb' after---- signal WebInspector::detach-type WebInspectorDetachCallback =-    IO Bool--noWebInspectorDetachCallback :: Maybe WebInspectorDetachCallback-noWebInspectorDetachCallback = Nothing--type WebInspectorDetachCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkWebInspectorDetachCallback :: WebInspectorDetachCallbackC -> IO (FunPtr WebInspectorDetachCallbackC)--webInspectorDetachClosure :: WebInspectorDetachCallback -> IO Closure-webInspectorDetachClosure cb = newCClosure =<< mkWebInspectorDetachCallback wrapped-    where wrapped = webInspectorDetachCallbackWrapper cb--webInspectorDetachCallbackWrapper ::-    WebInspectorDetachCallback ->-    Ptr () ->-    Ptr () ->-    IO CInt-webInspectorDetachCallbackWrapper _cb _ _ = do-    result <- _cb -    let result' = (fromIntegral . fromEnum) result-    return result'--onWebInspectorDetach :: (GObject a, MonadIO m) => a -> WebInspectorDetachCallback -> m SignalHandlerId-onWebInspectorDetach obj cb = liftIO $ connectWebInspectorDetach obj cb SignalConnectBefore-afterWebInspectorDetach :: (GObject a, MonadIO m) => a -> WebInspectorDetachCallback -> m SignalHandlerId-afterWebInspectorDetach obj cb = connectWebInspectorDetach obj cb SignalConnectAfter--connectWebInspectorDetach :: (GObject a, MonadIO m) =>-                             a -> WebInspectorDetachCallback -> SignalConnectMode -> m SignalHandlerId-connectWebInspectorDetach obj cb after = liftIO $ do-    cb' <- mkWebInspectorDetachCallback (webInspectorDetachCallbackWrapper cb)-    connectSignalFunPtr obj "detach" cb' after---- signal WebInspector::open-window-type WebInspectorOpenWindowCallback =-    IO Bool--noWebInspectorOpenWindowCallback :: Maybe WebInspectorOpenWindowCallback-noWebInspectorOpenWindowCallback = Nothing--type WebInspectorOpenWindowCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkWebInspectorOpenWindowCallback :: WebInspectorOpenWindowCallbackC -> IO (FunPtr WebInspectorOpenWindowCallbackC)--webInspectorOpenWindowClosure :: WebInspectorOpenWindowCallback -> IO Closure-webInspectorOpenWindowClosure cb = newCClosure =<< mkWebInspectorOpenWindowCallback wrapped-    where wrapped = webInspectorOpenWindowCallbackWrapper cb--webInspectorOpenWindowCallbackWrapper ::-    WebInspectorOpenWindowCallback ->-    Ptr () ->-    Ptr () ->-    IO CInt-webInspectorOpenWindowCallbackWrapper _cb _ _ = do-    result <- _cb -    let result' = (fromIntegral . fromEnum) result-    return result'--onWebInspectorOpenWindow :: (GObject a, MonadIO m) => a -> WebInspectorOpenWindowCallback -> m SignalHandlerId-onWebInspectorOpenWindow obj cb = liftIO $ connectWebInspectorOpenWindow obj cb SignalConnectBefore-afterWebInspectorOpenWindow :: (GObject a, MonadIO m) => a -> WebInspectorOpenWindowCallback -> m SignalHandlerId-afterWebInspectorOpenWindow obj cb = connectWebInspectorOpenWindow obj cb SignalConnectAfter--connectWebInspectorOpenWindow :: (GObject a, MonadIO m) =>-                                 a -> WebInspectorOpenWindowCallback -> SignalConnectMode -> m SignalHandlerId-connectWebInspectorOpenWindow obj cb after = liftIO $ do-    cb' <- mkWebInspectorOpenWindowCallback (webInspectorOpenWindowCallbackWrapper cb)-    connectSignalFunPtr obj "open-window" cb' after---- VVV Prop "attached-height"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getWebInspectorAttachedHeight :: (MonadIO m, WebInspectorK o) => o -> m Word32-getWebInspectorAttachedHeight obj = liftIO $ getObjectPropertyUInt32 obj "attached-height"--data WebInspectorAttachedHeightPropertyInfo-instance AttrInfo WebInspectorAttachedHeightPropertyInfo where-    type AttrAllowedOps WebInspectorAttachedHeightPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint WebInspectorAttachedHeightPropertyInfo = (~) ()-    type AttrBaseTypeConstraint WebInspectorAttachedHeightPropertyInfo = WebInspectorK-    type AttrGetType WebInspectorAttachedHeightPropertyInfo = Word32-    type AttrLabel WebInspectorAttachedHeightPropertyInfo = "attached-height"-    attrGet _ = getWebInspectorAttachedHeight-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "can-attach"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getWebInspectorCanAttach :: (MonadIO m, WebInspectorK o) => o -> m Bool-getWebInspectorCanAttach obj = liftIO $ getObjectPropertyBool obj "can-attach"--data WebInspectorCanAttachPropertyInfo-instance AttrInfo WebInspectorCanAttachPropertyInfo where-    type AttrAllowedOps WebInspectorCanAttachPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint WebInspectorCanAttachPropertyInfo = (~) ()-    type AttrBaseTypeConstraint WebInspectorCanAttachPropertyInfo = WebInspectorK-    type AttrGetType WebInspectorCanAttachPropertyInfo = Bool-    type AttrLabel WebInspectorCanAttachPropertyInfo = "can-attach"-    attrGet _ = getWebInspectorCanAttach-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "inspected-uri"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getWebInspectorInspectedUri :: (MonadIO m, WebInspectorK o) => o -> m T.Text-getWebInspectorInspectedUri obj = liftIO $ checkUnexpectedNothing "getWebInspectorInspectedUri" $ getObjectPropertyString obj "inspected-uri"--data WebInspectorInspectedUriPropertyInfo-instance AttrInfo WebInspectorInspectedUriPropertyInfo where-    type AttrAllowedOps WebInspectorInspectedUriPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WebInspectorInspectedUriPropertyInfo = (~) ()-    type AttrBaseTypeConstraint WebInspectorInspectedUriPropertyInfo = WebInspectorK-    type AttrGetType WebInspectorInspectedUriPropertyInfo = T.Text-    type AttrLabel WebInspectorInspectedUriPropertyInfo = "inspected-uri"-    attrGet _ = getWebInspectorInspectedUri-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined--type instance AttributeList WebInspector = WebInspectorAttributeList-type WebInspectorAttributeList = ('[ '("attachedHeight", WebInspectorAttachedHeightPropertyInfo), '("canAttach", WebInspectorCanAttachPropertyInfo), '("inspectedUri", WebInspectorInspectedUriPropertyInfo)] :: [(Symbol, *)])--webInspectorAttachedHeight :: AttrLabelProxy "attachedHeight"-webInspectorAttachedHeight = AttrLabelProxy--webInspectorCanAttach :: AttrLabelProxy "canAttach"-webInspectorCanAttach = AttrLabelProxy--webInspectorInspectedUri :: AttrLabelProxy "inspectedUri"-webInspectorInspectedUri = AttrLabelProxy--data WebInspectorAttachSignalInfo-instance SignalInfo WebInspectorAttachSignalInfo where-    type HaskellCallbackType WebInspectorAttachSignalInfo = WebInspectorAttachCallback-    connectSignal _ = connectWebInspectorAttach--data WebInspectorBringToFrontSignalInfo-instance SignalInfo WebInspectorBringToFrontSignalInfo where-    type HaskellCallbackType WebInspectorBringToFrontSignalInfo = WebInspectorBringToFrontCallback-    connectSignal _ = connectWebInspectorBringToFront--data WebInspectorClosedSignalInfo-instance SignalInfo WebInspectorClosedSignalInfo where-    type HaskellCallbackType WebInspectorClosedSignalInfo = WebInspectorClosedCallback-    connectSignal _ = connectWebInspectorClosed--data WebInspectorDetachSignalInfo-instance SignalInfo WebInspectorDetachSignalInfo where-    type HaskellCallbackType WebInspectorDetachSignalInfo = WebInspectorDetachCallback-    connectSignal _ = connectWebInspectorDetach--data WebInspectorOpenWindowSignalInfo-instance SignalInfo WebInspectorOpenWindowSignalInfo where-    type HaskellCallbackType WebInspectorOpenWindowSignalInfo = WebInspectorOpenWindowCallback-    connectSignal _ = connectWebInspectorOpenWindow--type instance SignalList WebInspector = WebInspectorSignalList-type WebInspectorSignalList = ('[ '("attach", WebInspectorAttachSignalInfo), '("bringToFront", WebInspectorBringToFrontSignalInfo), '("closed", WebInspectorClosedSignalInfo), '("detach", WebInspectorDetachSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("openWindow", WebInspectorOpenWindowSignalInfo)] :: [(Symbol, *)])---- method WebInspector::attach--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_inspector_attach" webkit_web_inspector_attach :: -    Ptr WebInspector ->                     -- _obj : TInterface "WebKit2" "WebInspector"-    IO ()---webInspectorAttach ::-    (MonadIO m, WebInspectorK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-webInspectorAttach _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_web_inspector_attach _obj'-    touchManagedPtr _obj-    return ()--data WebInspectorAttachMethodInfo-instance (signature ~ (m ()), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorAttachMethodInfo a signature where-    overloadedMethod _ = webInspectorAttach---- method WebInspector::close--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_inspector_close" webkit_web_inspector_close :: -    Ptr WebInspector ->                     -- _obj : TInterface "WebKit2" "WebInspector"-    IO ()---webInspectorClose ::-    (MonadIO m, WebInspectorK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-webInspectorClose _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_web_inspector_close _obj'-    touchManagedPtr _obj-    return ()--data WebInspectorCloseMethodInfo-instance (signature ~ (m ()), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorCloseMethodInfo a signature where-    overloadedMethod _ = webInspectorClose---- method WebInspector::detach--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_inspector_detach" webkit_web_inspector_detach :: -    Ptr WebInspector ->                     -- _obj : TInterface "WebKit2" "WebInspector"-    IO ()---webInspectorDetach ::-    (MonadIO m, WebInspectorK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-webInspectorDetach _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_web_inspector_detach _obj'-    touchManagedPtr _obj-    return ()--data WebInspectorDetachMethodInfo-instance (signature ~ (m ()), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorDetachMethodInfo a signature where-    overloadedMethod _ = webInspectorDetach---- method WebInspector::get_attached_height--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "webkit_web_inspector_get_attached_height" webkit_web_inspector_get_attached_height :: -    Ptr WebInspector ->                     -- _obj : TInterface "WebKit2" "WebInspector"-    IO Word32---webInspectorGetAttachedHeight ::-    (MonadIO m, WebInspectorK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-webInspectorGetAttachedHeight _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_inspector_get_attached_height _obj'-    touchManagedPtr _obj-    return result--data WebInspectorGetAttachedHeightMethodInfo-instance (signature ~ (m Word32), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorGetAttachedHeightMethodInfo a signature where-    overloadedMethod _ = webInspectorGetAttachedHeight---- method WebInspector::get_can_attach--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_web_inspector_get_can_attach" webkit_web_inspector_get_can_attach :: -    Ptr WebInspector ->                     -- _obj : TInterface "WebKit2" "WebInspector"-    IO CInt---webInspectorGetCanAttach ::-    (MonadIO m, WebInspectorK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-webInspectorGetCanAttach _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_inspector_get_can_attach _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WebInspectorGetCanAttachMethodInfo-instance (signature ~ (m Bool), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorGetCanAttachMethodInfo a signature where-    overloadedMethod _ = webInspectorGetCanAttach---- method WebInspector::get_inspected_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_web_inspector_get_inspected_uri" webkit_web_inspector_get_inspected_uri :: -    Ptr WebInspector ->                     -- _obj : TInterface "WebKit2" "WebInspector"-    IO CString---webInspectorGetInspectedUri ::-    (MonadIO m, WebInspectorK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-webInspectorGetInspectedUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_inspector_get_inspected_uri _obj'-    checkUnexpectedReturnNULL "webkit_web_inspector_get_inspected_uri" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data WebInspectorGetInspectedUriMethodInfo-instance (signature ~ (m T.Text), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorGetInspectedUriMethodInfo a signature where-    overloadedMethod _ = webInspectorGetInspectedUri---- method WebInspector::get_web_view--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "WebViewBase")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_inspector_get_web_view" webkit_web_inspector_get_web_view :: -    Ptr WebInspector ->                     -- _obj : TInterface "WebKit2" "WebInspector"-    IO (Ptr WebViewBase)---webInspectorGetWebView ::-    (MonadIO m, WebInspectorK a) =>-    a                                       -- _obj-    -> m WebViewBase                        -- result-webInspectorGetWebView _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_inspector_get_web_view _obj'-    checkUnexpectedReturnNULL "webkit_web_inspector_get_web_view" result-    result' <- (newObject WebViewBase) result-    touchManagedPtr _obj-    return result'--data WebInspectorGetWebViewMethodInfo-instance (signature ~ (m WebViewBase), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorGetWebViewMethodInfo a signature where-    overloadedMethod _ = webInspectorGetWebView---- method WebInspector::is_attached--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_web_inspector_is_attached" webkit_web_inspector_is_attached :: -    Ptr WebInspector ->                     -- _obj : TInterface "WebKit2" "WebInspector"-    IO CInt---webInspectorIsAttached ::-    (MonadIO m, WebInspectorK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-webInspectorIsAttached _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_inspector_is_attached _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WebInspectorIsAttachedMethodInfo-instance (signature ~ (m Bool), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorIsAttachedMethodInfo a signature where-    overloadedMethod _ = webInspectorIsAttached---- method WebInspector::show--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_inspector_show" webkit_web_inspector_show :: -    Ptr WebInspector ->                     -- _obj : TInterface "WebKit2" "WebInspector"-    IO ()---webInspectorShow ::-    (MonadIO m, WebInspectorK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-webInspectorShow _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_web_inspector_show _obj'-    touchManagedPtr _obj-    return ()--data WebInspectorShowMethodInfo-instance (signature ~ (m ()), MonadIO m, WebInspectorK a) => MethodInfo WebInspectorShowMethodInfo a signature where-    overloadedMethod _ = webInspectorShow--
− GI/WebKit2/Objects/WebInspector.hs-boot 
@@ -1,30 +0,0 @@-module GI.WebKit2.Objects.WebInspector where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype WebInspector = WebInspector (ForeignPtr WebInspector)-instance GObject WebInspector where-class GObject o => WebInspectorK o-instance (GObject o, IsDescendantOf WebInspector o) => WebInspectorK o-data WebInspectorAttachedHeightPropertyInfo-data WebInspectorCanAttachPropertyInfo-data WebInspectorInspectedUriPropertyInfo-data WebInspectorAttachSignalInfo-data WebInspectorBringToFrontSignalInfo-data WebInspectorClosedSignalInfo-data WebInspectorDetachSignalInfo-data WebInspectorOpenWindowSignalInfo-data WebInspectorAttachMethodInfo-data WebInspectorCloseMethodInfo-data WebInspectorDetachMethodInfo-data WebInspectorGetAttachedHeightMethodInfo-data WebInspectorGetCanAttachMethodInfo-data WebInspectorGetInspectedUriMethodInfo-data WebInspectorGetWebViewMethodInfo-data WebInspectorIsAttachedMethodInfo-data WebInspectorShowMethodInfo
− GI/WebKit2/Objects/WebResource.hs 
@@ -1,627 +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.WebKit2.Objects.WebResource-    ( ---- * Exported types-    WebResource(..)                         ,-    WebResourceK                            ,-    toWebResource                           ,-    noWebResource                           ,--- -- * Methods--- ** webResourceGetData-    WebResourceGetDataMethodInfo            ,-    webResourceGetData                      ,----- ** webResourceGetDataFinish-    WebResourceGetDataFinishMethodInfo      ,-    webResourceGetDataFinish                ,----- ** webResourceGetResponse-    WebResourceGetResponseMethodInfo        ,-    webResourceGetResponse                  ,----- ** webResourceGetUri-    WebResourceGetUriMethodInfo             ,-    webResourceGetUri                       ,----- -- * Properties--- ** Response-    WebResourceResponsePropertyInfo         ,-    getWebResourceResponse                  ,-    webResourceResponse                     ,----- ** Uri-    WebResourceUriPropertyInfo              ,-    getWebResourceUri                       ,-    webResourceUri                          ,----- -- * Signals--- ** Failed-    WebResourceFailedCallback               ,-    WebResourceFailedCallbackC              ,-    WebResourceFailedSignalInfo             ,-    afterWebResourceFailed                  ,-    mkWebResourceFailedCallback             ,-    noWebResourceFailedCallback             ,-    onWebResourceFailed                     ,-    webResourceFailedCallbackWrapper        ,-    webResourceFailedClosure                ,----- ** FailedWithTlsErrors-    WebResourceFailedWithTlsErrorsCallback  ,-    WebResourceFailedWithTlsErrorsCallbackC ,-    WebResourceFailedWithTlsErrorsSignalInfo,-    afterWebResourceFailedWithTlsErrors     ,-    mkWebResourceFailedWithTlsErrorsCallback,-    noWebResourceFailedWithTlsErrorsCallback,-    onWebResourceFailedWithTlsErrors        ,-    webResourceFailedWithTlsErrorsCallbackWrapper,-    webResourceFailedWithTlsErrorsClosure   ,----- ** Finished-    WebResourceFinishedCallback             ,-    WebResourceFinishedCallbackC            ,-    WebResourceFinishedSignalInfo           ,-    afterWebResourceFinished                ,-    mkWebResourceFinishedCallback           ,-    noWebResourceFinishedCallback           ,-    onWebResourceFinished                   ,-    webResourceFinishedCallbackWrapper      ,-    webResourceFinishedClosure              ,----- ** ReceivedData-    WebResourceReceivedDataCallback         ,-    WebResourceReceivedDataCallbackC        ,-    WebResourceReceivedDataSignalInfo       ,-    afterWebResourceReceivedData            ,-    mkWebResourceReceivedDataCallback       ,-    noWebResourceReceivedDataCallback       ,-    onWebResourceReceivedData               ,-    webResourceReceivedDataCallbackWrapper  ,-    webResourceReceivedDataClosure          ,----- ** SentRequest-    WebResourceSentRequestCallback          ,-    WebResourceSentRequestCallbackC         ,-    WebResourceSentRequestSignalInfo        ,-    afterWebResourceSentRequest             ,-    mkWebResourceSentRequestCallback        ,-    noWebResourceSentRequestCallback        ,-    onWebResourceSentRequest                ,-    webResourceSentRequestCallbackWrapper   ,-    webResourceSentRequestClosure           ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject-import qualified GI.Gio as Gio--newtype WebResource = WebResource (ForeignPtr WebResource)-foreign import ccall "webkit_web_resource_get_type"-    c_webkit_web_resource_get_type :: IO GType--type instance ParentTypes WebResource = WebResourceParentTypes-type WebResourceParentTypes = '[GObject.Object]--instance GObject WebResource where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_web_resource_get_type-    --class GObject o => WebResourceK o-instance (GObject o, IsDescendantOf WebResource o) => WebResourceK o--toWebResource :: WebResourceK o => o -> IO WebResource-toWebResource = unsafeCastTo WebResource--noWebResource :: Maybe WebResource-noWebResource = Nothing--type family ResolveWebResourceMethod (t :: Symbol) (o :: *) :: * where-    ResolveWebResourceMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveWebResourceMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveWebResourceMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveWebResourceMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveWebResourceMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveWebResourceMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveWebResourceMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveWebResourceMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveWebResourceMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveWebResourceMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveWebResourceMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveWebResourceMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveWebResourceMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveWebResourceMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveWebResourceMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveWebResourceMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveWebResourceMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveWebResourceMethod "getDataFinish" o = WebResourceGetDataFinishMethodInfo-    ResolveWebResourceMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveWebResourceMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveWebResourceMethod "getResponse" o = WebResourceGetResponseMethodInfo-    ResolveWebResourceMethod "getUri" o = WebResourceGetUriMethodInfo-    ResolveWebResourceMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveWebResourceMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveWebResourceMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveWebResourceMethod t WebResource, MethodInfo info WebResource p) => IsLabelProxy t (WebResource -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveWebResourceMethod t WebResource, MethodInfo info WebResource p) => IsLabel t (WebResource -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal WebResource::failed-type WebResourceFailedCallback =-    GError ->-    IO ()--noWebResourceFailedCallback :: Maybe WebResourceFailedCallback-noWebResourceFailedCallback = Nothing--type WebResourceFailedCallbackC =-    Ptr () ->                               -- object-    Ptr GError ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebResourceFailedCallback :: WebResourceFailedCallbackC -> IO (FunPtr WebResourceFailedCallbackC)--webResourceFailedClosure :: WebResourceFailedCallback -> IO Closure-webResourceFailedClosure cb = newCClosure =<< mkWebResourceFailedCallback wrapped-    where wrapped = webResourceFailedCallbackWrapper cb--webResourceFailedCallbackWrapper ::-    WebResourceFailedCallback ->-    Ptr () ->-    Ptr GError ->-    Ptr () ->-    IO ()-webResourceFailedCallbackWrapper _cb _ error_ _ = do-    error_' <- (newBoxed GError) error_-    _cb  error_'--onWebResourceFailed :: (GObject a, MonadIO m) => a -> WebResourceFailedCallback -> m SignalHandlerId-onWebResourceFailed obj cb = liftIO $ connectWebResourceFailed obj cb SignalConnectBefore-afterWebResourceFailed :: (GObject a, MonadIO m) => a -> WebResourceFailedCallback -> m SignalHandlerId-afterWebResourceFailed obj cb = connectWebResourceFailed obj cb SignalConnectAfter--connectWebResourceFailed :: (GObject a, MonadIO m) =>-                            a -> WebResourceFailedCallback -> SignalConnectMode -> m SignalHandlerId-connectWebResourceFailed obj cb after = liftIO $ do-    cb' <- mkWebResourceFailedCallback (webResourceFailedCallbackWrapper cb)-    connectSignalFunPtr obj "failed" cb' after---- signal WebResource::failed-with-tls-errors-type WebResourceFailedWithTlsErrorsCallback =-    Gio.TlsCertificate ->-    [Gio.TlsCertificateFlags] ->-    IO ()--noWebResourceFailedWithTlsErrorsCallback :: Maybe WebResourceFailedWithTlsErrorsCallback-noWebResourceFailedWithTlsErrorsCallback = Nothing--type WebResourceFailedWithTlsErrorsCallbackC =-    Ptr () ->                               -- object-    Ptr Gio.TlsCertificate ->-    CUInt ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebResourceFailedWithTlsErrorsCallback :: WebResourceFailedWithTlsErrorsCallbackC -> IO (FunPtr WebResourceFailedWithTlsErrorsCallbackC)--webResourceFailedWithTlsErrorsClosure :: WebResourceFailedWithTlsErrorsCallback -> IO Closure-webResourceFailedWithTlsErrorsClosure cb = newCClosure =<< mkWebResourceFailedWithTlsErrorsCallback wrapped-    where wrapped = webResourceFailedWithTlsErrorsCallbackWrapper cb--webResourceFailedWithTlsErrorsCallbackWrapper ::-    WebResourceFailedWithTlsErrorsCallback ->-    Ptr () ->-    Ptr Gio.TlsCertificate ->-    CUInt ->-    Ptr () ->-    IO ()-webResourceFailedWithTlsErrorsCallbackWrapper _cb _ certificate errors _ = do-    certificate' <- (newObject Gio.TlsCertificate) certificate-    let errors' = wordToGFlags errors-    _cb  certificate' errors'--onWebResourceFailedWithTlsErrors :: (GObject a, MonadIO m) => a -> WebResourceFailedWithTlsErrorsCallback -> m SignalHandlerId-onWebResourceFailedWithTlsErrors obj cb = liftIO $ connectWebResourceFailedWithTlsErrors obj cb SignalConnectBefore-afterWebResourceFailedWithTlsErrors :: (GObject a, MonadIO m) => a -> WebResourceFailedWithTlsErrorsCallback -> m SignalHandlerId-afterWebResourceFailedWithTlsErrors obj cb = connectWebResourceFailedWithTlsErrors obj cb SignalConnectAfter--connectWebResourceFailedWithTlsErrors :: (GObject a, MonadIO m) =>-                                         a -> WebResourceFailedWithTlsErrorsCallback -> SignalConnectMode -> m SignalHandlerId-connectWebResourceFailedWithTlsErrors obj cb after = liftIO $ do-    cb' <- mkWebResourceFailedWithTlsErrorsCallback (webResourceFailedWithTlsErrorsCallbackWrapper cb)-    connectSignalFunPtr obj "failed-with-tls-errors" cb' after---- signal WebResource::finished-type WebResourceFinishedCallback =-    IO ()--noWebResourceFinishedCallback :: Maybe WebResourceFinishedCallback-noWebResourceFinishedCallback = Nothing--type WebResourceFinishedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebResourceFinishedCallback :: WebResourceFinishedCallbackC -> IO (FunPtr WebResourceFinishedCallbackC)--webResourceFinishedClosure :: WebResourceFinishedCallback -> IO Closure-webResourceFinishedClosure cb = newCClosure =<< mkWebResourceFinishedCallback wrapped-    where wrapped = webResourceFinishedCallbackWrapper cb--webResourceFinishedCallbackWrapper ::-    WebResourceFinishedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-webResourceFinishedCallbackWrapper _cb _ _ = do-    _cb --onWebResourceFinished :: (GObject a, MonadIO m) => a -> WebResourceFinishedCallback -> m SignalHandlerId-onWebResourceFinished obj cb = liftIO $ connectWebResourceFinished obj cb SignalConnectBefore-afterWebResourceFinished :: (GObject a, MonadIO m) => a -> WebResourceFinishedCallback -> m SignalHandlerId-afterWebResourceFinished obj cb = connectWebResourceFinished obj cb SignalConnectAfter--connectWebResourceFinished :: (GObject a, MonadIO m) =>-                              a -> WebResourceFinishedCallback -> SignalConnectMode -> m SignalHandlerId-connectWebResourceFinished obj cb after = liftIO $ do-    cb' <- mkWebResourceFinishedCallback (webResourceFinishedCallbackWrapper cb)-    connectSignalFunPtr obj "finished" cb' after---- signal WebResource::received-data-type WebResourceReceivedDataCallback =-    Word64 ->-    IO ()--noWebResourceReceivedDataCallback :: Maybe WebResourceReceivedDataCallback-noWebResourceReceivedDataCallback = Nothing--type WebResourceReceivedDataCallbackC =-    Ptr () ->                               -- object-    Word64 ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebResourceReceivedDataCallback :: WebResourceReceivedDataCallbackC -> IO (FunPtr WebResourceReceivedDataCallbackC)--webResourceReceivedDataClosure :: WebResourceReceivedDataCallback -> IO Closure-webResourceReceivedDataClosure cb = newCClosure =<< mkWebResourceReceivedDataCallback wrapped-    where wrapped = webResourceReceivedDataCallbackWrapper cb--webResourceReceivedDataCallbackWrapper ::-    WebResourceReceivedDataCallback ->-    Ptr () ->-    Word64 ->-    Ptr () ->-    IO ()-webResourceReceivedDataCallbackWrapper _cb _ dataLength _ = do-    _cb  dataLength--onWebResourceReceivedData :: (GObject a, MonadIO m) => a -> WebResourceReceivedDataCallback -> m SignalHandlerId-onWebResourceReceivedData obj cb = liftIO $ connectWebResourceReceivedData obj cb SignalConnectBefore-afterWebResourceReceivedData :: (GObject a, MonadIO m) => a -> WebResourceReceivedDataCallback -> m SignalHandlerId-afterWebResourceReceivedData obj cb = connectWebResourceReceivedData obj cb SignalConnectAfter--connectWebResourceReceivedData :: (GObject a, MonadIO m) =>-                                  a -> WebResourceReceivedDataCallback -> SignalConnectMode -> m SignalHandlerId-connectWebResourceReceivedData obj cb after = liftIO $ do-    cb' <- mkWebResourceReceivedDataCallback (webResourceReceivedDataCallbackWrapper cb)-    connectSignalFunPtr obj "received-data" cb' after---- signal WebResource::sent-request-type WebResourceSentRequestCallback =-    URIRequest ->-    URIResponse ->-    IO ()--noWebResourceSentRequestCallback :: Maybe WebResourceSentRequestCallback-noWebResourceSentRequestCallback = Nothing--type WebResourceSentRequestCallbackC =-    Ptr () ->                               -- object-    Ptr URIRequest ->-    Ptr URIResponse ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebResourceSentRequestCallback :: WebResourceSentRequestCallbackC -> IO (FunPtr WebResourceSentRequestCallbackC)--webResourceSentRequestClosure :: WebResourceSentRequestCallback -> IO Closure-webResourceSentRequestClosure cb = newCClosure =<< mkWebResourceSentRequestCallback wrapped-    where wrapped = webResourceSentRequestCallbackWrapper cb--webResourceSentRequestCallbackWrapper ::-    WebResourceSentRequestCallback ->-    Ptr () ->-    Ptr URIRequest ->-    Ptr URIResponse ->-    Ptr () ->-    IO ()-webResourceSentRequestCallbackWrapper _cb _ request redirectedResponse _ = do-    request' <- (newObject URIRequest) request-    redirectedResponse' <- (newObject URIResponse) redirectedResponse-    _cb  request' redirectedResponse'--onWebResourceSentRequest :: (GObject a, MonadIO m) => a -> WebResourceSentRequestCallback -> m SignalHandlerId-onWebResourceSentRequest obj cb = liftIO $ connectWebResourceSentRequest obj cb SignalConnectBefore-afterWebResourceSentRequest :: (GObject a, MonadIO m) => a -> WebResourceSentRequestCallback -> m SignalHandlerId-afterWebResourceSentRequest obj cb = connectWebResourceSentRequest obj cb SignalConnectAfter--connectWebResourceSentRequest :: (GObject a, MonadIO m) =>-                                 a -> WebResourceSentRequestCallback -> SignalConnectMode -> m SignalHandlerId-connectWebResourceSentRequest obj cb after = liftIO $ do-    cb' <- mkWebResourceSentRequestCallback (webResourceSentRequestCallbackWrapper cb)-    connectSignalFunPtr obj "sent-request" cb' after---- VVV Prop "response"-   -- Type: TInterface "WebKit2" "URIResponse"-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getWebResourceResponse :: (MonadIO m, WebResourceK o) => o -> m URIResponse-getWebResourceResponse obj = liftIO $ checkUnexpectedNothing "getWebResourceResponse" $ getObjectPropertyObject obj "response" URIResponse--data WebResourceResponsePropertyInfo-instance AttrInfo WebResourceResponsePropertyInfo where-    type AttrAllowedOps WebResourceResponsePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WebResourceResponsePropertyInfo = (~) ()-    type AttrBaseTypeConstraint WebResourceResponsePropertyInfo = WebResourceK-    type AttrGetType WebResourceResponsePropertyInfo = URIResponse-    type AttrLabel WebResourceResponsePropertyInfo = "response"-    attrGet _ = getWebResourceResponse-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "uri"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getWebResourceUri :: (MonadIO m, WebResourceK o) => o -> m T.Text-getWebResourceUri obj = liftIO $ checkUnexpectedNothing "getWebResourceUri" $ getObjectPropertyString obj "uri"--data WebResourceUriPropertyInfo-instance AttrInfo WebResourceUriPropertyInfo where-    type AttrAllowedOps WebResourceUriPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WebResourceUriPropertyInfo = (~) ()-    type AttrBaseTypeConstraint WebResourceUriPropertyInfo = WebResourceK-    type AttrGetType WebResourceUriPropertyInfo = T.Text-    type AttrLabel WebResourceUriPropertyInfo = "uri"-    attrGet _ = getWebResourceUri-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined--type instance AttributeList WebResource = WebResourceAttributeList-type WebResourceAttributeList = ('[ '("response", WebResourceResponsePropertyInfo), '("uri", WebResourceUriPropertyInfo)] :: [(Symbol, *)])--webResourceResponse :: AttrLabelProxy "response"-webResourceResponse = AttrLabelProxy--webResourceUri :: AttrLabelProxy "uri"-webResourceUri = AttrLabelProxy--data WebResourceFailedSignalInfo-instance SignalInfo WebResourceFailedSignalInfo where-    type HaskellCallbackType WebResourceFailedSignalInfo = WebResourceFailedCallback-    connectSignal _ = connectWebResourceFailed--data WebResourceFailedWithTlsErrorsSignalInfo-instance SignalInfo WebResourceFailedWithTlsErrorsSignalInfo where-    type HaskellCallbackType WebResourceFailedWithTlsErrorsSignalInfo = WebResourceFailedWithTlsErrorsCallback-    connectSignal _ = connectWebResourceFailedWithTlsErrors--data WebResourceFinishedSignalInfo-instance SignalInfo WebResourceFinishedSignalInfo where-    type HaskellCallbackType WebResourceFinishedSignalInfo = WebResourceFinishedCallback-    connectSignal _ = connectWebResourceFinished--data WebResourceReceivedDataSignalInfo-instance SignalInfo WebResourceReceivedDataSignalInfo where-    type HaskellCallbackType WebResourceReceivedDataSignalInfo = WebResourceReceivedDataCallback-    connectSignal _ = connectWebResourceReceivedData--data WebResourceSentRequestSignalInfo-instance SignalInfo WebResourceSentRequestSignalInfo where-    type HaskellCallbackType WebResourceSentRequestSignalInfo = WebResourceSentRequestCallback-    connectSignal _ = connectWebResourceSentRequest--type instance SignalList WebResource = WebResourceSignalList-type WebResourceSignalList = ('[ '("failed", WebResourceFailedSignalInfo), '("failedWithTlsErrors", WebResourceFailedWithTlsErrorsSignalInfo), '("finished", WebResourceFinishedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("receivedData", WebResourceReceivedDataSignalInfo), '("sentRequest", WebResourceSentRequestSignalInfo)] :: [(Symbol, *)])---- method WebResource::get_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_resource_get_data" webkit_web_resource_get_data :: -    Ptr WebResource ->                      -- _obj : TInterface "WebKit2" "WebResource"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---webResourceGetData ::-    (MonadIO m, WebResourceK a, Gio.CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> Maybe (Gio.AsyncReadyCallback)       -- callback-    -> m ()                                 -- result-webResourceGetData _obj cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    webkit_web_resource_get_data _obj' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data WebResourceGetDataMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, WebResourceK a, Gio.CancellableK b) => MethodInfo WebResourceGetDataMethodInfo a signature where-    overloadedMethod _ = webResourceGetData---- method WebResource::get_data_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : Just (TCArray False (-1) 2 (TBasicType TUInt8))--- throws : True--- Skip return : False--foreign import ccall "webkit_web_resource_get_data_finish" webkit_web_resource_get_data_finish :: -    Ptr WebResource ->                      -- _obj : TInterface "WebKit2" "WebResource"-    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Word8)---webResourceGetDataFinish ::-    (MonadIO m, WebResourceK a, Gio.AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ByteString                         -- result-webResourceGetDataFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    length_ <- allocMem :: IO (Ptr Word64)-    onException (do-        result <- propagateGError $ webkit_web_resource_get_data_finish _obj' result_' length_-        length_' <- peek length_-        checkUnexpectedReturnNULL "webkit_web_resource_get_data_finish" result-        result' <- (unpackByteStringWithLength length_') result-        freeMem result-        touchManagedPtr _obj-        touchManagedPtr result_-        freeMem length_-        return result'-     ) (do-        freeMem length_-     )--data WebResourceGetDataFinishMethodInfo-instance (signature ~ (b -> m ByteString), MonadIO m, WebResourceK a, Gio.AsyncResultK b) => MethodInfo WebResourceGetDataFinishMethodInfo a signature where-    overloadedMethod _ = webResourceGetDataFinish---- method WebResource::get_response--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "URIResponse")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_resource_get_response" webkit_web_resource_get_response :: -    Ptr WebResource ->                      -- _obj : TInterface "WebKit2" "WebResource"-    IO (Ptr URIResponse)---webResourceGetResponse ::-    (MonadIO m, WebResourceK a) =>-    a                                       -- _obj-    -> m URIResponse                        -- result-webResourceGetResponse _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_resource_get_response _obj'-    checkUnexpectedReturnNULL "webkit_web_resource_get_response" result-    result' <- (newObject URIResponse) result-    touchManagedPtr _obj-    return result'--data WebResourceGetResponseMethodInfo-instance (signature ~ (m URIResponse), MonadIO m, WebResourceK a) => MethodInfo WebResourceGetResponseMethodInfo a signature where-    overloadedMethod _ = webResourceGetResponse---- method WebResource::get_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_web_resource_get_uri" webkit_web_resource_get_uri :: -    Ptr WebResource ->                      -- _obj : TInterface "WebKit2" "WebResource"-    IO CString---webResourceGetUri ::-    (MonadIO m, WebResourceK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-webResourceGetUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_resource_get_uri _obj'-    checkUnexpectedReturnNULL "webkit_web_resource_get_uri" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data WebResourceGetUriMethodInfo-instance (signature ~ (m T.Text), MonadIO m, WebResourceK a) => MethodInfo WebResourceGetUriMethodInfo a signature where-    overloadedMethod _ = webResourceGetUri--
− GI/WebKit2/Objects/WebResource.hs-boot 
@@ -1,24 +0,0 @@-module GI.WebKit2.Objects.WebResource where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype WebResource = WebResource (ForeignPtr WebResource)-instance GObject WebResource where-class GObject o => WebResourceK o-instance (GObject o, IsDescendantOf WebResource o) => WebResourceK o-data WebResourceResponsePropertyInfo-data WebResourceUriPropertyInfo-data WebResourceFailedSignalInfo-data WebResourceFailedWithTlsErrorsSignalInfo-data WebResourceFinishedSignalInfo-data WebResourceReceivedDataSignalInfo-data WebResourceSentRequestSignalInfo-data WebResourceGetDataMethodInfo-data WebResourceGetDataFinishMethodInfo-data WebResourceGetResponseMethodInfo-data WebResourceGetUriMethodInfo
− GI/WebKit2/Objects/WebView.hs 
@@ -1,4720 +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.WebKit2.Objects.WebView-    ( ---- * Exported types-    WebView(..)                             ,-    WebViewK                                ,-    toWebView                               ,-    noWebView                               ,--- -- * Methods--- ** webViewCanExecuteEditingCommand-    WebViewCanExecuteEditingCommandMethodInfo,-    webViewCanExecuteEditingCommand         ,----- ** webViewCanExecuteEditingCommandFinish-    WebViewCanExecuteEditingCommandFinishMethodInfo,-    webViewCanExecuteEditingCommandFinish   ,----- ** webViewCanGoBack-    WebViewCanGoBackMethodInfo              ,-    webViewCanGoBack                        ,----- ** webViewCanGoForward-    WebViewCanGoForwardMethodInfo           ,-    webViewCanGoForward                     ,----- ** webViewCanShowMimeType-    WebViewCanShowMimeTypeMethodInfo        ,-    webViewCanShowMimeType                  ,----- ** webViewDownloadUri-    WebViewDownloadUriMethodInfo            ,-    webViewDownloadUri                      ,----- ** webViewExecuteEditingCommand-    WebViewExecuteEditingCommandMethodInfo  ,-    webViewExecuteEditingCommand            ,----- ** webViewExecuteEditingCommandWithArgument-    WebViewExecuteEditingCommandWithArgumentMethodInfo,-    webViewExecuteEditingCommandWithArgument,----- ** webViewGetBackForwardList-    WebViewGetBackForwardListMethodInfo     ,-    webViewGetBackForwardList               ,----- ** webViewGetBackgroundColor-    WebViewGetBackgroundColorMethodInfo     ,-    webViewGetBackgroundColor               ,----- ** webViewGetContext-    WebViewGetContextMethodInfo             ,-    webViewGetContext                       ,----- ** webViewGetCustomCharset-    WebViewGetCustomCharsetMethodInfo       ,-    webViewGetCustomCharset                 ,----- ** webViewGetEditorState-    WebViewGetEditorStateMethodInfo         ,-    webViewGetEditorState                   ,----- ** webViewGetEstimatedLoadProgress-    WebViewGetEstimatedLoadProgressMethodInfo,-    webViewGetEstimatedLoadProgress         ,----- ** webViewGetFavicon-    WebViewGetFaviconMethodInfo             ,-    webViewGetFavicon                       ,----- ** webViewGetFindController-    WebViewGetFindControllerMethodInfo      ,-    webViewGetFindController                ,----- ** webViewGetInspector-    WebViewGetInspectorMethodInfo           ,-    webViewGetInspector                     ,----- ** webViewGetJavascriptGlobalContext-    WebViewGetJavascriptGlobalContextMethodInfo,-    webViewGetJavascriptGlobalContext       ,----- ** webViewGetMainResource-    WebViewGetMainResourceMethodInfo        ,-    webViewGetMainResource                  ,----- ** webViewGetPageId-    WebViewGetPageIdMethodInfo              ,-    webViewGetPageId                        ,----- ** webViewGetSessionState-    WebViewGetSessionStateMethodInfo        ,-    webViewGetSessionState                  ,----- ** webViewGetSettings-    WebViewGetSettingsMethodInfo            ,-    webViewGetSettings                      ,----- ** webViewGetSnapshot-    WebViewGetSnapshotMethodInfo            ,-    webViewGetSnapshot                      ,----- ** webViewGetSnapshotFinish-    WebViewGetSnapshotFinishMethodInfo      ,-    webViewGetSnapshotFinish                ,----- ** webViewGetTitle-    WebViewGetTitleMethodInfo               ,-    webViewGetTitle                         ,----- ** webViewGetTlsInfo-    WebViewGetTlsInfoMethodInfo             ,-    webViewGetTlsInfo                       ,----- ** webViewGetUri-    WebViewGetUriMethodInfo                 ,-    webViewGetUri                           ,----- ** webViewGetUserContentManager-    WebViewGetUserContentManagerMethodInfo  ,-    webViewGetUserContentManager            ,----- ** webViewGetWindowProperties-    WebViewGetWindowPropertiesMethodInfo    ,-    webViewGetWindowProperties              ,----- ** webViewGetZoomLevel-    WebViewGetZoomLevelMethodInfo           ,-    webViewGetZoomLevel                     ,----- ** webViewGoBack-    WebViewGoBackMethodInfo                 ,-    webViewGoBack                           ,----- ** webViewGoForward-    WebViewGoForwardMethodInfo              ,-    webViewGoForward                        ,----- ** webViewGoToBackForwardListItem-    WebViewGoToBackForwardListItemMethodInfo,-    webViewGoToBackForwardListItem          ,----- ** webViewIsEditable-    WebViewIsEditableMethodInfo             ,-    webViewIsEditable                       ,----- ** webViewIsLoading-    WebViewIsLoadingMethodInfo              ,-    webViewIsLoading                        ,----- ** webViewIsPlayingAudio-    WebViewIsPlayingAudioMethodInfo         ,-    webViewIsPlayingAudio                   ,----- ** webViewLoadAlternateHtml-    WebViewLoadAlternateHtmlMethodInfo      ,-    webViewLoadAlternateHtml                ,----- ** webViewLoadBytes-    WebViewLoadBytesMethodInfo              ,-    webViewLoadBytes                        ,----- ** webViewLoadHtml-    WebViewLoadHtmlMethodInfo               ,-    webViewLoadHtml                         ,----- ** webViewLoadPlainText-    WebViewLoadPlainTextMethodInfo          ,-    webViewLoadPlainText                    ,----- ** webViewLoadRequest-    WebViewLoadRequestMethodInfo            ,-    webViewLoadRequest                      ,----- ** webViewLoadUri-    WebViewLoadUriMethodInfo                ,-    webViewLoadUri                          ,----- ** webViewNew-    webViewNew                              ,----- ** webViewNewWithContext-    webViewNewWithContext                   ,----- ** webViewNewWithRelatedView-    WebViewNewWithRelatedViewMethodInfo     ,-    webViewNewWithRelatedView               ,----- ** webViewNewWithSettings-    webViewNewWithSettings                  ,----- ** webViewNewWithUserContentManager-    webViewNewWithUserContentManager        ,----- ** webViewReload-    WebViewReloadMethodInfo                 ,-    webViewReload                           ,----- ** webViewReloadBypassCache-    WebViewReloadBypassCacheMethodInfo      ,-    webViewReloadBypassCache                ,----- ** webViewRestoreSessionState-    WebViewRestoreSessionStateMethodInfo    ,-    webViewRestoreSessionState              ,----- ** webViewRunJavascript-    WebViewRunJavascriptMethodInfo          ,-    webViewRunJavascript                    ,----- ** webViewRunJavascriptFinish-    WebViewRunJavascriptFinishMethodInfo    ,-    webViewRunJavascriptFinish              ,----- ** webViewRunJavascriptFromGresource-    WebViewRunJavascriptFromGresourceMethodInfo,-    webViewRunJavascriptFromGresource       ,----- ** webViewRunJavascriptFromGresourceFinish-    WebViewRunJavascriptFromGresourceFinishMethodInfo,-    webViewRunJavascriptFromGresourceFinish ,----- ** webViewSave-    WebViewSaveMethodInfo                   ,-    webViewSave                             ,----- ** webViewSaveFinish-    WebViewSaveFinishMethodInfo             ,-    webViewSaveFinish                       ,----- ** webViewSaveToFile-    WebViewSaveToFileMethodInfo             ,-    webViewSaveToFile                       ,----- ** webViewSaveToFileFinish-    WebViewSaveToFileFinishMethodInfo       ,-    webViewSaveToFileFinish                 ,----- ** webViewSetBackgroundColor-    WebViewSetBackgroundColorMethodInfo     ,-    webViewSetBackgroundColor               ,----- ** webViewSetCustomCharset-    WebViewSetCustomCharsetMethodInfo       ,-    webViewSetCustomCharset                 ,----- ** webViewSetEditable-    WebViewSetEditableMethodInfo            ,-    webViewSetEditable                      ,----- ** webViewSetSettings-    WebViewSetSettingsMethodInfo            ,-    webViewSetSettings                      ,----- ** webViewSetZoomLevel-    WebViewSetZoomLevelMethodInfo           ,-    webViewSetZoomLevel                     ,----- ** webViewStopLoading-    WebViewStopLoadingMethodInfo            ,-    webViewStopLoading                      ,----- ** webViewTryClose-    WebViewTryCloseMethodInfo               ,-    webViewTryClose                         ,----- -- * Properties--- ** Editable-    WebViewEditablePropertyInfo             ,-    constructWebViewEditable                ,-    getWebViewEditable                      ,-    setWebViewEditable                      ,-    webViewEditable                         ,----- ** EstimatedLoadProgress-    WebViewEstimatedLoadProgressPropertyInfo,-    getWebViewEstimatedLoadProgress         ,-    webViewEstimatedLoadProgress            ,----- ** Favicon-    WebViewFaviconPropertyInfo              ,-    getWebViewFavicon                       ,-    webViewFavicon                          ,----- ** IsLoading-    WebViewIsLoadingPropertyInfo            ,-    getWebViewIsLoading                     ,----- ** IsPlayingAudio-    WebViewIsPlayingAudioPropertyInfo       ,-    getWebViewIsPlayingAudio                ,----- ** RelatedView-    WebViewRelatedViewPropertyInfo          ,-    constructWebViewRelatedView             ,-    webViewRelatedView                      ,----- ** Settings-    WebViewSettingsPropertyInfo             ,-    constructWebViewSettings                ,-    setWebViewSettings                      ,-    webViewSettings                         ,----- ** Title-    WebViewTitlePropertyInfo                ,-    getWebViewTitle                         ,-    webViewTitle                            ,----- ** Uri-    WebViewUriPropertyInfo                  ,-    getWebViewUri                           ,-    webViewUri                              ,----- ** UserContentManager-    WebViewUserContentManagerPropertyInfo   ,-    constructWebViewUserContentManager      ,-    getWebViewUserContentManager            ,-    webViewUserContentManager               ,----- ** WebContext-    WebViewWebContextPropertyInfo           ,-    constructWebViewWebContext              ,-    getWebViewWebContext                    ,-    webViewWebContext                       ,----- ** ZoomLevel-    WebViewZoomLevelPropertyInfo            ,-    constructWebViewZoomLevel               ,-    getWebViewZoomLevel                     ,-    setWebViewZoomLevel                     ,-    webViewZoomLevel                        ,----- -- * Signals--- ** Authenticate-    WebViewAuthenticateCallback             ,-    WebViewAuthenticateCallbackC            ,-    WebViewAuthenticateSignalInfo           ,-    afterWebViewAuthenticate                ,-    mkWebViewAuthenticateCallback           ,-    noWebViewAuthenticateCallback           ,-    onWebViewAuthenticate                   ,-    webViewAuthenticateCallbackWrapper      ,-    webViewAuthenticateClosure              ,----- ** Close-    WebViewCloseCallback                    ,-    WebViewCloseCallbackC                   ,-    WebViewCloseSignalInfo                  ,-    afterWebViewClose                       ,-    mkWebViewCloseCallback                  ,-    noWebViewCloseCallback                  ,-    onWebViewClose                          ,-    webViewCloseCallbackWrapper             ,-    webViewCloseClosure                     ,----- ** ContextMenu-    WebViewContextMenuCallback              ,-    WebViewContextMenuCallbackC             ,-    WebViewContextMenuSignalInfo            ,-    afterWebViewContextMenu                 ,-    mkWebViewContextMenuCallback            ,-    noWebViewContextMenuCallback            ,-    onWebViewContextMenu                    ,-    webViewContextMenuCallbackWrapper       ,-    webViewContextMenuClosure               ,----- ** ContextMenuDismissed-    WebViewContextMenuDismissedCallback     ,-    WebViewContextMenuDismissedCallbackC    ,-    WebViewContextMenuDismissedSignalInfo   ,-    afterWebViewContextMenuDismissed        ,-    mkWebViewContextMenuDismissedCallback   ,-    noWebViewContextMenuDismissedCallback   ,-    onWebViewContextMenuDismissed           ,-    webViewContextMenuDismissedCallbackWrapper,-    webViewContextMenuDismissedClosure      ,----- ** Create-    WebViewCreateCallback                   ,-    WebViewCreateCallbackC                  ,-    WebViewCreateSignalInfo                 ,-    afterWebViewCreate                      ,-    mkWebViewCreateCallback                 ,-    noWebViewCreateCallback                 ,-    onWebViewCreate                         ,-    webViewCreateCallbackWrapper            ,-    webViewCreateClosure                    ,----- ** DecidePolicy-    WebViewDecidePolicyCallback             ,-    WebViewDecidePolicyCallbackC            ,-    WebViewDecidePolicySignalInfo           ,-    afterWebViewDecidePolicy                ,-    mkWebViewDecidePolicyCallback           ,-    noWebViewDecidePolicyCallback           ,-    onWebViewDecidePolicy                   ,-    webViewDecidePolicyCallbackWrapper      ,-    webViewDecidePolicyClosure              ,----- ** EnterFullscreen-    WebViewEnterFullscreenCallback          ,-    WebViewEnterFullscreenCallbackC         ,-    WebViewEnterFullscreenSignalInfo        ,-    afterWebViewEnterFullscreen             ,-    mkWebViewEnterFullscreenCallback        ,-    noWebViewEnterFullscreenCallback        ,-    onWebViewEnterFullscreen                ,-    webViewEnterFullscreenCallbackWrapper   ,-    webViewEnterFullscreenClosure           ,----- ** InsecureContentDetected-    WebViewInsecureContentDetectedCallback  ,-    WebViewInsecureContentDetectedCallbackC ,-    WebViewInsecureContentDetectedSignalInfo,-    afterWebViewInsecureContentDetected     ,-    mkWebViewInsecureContentDetectedCallback,-    noWebViewInsecureContentDetectedCallback,-    onWebViewInsecureContentDetected        ,-    webViewInsecureContentDetectedCallbackWrapper,-    webViewInsecureContentDetectedClosure   ,----- ** LeaveFullscreen-    WebViewLeaveFullscreenCallback          ,-    WebViewLeaveFullscreenCallbackC         ,-    WebViewLeaveFullscreenSignalInfo        ,-    afterWebViewLeaveFullscreen             ,-    mkWebViewLeaveFullscreenCallback        ,-    noWebViewLeaveFullscreenCallback        ,-    onWebViewLeaveFullscreen                ,-    webViewLeaveFullscreenCallbackWrapper   ,-    webViewLeaveFullscreenClosure           ,----- ** LoadChanged-    WebViewLoadChangedCallback              ,-    WebViewLoadChangedCallbackC             ,-    WebViewLoadChangedSignalInfo            ,-    afterWebViewLoadChanged                 ,-    mkWebViewLoadChangedCallback            ,-    noWebViewLoadChangedCallback            ,-    onWebViewLoadChanged                    ,-    webViewLoadChangedCallbackWrapper       ,-    webViewLoadChangedClosure               ,----- ** LoadFailed-    WebViewLoadFailedCallback               ,-    WebViewLoadFailedCallbackC              ,-    WebViewLoadFailedSignalInfo             ,-    afterWebViewLoadFailed                  ,-    mkWebViewLoadFailedCallback             ,-    noWebViewLoadFailedCallback             ,-    onWebViewLoadFailed                     ,-    webViewLoadFailedCallbackWrapper        ,-    webViewLoadFailedClosure                ,----- ** LoadFailedWithTlsErrors-    WebViewLoadFailedWithTlsErrorsCallback  ,-    WebViewLoadFailedWithTlsErrorsCallbackC ,-    WebViewLoadFailedWithTlsErrorsSignalInfo,-    afterWebViewLoadFailedWithTlsErrors     ,-    mkWebViewLoadFailedWithTlsErrorsCallback,-    noWebViewLoadFailedWithTlsErrorsCallback,-    onWebViewLoadFailedWithTlsErrors        ,-    webViewLoadFailedWithTlsErrorsCallbackWrapper,-    webViewLoadFailedWithTlsErrorsClosure   ,----- ** MouseTargetChanged-    WebViewMouseTargetChangedCallback       ,-    WebViewMouseTargetChangedCallbackC      ,-    WebViewMouseTargetChangedSignalInfo     ,-    afterWebViewMouseTargetChanged          ,-    mkWebViewMouseTargetChangedCallback     ,-    noWebViewMouseTargetChangedCallback     ,-    onWebViewMouseTargetChanged             ,-    webViewMouseTargetChangedCallbackWrapper,-    webViewMouseTargetChangedClosure        ,----- ** PermissionRequest-    WebViewPermissionRequestCallback        ,-    WebViewPermissionRequestCallbackC       ,-    WebViewPermissionRequestSignalInfo      ,-    afterWebViewPermissionRequest           ,-    mkWebViewPermissionRequestCallback      ,-    noWebViewPermissionRequestCallback      ,-    onWebViewPermissionRequest              ,-    webViewPermissionRequestCallbackWrapper ,-    webViewPermissionRequestClosure         ,----- ** Print-    WebViewPrintCallback                    ,-    WebViewPrintCallbackC                   ,-    WebViewPrintSignalInfo                  ,-    afterWebViewPrint                       ,-    mkWebViewPrintCallback                  ,-    noWebViewPrintCallback                  ,-    onWebViewPrint                          ,-    webViewPrintCallbackWrapper             ,-    webViewPrintClosure                     ,----- ** ReadyToShow-    WebViewReadyToShowCallback              ,-    WebViewReadyToShowCallbackC             ,-    WebViewReadyToShowSignalInfo            ,-    afterWebViewReadyToShow                 ,-    mkWebViewReadyToShowCallback            ,-    noWebViewReadyToShowCallback            ,-    onWebViewReadyToShow                    ,-    webViewReadyToShowCallbackWrapper       ,-    webViewReadyToShowClosure               ,----- ** ResourceLoadStarted-    WebViewResourceLoadStartedCallback      ,-    WebViewResourceLoadStartedCallbackC     ,-    WebViewResourceLoadStartedSignalInfo    ,-    afterWebViewResourceLoadStarted         ,-    mkWebViewResourceLoadStartedCallback    ,-    noWebViewResourceLoadStartedCallback    ,-    onWebViewResourceLoadStarted            ,-    webViewResourceLoadStartedCallbackWrapper,-    webViewResourceLoadStartedClosure       ,----- ** RunAsModal-    WebViewRunAsModalCallback               ,-    WebViewRunAsModalCallbackC              ,-    WebViewRunAsModalSignalInfo             ,-    afterWebViewRunAsModal                  ,-    mkWebViewRunAsModalCallback             ,-    noWebViewRunAsModalCallback             ,-    onWebViewRunAsModal                     ,-    webViewRunAsModalCallbackWrapper        ,-    webViewRunAsModalClosure                ,----- ** RunColorChooser-    WebViewRunColorChooserCallback          ,-    WebViewRunColorChooserCallbackC         ,-    WebViewRunColorChooserSignalInfo        ,-    afterWebViewRunColorChooser             ,-    mkWebViewRunColorChooserCallback        ,-    noWebViewRunColorChooserCallback        ,-    onWebViewRunColorChooser                ,-    webViewRunColorChooserCallbackWrapper   ,-    webViewRunColorChooserClosure           ,----- ** RunFileChooser-    WebViewRunFileChooserCallback           ,-    WebViewRunFileChooserCallbackC          ,-    WebViewRunFileChooserSignalInfo         ,-    afterWebViewRunFileChooser              ,-    mkWebViewRunFileChooserCallback         ,-    noWebViewRunFileChooserCallback         ,-    onWebViewRunFileChooser                 ,-    webViewRunFileChooserCallbackWrapper    ,-    webViewRunFileChooserClosure            ,----- ** ScriptDialog-    WebViewScriptDialogCallback             ,-    WebViewScriptDialogCallbackC            ,-    WebViewScriptDialogSignalInfo           ,-    afterWebViewScriptDialog                ,-    mkWebViewScriptDialogCallback           ,-    noWebViewScriptDialogCallback           ,-    onWebViewScriptDialog                   ,-    webViewScriptDialogCallbackWrapper      ,-    webViewScriptDialogClosure              ,----- ** ShowNotification-    WebViewShowNotificationCallback         ,-    WebViewShowNotificationCallbackC        ,-    WebViewShowNotificationSignalInfo       ,-    afterWebViewShowNotification            ,-    mkWebViewShowNotificationCallback       ,-    noWebViewShowNotificationCallback       ,-    onWebViewShowNotification               ,-    webViewShowNotificationCallbackWrapper  ,-    webViewShowNotificationClosure          ,----- ** SubmitForm-    WebViewSubmitFormCallback               ,-    WebViewSubmitFormCallbackC              ,-    WebViewSubmitFormSignalInfo             ,-    afterWebViewSubmitForm                  ,-    mkWebViewSubmitFormCallback             ,-    noWebViewSubmitFormCallback             ,-    onWebViewSubmitForm                     ,-    webViewSubmitFormCallbackWrapper        ,-    webViewSubmitFormClosure                ,----- ** WebProcessCrashed-    WebViewWebProcessCrashedCallback        ,-    WebViewWebProcessCrashedCallbackC       ,-    WebViewWebProcessCrashedSignalInfo      ,-    afterWebViewWebProcessCrashed           ,-    mkWebViewWebProcessCrashedCallback      ,-    noWebViewWebProcessCrashedCallback      ,-    onWebViewWebProcessCrashed              ,-    webViewWebProcessCrashedCallbackWrapper ,-    webViewWebProcessCrashedClosure         ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.Atk as Atk-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject-import qualified GI.Gdk as Gdk-import qualified GI.Gio as Gio-import qualified GI.Gtk as Gtk-import qualified GI.JavaScriptCore as JavaScriptCore-import qualified GI.Cairo as Cairo--newtype WebView = WebView (ForeignPtr WebView)-foreign import ccall "webkit_web_view_get_type"-    c_webkit_web_view_get_type :: IO GType--type instance ParentTypes WebView = WebViewParentTypes-type WebViewParentTypes = '[WebViewBase, Gtk.Container, Gtk.Widget, GObject.Object, Atk.ImplementorIface, Gtk.Buildable]--instance GObject WebView where-    gobjectIsInitiallyUnowned _ = True-    gobjectType _ = c_webkit_web_view_get_type-    --class GObject o => WebViewK o-instance (GObject o, IsDescendantOf WebView o) => WebViewK o--toWebView :: WebViewK o => o -> IO WebView-toWebView = unsafeCastTo WebView--noWebView :: Maybe WebView-noWebView = Nothing--type family ResolveWebViewMethod (t :: Symbol) (o :: *) :: * where-    ResolveWebViewMethod "activate" o = Gtk.WidgetActivateMethodInfo-    ResolveWebViewMethod "add" o = Gtk.ContainerAddMethodInfo-    ResolveWebViewMethod "addAccelerator" o = Gtk.WidgetAddAcceleratorMethodInfo-    ResolveWebViewMethod "addChild" o = Gtk.BuildableAddChildMethodInfo-    ResolveWebViewMethod "addDeviceEvents" o = Gtk.WidgetAddDeviceEventsMethodInfo-    ResolveWebViewMethod "addEvents" o = Gtk.WidgetAddEventsMethodInfo-    ResolveWebViewMethod "addMnemonicLabel" o = Gtk.WidgetAddMnemonicLabelMethodInfo-    ResolveWebViewMethod "addTickCallback" o = Gtk.WidgetAddTickCallbackMethodInfo-    ResolveWebViewMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveWebViewMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveWebViewMethod "canActivateAccel" o = Gtk.WidgetCanActivateAccelMethodInfo-    ResolveWebViewMethod "canExecuteEditingCommand" o = WebViewCanExecuteEditingCommandMethodInfo-    ResolveWebViewMethod "canExecuteEditingCommandFinish" o = WebViewCanExecuteEditingCommandFinishMethodInfo-    ResolveWebViewMethod "canGoBack" o = WebViewCanGoBackMethodInfo-    ResolveWebViewMethod "canGoForward" o = WebViewCanGoForwardMethodInfo-    ResolveWebViewMethod "canShowMimeType" o = WebViewCanShowMimeTypeMethodInfo-    ResolveWebViewMethod "checkResize" o = Gtk.ContainerCheckResizeMethodInfo-    ResolveWebViewMethod "childFocus" o = Gtk.WidgetChildFocusMethodInfo-    ResolveWebViewMethod "childGetProperty" o = Gtk.ContainerChildGetPropertyMethodInfo-    ResolveWebViewMethod "childNotifyByPspec" o = Gtk.ContainerChildNotifyByPspecMethodInfo-    ResolveWebViewMethod "childSetProperty" o = Gtk.ContainerChildSetPropertyMethodInfo-    ResolveWebViewMethod "childType" o = Gtk.ContainerChildTypeMethodInfo-    ResolveWebViewMethod "classPath" o = Gtk.WidgetClassPathMethodInfo-    ResolveWebViewMethod "computeExpand" o = Gtk.WidgetComputeExpandMethodInfo-    ResolveWebViewMethod "constructChild" o = Gtk.BuildableConstructChildMethodInfo-    ResolveWebViewMethod "createPangoContext" o = Gtk.WidgetCreatePangoContextMethodInfo-    ResolveWebViewMethod "createPangoLayout" o = Gtk.WidgetCreatePangoLayoutMethodInfo-    ResolveWebViewMethod "customFinished" o = Gtk.BuildableCustomFinishedMethodInfo-    ResolveWebViewMethod "customTagEnd" o = Gtk.BuildableCustomTagEndMethodInfo-    ResolveWebViewMethod "customTagStart" o = Gtk.BuildableCustomTagStartMethodInfo-    ResolveWebViewMethod "destroy" o = Gtk.WidgetDestroyMethodInfo-    ResolveWebViewMethod "destroyed" o = Gtk.WidgetDestroyedMethodInfo-    ResolveWebViewMethod "deviceIsShadowed" o = Gtk.WidgetDeviceIsShadowedMethodInfo-    ResolveWebViewMethod "downloadUri" o = WebViewDownloadUriMethodInfo-    ResolveWebViewMethod "dragBegin" o = Gtk.WidgetDragBeginMethodInfo-    ResolveWebViewMethod "dragBeginWithCoordinates" o = Gtk.WidgetDragBeginWithCoordinatesMethodInfo-    ResolveWebViewMethod "dragCheckThreshold" o = Gtk.WidgetDragCheckThresholdMethodInfo-    ResolveWebViewMethod "dragDestAddImageTargets" o = Gtk.WidgetDragDestAddImageTargetsMethodInfo-    ResolveWebViewMethod "dragDestAddTextTargets" o = Gtk.WidgetDragDestAddTextTargetsMethodInfo-    ResolveWebViewMethod "dragDestAddUriTargets" o = Gtk.WidgetDragDestAddUriTargetsMethodInfo-    ResolveWebViewMethod "dragDestFindTarget" o = Gtk.WidgetDragDestFindTargetMethodInfo-    ResolveWebViewMethod "dragDestGetTargetList" o = Gtk.WidgetDragDestGetTargetListMethodInfo-    ResolveWebViewMethod "dragDestGetTrackMotion" o = Gtk.WidgetDragDestGetTrackMotionMethodInfo-    ResolveWebViewMethod "dragDestSet" o = Gtk.WidgetDragDestSetMethodInfo-    ResolveWebViewMethod "dragDestSetProxy" o = Gtk.WidgetDragDestSetProxyMethodInfo-    ResolveWebViewMethod "dragDestSetTargetList" o = Gtk.WidgetDragDestSetTargetListMethodInfo-    ResolveWebViewMethod "dragDestSetTrackMotion" o = Gtk.WidgetDragDestSetTrackMotionMethodInfo-    ResolveWebViewMethod "dragDestUnset" o = Gtk.WidgetDragDestUnsetMethodInfo-    ResolveWebViewMethod "dragGetData" o = Gtk.WidgetDragGetDataMethodInfo-    ResolveWebViewMethod "dragHighlight" o = Gtk.WidgetDragHighlightMethodInfo-    ResolveWebViewMethod "dragSourceAddImageTargets" o = Gtk.WidgetDragSourceAddImageTargetsMethodInfo-    ResolveWebViewMethod "dragSourceAddTextTargets" o = Gtk.WidgetDragSourceAddTextTargetsMethodInfo-    ResolveWebViewMethod "dragSourceAddUriTargets" o = Gtk.WidgetDragSourceAddUriTargetsMethodInfo-    ResolveWebViewMethod "dragSourceGetTargetList" o = Gtk.WidgetDragSourceGetTargetListMethodInfo-    ResolveWebViewMethod "dragSourceSet" o = Gtk.WidgetDragSourceSetMethodInfo-    ResolveWebViewMethod "dragSourceSetIconGicon" o = Gtk.WidgetDragSourceSetIconGiconMethodInfo-    ResolveWebViewMethod "dragSourceSetIconName" o = Gtk.WidgetDragSourceSetIconNameMethodInfo-    ResolveWebViewMethod "dragSourceSetIconPixbuf" o = Gtk.WidgetDragSourceSetIconPixbufMethodInfo-    ResolveWebViewMethod "dragSourceSetIconStock" o = Gtk.WidgetDragSourceSetIconStockMethodInfo-    ResolveWebViewMethod "dragSourceSetTargetList" o = Gtk.WidgetDragSourceSetTargetListMethodInfo-    ResolveWebViewMethod "dragSourceUnset" o = Gtk.WidgetDragSourceUnsetMethodInfo-    ResolveWebViewMethod "dragUnhighlight" o = Gtk.WidgetDragUnhighlightMethodInfo-    ResolveWebViewMethod "draw" o = Gtk.WidgetDrawMethodInfo-    ResolveWebViewMethod "ensureStyle" o = Gtk.WidgetEnsureStyleMethodInfo-    ResolveWebViewMethod "errorBell" o = Gtk.WidgetErrorBellMethodInfo-    ResolveWebViewMethod "event" o = Gtk.WidgetEventMethodInfo-    ResolveWebViewMethod "executeEditingCommand" o = WebViewExecuteEditingCommandMethodInfo-    ResolveWebViewMethod "executeEditingCommandWithArgument" o = WebViewExecuteEditingCommandWithArgumentMethodInfo-    ResolveWebViewMethod "forall" o = Gtk.ContainerForallMethodInfo-    ResolveWebViewMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveWebViewMethod "foreach" o = Gtk.ContainerForeachMethodInfo-    ResolveWebViewMethod "freezeChildNotify" o = Gtk.WidgetFreezeChildNotifyMethodInfo-    ResolveWebViewMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveWebViewMethod "goBack" o = WebViewGoBackMethodInfo-    ResolveWebViewMethod "goForward" o = WebViewGoForwardMethodInfo-    ResolveWebViewMethod "goToBackForwardListItem" o = WebViewGoToBackForwardListItemMethodInfo-    ResolveWebViewMethod "grabAdd" o = Gtk.WidgetGrabAddMethodInfo-    ResolveWebViewMethod "grabDefault" o = Gtk.WidgetGrabDefaultMethodInfo-    ResolveWebViewMethod "grabFocus" o = Gtk.WidgetGrabFocusMethodInfo-    ResolveWebViewMethod "grabRemove" o = Gtk.WidgetGrabRemoveMethodInfo-    ResolveWebViewMethod "hasDefault" o = Gtk.WidgetHasDefaultMethodInfo-    ResolveWebViewMethod "hasFocus" o = Gtk.WidgetHasFocusMethodInfo-    ResolveWebViewMethod "hasGrab" o = Gtk.WidgetHasGrabMethodInfo-    ResolveWebViewMethod "hasRcStyle" o = Gtk.WidgetHasRcStyleMethodInfo-    ResolveWebViewMethod "hasScreen" o = Gtk.WidgetHasScreenMethodInfo-    ResolveWebViewMethod "hasVisibleFocus" o = Gtk.WidgetHasVisibleFocusMethodInfo-    ResolveWebViewMethod "hide" o = Gtk.WidgetHideMethodInfo-    ResolveWebViewMethod "hideOnDelete" o = Gtk.WidgetHideOnDeleteMethodInfo-    ResolveWebViewMethod "inDestruction" o = Gtk.WidgetInDestructionMethodInfo-    ResolveWebViewMethod "initTemplate" o = Gtk.WidgetInitTemplateMethodInfo-    ResolveWebViewMethod "inputShapeCombineRegion" o = Gtk.WidgetInputShapeCombineRegionMethodInfo-    ResolveWebViewMethod "insertActionGroup" o = Gtk.WidgetInsertActionGroupMethodInfo-    ResolveWebViewMethod "intersect" o = Gtk.WidgetIntersectMethodInfo-    ResolveWebViewMethod "isAncestor" o = Gtk.WidgetIsAncestorMethodInfo-    ResolveWebViewMethod "isComposited" o = Gtk.WidgetIsCompositedMethodInfo-    ResolveWebViewMethod "isDrawable" o = Gtk.WidgetIsDrawableMethodInfo-    ResolveWebViewMethod "isEditable" o = WebViewIsEditableMethodInfo-    ResolveWebViewMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveWebViewMethod "isFocus" o = Gtk.WidgetIsFocusMethodInfo-    ResolveWebViewMethod "isLoading" o = WebViewIsLoadingMethodInfo-    ResolveWebViewMethod "isPlayingAudio" o = WebViewIsPlayingAudioMethodInfo-    ResolveWebViewMethod "isSensitive" o = Gtk.WidgetIsSensitiveMethodInfo-    ResolveWebViewMethod "isToplevel" o = Gtk.WidgetIsToplevelMethodInfo-    ResolveWebViewMethod "isVisible" o = Gtk.WidgetIsVisibleMethodInfo-    ResolveWebViewMethod "keynavFailed" o = Gtk.WidgetKeynavFailedMethodInfo-    ResolveWebViewMethod "listAccelClosures" o = Gtk.WidgetListAccelClosuresMethodInfo-    ResolveWebViewMethod "listActionPrefixes" o = Gtk.WidgetListActionPrefixesMethodInfo-    ResolveWebViewMethod "listMnemonicLabels" o = Gtk.WidgetListMnemonicLabelsMethodInfo-    ResolveWebViewMethod "loadAlternateHtml" o = WebViewLoadAlternateHtmlMethodInfo-    ResolveWebViewMethod "loadBytes" o = WebViewLoadBytesMethodInfo-    ResolveWebViewMethod "loadHtml" o = WebViewLoadHtmlMethodInfo-    ResolveWebViewMethod "loadPlainText" o = WebViewLoadPlainTextMethodInfo-    ResolveWebViewMethod "loadRequest" o = WebViewLoadRequestMethodInfo-    ResolveWebViewMethod "loadUri" o = WebViewLoadUriMethodInfo-    ResolveWebViewMethod "map" o = Gtk.WidgetMapMethodInfo-    ResolveWebViewMethod "mnemonicActivate" o = Gtk.WidgetMnemonicActivateMethodInfo-    ResolveWebViewMethod "modifyBase" o = Gtk.WidgetModifyBaseMethodInfo-    ResolveWebViewMethod "modifyBg" o = Gtk.WidgetModifyBgMethodInfo-    ResolveWebViewMethod "modifyCursor" o = Gtk.WidgetModifyCursorMethodInfo-    ResolveWebViewMethod "modifyFg" o = Gtk.WidgetModifyFgMethodInfo-    ResolveWebViewMethod "modifyFont" o = Gtk.WidgetModifyFontMethodInfo-    ResolveWebViewMethod "modifyStyle" o = Gtk.WidgetModifyStyleMethodInfo-    ResolveWebViewMethod "modifyText" o = Gtk.WidgetModifyTextMethodInfo-    ResolveWebViewMethod "newWithRelatedView" o = WebViewNewWithRelatedViewMethodInfo-    ResolveWebViewMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveWebViewMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveWebViewMethod "overrideBackgroundColor" o = Gtk.WidgetOverrideBackgroundColorMethodInfo-    ResolveWebViewMethod "overrideColor" o = Gtk.WidgetOverrideColorMethodInfo-    ResolveWebViewMethod "overrideCursor" o = Gtk.WidgetOverrideCursorMethodInfo-    ResolveWebViewMethod "overrideFont" o = Gtk.WidgetOverrideFontMethodInfo-    ResolveWebViewMethod "overrideSymbolicColor" o = Gtk.WidgetOverrideSymbolicColorMethodInfo-    ResolveWebViewMethod "parserFinished" o = Gtk.BuildableParserFinishedMethodInfo-    ResolveWebViewMethod "path" o = Gtk.WidgetPathMethodInfo-    ResolveWebViewMethod "propagateDraw" o = Gtk.ContainerPropagateDrawMethodInfo-    ResolveWebViewMethod "queueComputeExpand" o = Gtk.WidgetQueueComputeExpandMethodInfo-    ResolveWebViewMethod "queueDraw" o = Gtk.WidgetQueueDrawMethodInfo-    ResolveWebViewMethod "queueDrawArea" o = Gtk.WidgetQueueDrawAreaMethodInfo-    ResolveWebViewMethod "queueDrawRegion" o = Gtk.WidgetQueueDrawRegionMethodInfo-    ResolveWebViewMethod "queueResize" o = Gtk.WidgetQueueResizeMethodInfo-    ResolveWebViewMethod "queueResizeNoRedraw" o = Gtk.WidgetQueueResizeNoRedrawMethodInfo-    ResolveWebViewMethod "realize" o = Gtk.WidgetRealizeMethodInfo-    ResolveWebViewMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveWebViewMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveWebViewMethod "regionIntersect" o = Gtk.WidgetRegionIntersectMethodInfo-    ResolveWebViewMethod "registerWindow" o = Gtk.WidgetRegisterWindowMethodInfo-    ResolveWebViewMethod "reload" o = WebViewReloadMethodInfo-    ResolveWebViewMethod "reloadBypassCache" o = WebViewReloadBypassCacheMethodInfo-    ResolveWebViewMethod "remove" o = Gtk.ContainerRemoveMethodInfo-    ResolveWebViewMethod "removeAccelerator" o = Gtk.WidgetRemoveAcceleratorMethodInfo-    ResolveWebViewMethod "removeMnemonicLabel" o = Gtk.WidgetRemoveMnemonicLabelMethodInfo-    ResolveWebViewMethod "removeTickCallback" o = Gtk.WidgetRemoveTickCallbackMethodInfo-    ResolveWebViewMethod "renderIcon" o = Gtk.WidgetRenderIconMethodInfo-    ResolveWebViewMethod "renderIconPixbuf" o = Gtk.WidgetRenderIconPixbufMethodInfo-    ResolveWebViewMethod "reparent" o = Gtk.WidgetReparentMethodInfo-    ResolveWebViewMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveWebViewMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveWebViewMethod "resetRcStyles" o = Gtk.WidgetResetRcStylesMethodInfo-    ResolveWebViewMethod "resetStyle" o = Gtk.WidgetResetStyleMethodInfo-    ResolveWebViewMethod "resizeChildren" o = Gtk.ContainerResizeChildrenMethodInfo-    ResolveWebViewMethod "restoreSessionState" o = WebViewRestoreSessionStateMethodInfo-    ResolveWebViewMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveWebViewMethod "runJavascript" o = WebViewRunJavascriptMethodInfo-    ResolveWebViewMethod "runJavascriptFinish" o = WebViewRunJavascriptFinishMethodInfo-    ResolveWebViewMethod "runJavascriptFromGresource" o = WebViewRunJavascriptFromGresourceMethodInfo-    ResolveWebViewMethod "runJavascriptFromGresourceFinish" o = WebViewRunJavascriptFromGresourceFinishMethodInfo-    ResolveWebViewMethod "save" o = WebViewSaveMethodInfo-    ResolveWebViewMethod "saveFinish" o = WebViewSaveFinishMethodInfo-    ResolveWebViewMethod "saveToFile" o = WebViewSaveToFileMethodInfo-    ResolveWebViewMethod "saveToFileFinish" o = WebViewSaveToFileFinishMethodInfo-    ResolveWebViewMethod "sendExpose" o = Gtk.WidgetSendExposeMethodInfo-    ResolveWebViewMethod "sendFocusChange" o = Gtk.WidgetSendFocusChangeMethodInfo-    ResolveWebViewMethod "shapeCombineRegion" o = Gtk.WidgetShapeCombineRegionMethodInfo-    ResolveWebViewMethod "show" o = Gtk.WidgetShowMethodInfo-    ResolveWebViewMethod "showAll" o = Gtk.WidgetShowAllMethodInfo-    ResolveWebViewMethod "showNow" o = Gtk.WidgetShowNowMethodInfo-    ResolveWebViewMethod "sizeAllocate" o = Gtk.WidgetSizeAllocateMethodInfo-    ResolveWebViewMethod "sizeAllocateWithBaseline" o = Gtk.WidgetSizeAllocateWithBaselineMethodInfo-    ResolveWebViewMethod "sizeRequest" o = Gtk.WidgetSizeRequestMethodInfo-    ResolveWebViewMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveWebViewMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveWebViewMethod "stopLoading" o = WebViewStopLoadingMethodInfo-    ResolveWebViewMethod "styleAttach" o = Gtk.WidgetStyleAttachMethodInfo-    ResolveWebViewMethod "styleGetProperty" o = Gtk.WidgetStyleGetPropertyMethodInfo-    ResolveWebViewMethod "thawChildNotify" o = Gtk.WidgetThawChildNotifyMethodInfo-    ResolveWebViewMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveWebViewMethod "translateCoordinates" o = Gtk.WidgetTranslateCoordinatesMethodInfo-    ResolveWebViewMethod "triggerTooltipQuery" o = Gtk.WidgetTriggerTooltipQueryMethodInfo-    ResolveWebViewMethod "tryClose" o = WebViewTryCloseMethodInfo-    ResolveWebViewMethod "unmap" o = Gtk.WidgetUnmapMethodInfo-    ResolveWebViewMethod "unparent" o = Gtk.WidgetUnparentMethodInfo-    ResolveWebViewMethod "unrealize" o = Gtk.WidgetUnrealizeMethodInfo-    ResolveWebViewMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveWebViewMethod "unregisterWindow" o = Gtk.WidgetUnregisterWindowMethodInfo-    ResolveWebViewMethod "unsetFocusChain" o = Gtk.ContainerUnsetFocusChainMethodInfo-    ResolveWebViewMethod "unsetStateFlags" o = Gtk.WidgetUnsetStateFlagsMethodInfo-    ResolveWebViewMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveWebViewMethod "getAccessible" o = Gtk.WidgetGetAccessibleMethodInfo-    ResolveWebViewMethod "getActionGroup" o = Gtk.WidgetGetActionGroupMethodInfo-    ResolveWebViewMethod "getAllocatedBaseline" o = Gtk.WidgetGetAllocatedBaselineMethodInfo-    ResolveWebViewMethod "getAllocatedHeight" o = Gtk.WidgetGetAllocatedHeightMethodInfo-    ResolveWebViewMethod "getAllocatedWidth" o = Gtk.WidgetGetAllocatedWidthMethodInfo-    ResolveWebViewMethod "getAllocation" o = Gtk.WidgetGetAllocationMethodInfo-    ResolveWebViewMethod "getAncestor" o = Gtk.WidgetGetAncestorMethodInfo-    ResolveWebViewMethod "getAppPaintable" o = Gtk.WidgetGetAppPaintableMethodInfo-    ResolveWebViewMethod "getBackForwardList" o = WebViewGetBackForwardListMethodInfo-    ResolveWebViewMethod "getBackgroundColor" o = WebViewGetBackgroundColorMethodInfo-    ResolveWebViewMethod "getBorderWidth" o = Gtk.ContainerGetBorderWidthMethodInfo-    ResolveWebViewMethod "getCanDefault" o = Gtk.WidgetGetCanDefaultMethodInfo-    ResolveWebViewMethod "getCanFocus" o = Gtk.WidgetGetCanFocusMethodInfo-    ResolveWebViewMethod "getChildRequisition" o = Gtk.WidgetGetChildRequisitionMethodInfo-    ResolveWebViewMethod "getChildVisible" o = Gtk.WidgetGetChildVisibleMethodInfo-    ResolveWebViewMethod "getChildren" o = Gtk.ContainerGetChildrenMethodInfo-    ResolveWebViewMethod "getClip" o = Gtk.WidgetGetClipMethodInfo-    ResolveWebViewMethod "getClipboard" o = Gtk.WidgetGetClipboardMethodInfo-    ResolveWebViewMethod "getCompositeName" o = Gtk.WidgetGetCompositeNameMethodInfo-    ResolveWebViewMethod "getContext" o = WebViewGetContextMethodInfo-    ResolveWebViewMethod "getCustomCharset" o = WebViewGetCustomCharsetMethodInfo-    ResolveWebViewMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveWebViewMethod "getDeviceEnabled" o = Gtk.WidgetGetDeviceEnabledMethodInfo-    ResolveWebViewMethod "getDeviceEvents" o = Gtk.WidgetGetDeviceEventsMethodInfo-    ResolveWebViewMethod "getDirection" o = Gtk.WidgetGetDirectionMethodInfo-    ResolveWebViewMethod "getDisplay" o = Gtk.WidgetGetDisplayMethodInfo-    ResolveWebViewMethod "getDoubleBuffered" o = Gtk.WidgetGetDoubleBufferedMethodInfo-    ResolveWebViewMethod "getEditorState" o = WebViewGetEditorStateMethodInfo-    ResolveWebViewMethod "getEstimatedLoadProgress" o = WebViewGetEstimatedLoadProgressMethodInfo-    ResolveWebViewMethod "getEvents" o = Gtk.WidgetGetEventsMethodInfo-    ResolveWebViewMethod "getFavicon" o = WebViewGetFaviconMethodInfo-    ResolveWebViewMethod "getFindController" o = WebViewGetFindControllerMethodInfo-    ResolveWebViewMethod "getFocusChain" o = Gtk.ContainerGetFocusChainMethodInfo-    ResolveWebViewMethod "getFocusChild" o = Gtk.ContainerGetFocusChildMethodInfo-    ResolveWebViewMethod "getFocusHadjustment" o = Gtk.ContainerGetFocusHadjustmentMethodInfo-    ResolveWebViewMethod "getFocusVadjustment" o = Gtk.ContainerGetFocusVadjustmentMethodInfo-    ResolveWebViewMethod "getFontMap" o = Gtk.WidgetGetFontMapMethodInfo-    ResolveWebViewMethod "getFontOptions" o = Gtk.WidgetGetFontOptionsMethodInfo-    ResolveWebViewMethod "getFrameClock" o = Gtk.WidgetGetFrameClockMethodInfo-    ResolveWebViewMethod "getHalign" o = Gtk.WidgetGetHalignMethodInfo-    ResolveWebViewMethod "getHasTooltip" o = Gtk.WidgetGetHasTooltipMethodInfo-    ResolveWebViewMethod "getHasWindow" o = Gtk.WidgetGetHasWindowMethodInfo-    ResolveWebViewMethod "getHexpand" o = Gtk.WidgetGetHexpandMethodInfo-    ResolveWebViewMethod "getHexpandSet" o = Gtk.WidgetGetHexpandSetMethodInfo-    ResolveWebViewMethod "getInspector" o = WebViewGetInspectorMethodInfo-    ResolveWebViewMethod "getInternalChild" o = Gtk.BuildableGetInternalChildMethodInfo-    ResolveWebViewMethod "getJavascriptGlobalContext" o = WebViewGetJavascriptGlobalContextMethodInfo-    ResolveWebViewMethod "getMainResource" o = WebViewGetMainResourceMethodInfo-    ResolveWebViewMethod "getMapped" o = Gtk.WidgetGetMappedMethodInfo-    ResolveWebViewMethod "getMarginBottom" o = Gtk.WidgetGetMarginBottomMethodInfo-    ResolveWebViewMethod "getMarginEnd" o = Gtk.WidgetGetMarginEndMethodInfo-    ResolveWebViewMethod "getMarginLeft" o = Gtk.WidgetGetMarginLeftMethodInfo-    ResolveWebViewMethod "getMarginRight" o = Gtk.WidgetGetMarginRightMethodInfo-    ResolveWebViewMethod "getMarginStart" o = Gtk.WidgetGetMarginStartMethodInfo-    ResolveWebViewMethod "getMarginTop" o = Gtk.WidgetGetMarginTopMethodInfo-    ResolveWebViewMethod "getModifierMask" o = Gtk.WidgetGetModifierMaskMethodInfo-    ResolveWebViewMethod "getModifierStyle" o = Gtk.WidgetGetModifierStyleMethodInfo-    ResolveWebViewMethod "getNoShowAll" o = Gtk.WidgetGetNoShowAllMethodInfo-    ResolveWebViewMethod "getOpacity" o = Gtk.WidgetGetOpacityMethodInfo-    ResolveWebViewMethod "getPageId" o = WebViewGetPageIdMethodInfo-    ResolveWebViewMethod "getPangoContext" o = Gtk.WidgetGetPangoContextMethodInfo-    ResolveWebViewMethod "getParent" o = Gtk.WidgetGetParentMethodInfo-    ResolveWebViewMethod "getParentWindow" o = Gtk.WidgetGetParentWindowMethodInfo-    ResolveWebViewMethod "getPath" o = Gtk.WidgetGetPathMethodInfo-    ResolveWebViewMethod "getPathForChild" o = Gtk.ContainerGetPathForChildMethodInfo-    ResolveWebViewMethod "getPointer" o = Gtk.WidgetGetPointerMethodInfo-    ResolveWebViewMethod "getPreferredHeight" o = Gtk.WidgetGetPreferredHeightMethodInfo-    ResolveWebViewMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo-    ResolveWebViewMethod "getPreferredHeightForWidth" o = Gtk.WidgetGetPreferredHeightForWidthMethodInfo-    ResolveWebViewMethod "getPreferredSize" o = Gtk.WidgetGetPreferredSizeMethodInfo-    ResolveWebViewMethod "getPreferredWidth" o = Gtk.WidgetGetPreferredWidthMethodInfo-    ResolveWebViewMethod "getPreferredWidthForHeight" o = Gtk.WidgetGetPreferredWidthForHeightMethodInfo-    ResolveWebViewMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveWebViewMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveWebViewMethod "getRealized" o = Gtk.WidgetGetRealizedMethodInfo-    ResolveWebViewMethod "getReceivesDefault" o = Gtk.WidgetGetReceivesDefaultMethodInfo-    ResolveWebViewMethod "getRequestMode" o = Gtk.WidgetGetRequestModeMethodInfo-    ResolveWebViewMethod "getRequisition" o = Gtk.WidgetGetRequisitionMethodInfo-    ResolveWebViewMethod "getResizeMode" o = Gtk.ContainerGetResizeModeMethodInfo-    ResolveWebViewMethod "getRootWindow" o = Gtk.WidgetGetRootWindowMethodInfo-    ResolveWebViewMethod "getScaleFactor" o = Gtk.WidgetGetScaleFactorMethodInfo-    ResolveWebViewMethod "getScreen" o = Gtk.WidgetGetScreenMethodInfo-    ResolveWebViewMethod "getSensitive" o = Gtk.WidgetGetSensitiveMethodInfo-    ResolveWebViewMethod "getSessionState" o = WebViewGetSessionStateMethodInfo-    ResolveWebViewMethod "getSizeRequest" o = Gtk.WidgetGetSizeRequestMethodInfo-    ResolveWebViewMethod "getSnapshot" o = WebViewGetSnapshotMethodInfo-    ResolveWebViewMethod "getSnapshotFinish" o = WebViewGetSnapshotFinishMethodInfo-    ResolveWebViewMethod "getState" o = Gtk.WidgetGetStateMethodInfo-    ResolveWebViewMethod "getStateFlags" o = Gtk.WidgetGetStateFlagsMethodInfo-    ResolveWebViewMethod "getStyle" o = Gtk.WidgetGetStyleMethodInfo-    ResolveWebViewMethod "getStyleContext" o = Gtk.WidgetGetStyleContextMethodInfo-    ResolveWebViewMethod "getSupportMultidevice" o = Gtk.WidgetGetSupportMultideviceMethodInfo-    ResolveWebViewMethod "getTemplateChild" o = Gtk.WidgetGetTemplateChildMethodInfo-    ResolveWebViewMethod "getTitle" o = WebViewGetTitleMethodInfo-    ResolveWebViewMethod "getTlsInfo" o = WebViewGetTlsInfoMethodInfo-    ResolveWebViewMethod "getTooltipMarkup" o = Gtk.WidgetGetTooltipMarkupMethodInfo-    ResolveWebViewMethod "getTooltipText" o = Gtk.WidgetGetTooltipTextMethodInfo-    ResolveWebViewMethod "getTooltipWindow" o = Gtk.WidgetGetTooltipWindowMethodInfo-    ResolveWebViewMethod "getToplevel" o = Gtk.WidgetGetToplevelMethodInfo-    ResolveWebViewMethod "getUri" o = WebViewGetUriMethodInfo-    ResolveWebViewMethod "getUserContentManager" o = WebViewGetUserContentManagerMethodInfo-    ResolveWebViewMethod "getValign" o = Gtk.WidgetGetValignMethodInfo-    ResolveWebViewMethod "getValignWithBaseline" o = Gtk.WidgetGetValignWithBaselineMethodInfo-    ResolveWebViewMethod "getVexpand" o = Gtk.WidgetGetVexpandMethodInfo-    ResolveWebViewMethod "getVexpandSet" o = Gtk.WidgetGetVexpandSetMethodInfo-    ResolveWebViewMethod "getVisible" o = Gtk.WidgetGetVisibleMethodInfo-    ResolveWebViewMethod "getVisual" o = Gtk.WidgetGetVisualMethodInfo-    ResolveWebViewMethod "getWindow" o = Gtk.WidgetGetWindowMethodInfo-    ResolveWebViewMethod "getWindowProperties" o = WebViewGetWindowPropertiesMethodInfo-    ResolveWebViewMethod "getZoomLevel" o = WebViewGetZoomLevelMethodInfo-    ResolveWebViewMethod "setAccelPath" o = Gtk.WidgetSetAccelPathMethodInfo-    ResolveWebViewMethod "setAllocation" o = Gtk.WidgetSetAllocationMethodInfo-    ResolveWebViewMethod "setAppPaintable" o = Gtk.WidgetSetAppPaintableMethodInfo-    ResolveWebViewMethod "setBackgroundColor" o = WebViewSetBackgroundColorMethodInfo-    ResolveWebViewMethod "setBorderWidth" o = Gtk.ContainerSetBorderWidthMethodInfo-    ResolveWebViewMethod "setBuildableProperty" o = Gtk.BuildableSetBuildablePropertyMethodInfo-    ResolveWebViewMethod "setCanDefault" o = Gtk.WidgetSetCanDefaultMethodInfo-    ResolveWebViewMethod "setCanFocus" o = Gtk.WidgetSetCanFocusMethodInfo-    ResolveWebViewMethod "setChildVisible" o = Gtk.WidgetSetChildVisibleMethodInfo-    ResolveWebViewMethod "setClip" o = Gtk.WidgetSetClipMethodInfo-    ResolveWebViewMethod "setCompositeName" o = Gtk.WidgetSetCompositeNameMethodInfo-    ResolveWebViewMethod "setCustomCharset" o = WebViewSetCustomCharsetMethodInfo-    ResolveWebViewMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveWebViewMethod "setDeviceEnabled" o = Gtk.WidgetSetDeviceEnabledMethodInfo-    ResolveWebViewMethod "setDeviceEvents" o = Gtk.WidgetSetDeviceEventsMethodInfo-    ResolveWebViewMethod "setDirection" o = Gtk.WidgetSetDirectionMethodInfo-    ResolveWebViewMethod "setDoubleBuffered" o = Gtk.WidgetSetDoubleBufferedMethodInfo-    ResolveWebViewMethod "setEditable" o = WebViewSetEditableMethodInfo-    ResolveWebViewMethod "setEvents" o = Gtk.WidgetSetEventsMethodInfo-    ResolveWebViewMethod "setFocusChain" o = Gtk.ContainerSetFocusChainMethodInfo-    ResolveWebViewMethod "setFocusChild" o = Gtk.ContainerSetFocusChildMethodInfo-    ResolveWebViewMethod "setFocusHadjustment" o = Gtk.ContainerSetFocusHadjustmentMethodInfo-    ResolveWebViewMethod "setFocusVadjustment" o = Gtk.ContainerSetFocusVadjustmentMethodInfo-    ResolveWebViewMethod "setFontMap" o = Gtk.WidgetSetFontMapMethodInfo-    ResolveWebViewMethod "setFontOptions" o = Gtk.WidgetSetFontOptionsMethodInfo-    ResolveWebViewMethod "setHalign" o = Gtk.WidgetSetHalignMethodInfo-    ResolveWebViewMethod "setHasTooltip" o = Gtk.WidgetSetHasTooltipMethodInfo-    ResolveWebViewMethod "setHasWindow" o = Gtk.WidgetSetHasWindowMethodInfo-    ResolveWebViewMethod "setHexpand" o = Gtk.WidgetSetHexpandMethodInfo-    ResolveWebViewMethod "setHexpandSet" o = Gtk.WidgetSetHexpandSetMethodInfo-    ResolveWebViewMethod "setMapped" o = Gtk.WidgetSetMappedMethodInfo-    ResolveWebViewMethod "setMarginBottom" o = Gtk.WidgetSetMarginBottomMethodInfo-    ResolveWebViewMethod "setMarginEnd" o = Gtk.WidgetSetMarginEndMethodInfo-    ResolveWebViewMethod "setMarginLeft" o = Gtk.WidgetSetMarginLeftMethodInfo-    ResolveWebViewMethod "setMarginRight" o = Gtk.WidgetSetMarginRightMethodInfo-    ResolveWebViewMethod "setMarginStart" o = Gtk.WidgetSetMarginStartMethodInfo-    ResolveWebViewMethod "setMarginTop" o = Gtk.WidgetSetMarginTopMethodInfo-    ResolveWebViewMethod "setNoShowAll" o = Gtk.WidgetSetNoShowAllMethodInfo-    ResolveWebViewMethod "setOpacity" o = Gtk.WidgetSetOpacityMethodInfo-    ResolveWebViewMethod "setParent" o = Gtk.WidgetSetParentMethodInfo-    ResolveWebViewMethod "setParentWindow" o = Gtk.WidgetSetParentWindowMethodInfo-    ResolveWebViewMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveWebViewMethod "setRealized" o = Gtk.WidgetSetRealizedMethodInfo-    ResolveWebViewMethod "setReallocateRedraws" o = Gtk.ContainerSetReallocateRedrawsMethodInfo-    ResolveWebViewMethod "setReceivesDefault" o = Gtk.WidgetSetReceivesDefaultMethodInfo-    ResolveWebViewMethod "setRedrawOnAllocate" o = Gtk.WidgetSetRedrawOnAllocateMethodInfo-    ResolveWebViewMethod "setResizeMode" o = Gtk.ContainerSetResizeModeMethodInfo-    ResolveWebViewMethod "setSensitive" o = Gtk.WidgetSetSensitiveMethodInfo-    ResolveWebViewMethod "setSettings" o = WebViewSetSettingsMethodInfo-    ResolveWebViewMethod "setSizeRequest" o = Gtk.WidgetSetSizeRequestMethodInfo-    ResolveWebViewMethod "setState" o = Gtk.WidgetSetStateMethodInfo-    ResolveWebViewMethod "setStateFlags" o = Gtk.WidgetSetStateFlagsMethodInfo-    ResolveWebViewMethod "setStyle" o = Gtk.WidgetSetStyleMethodInfo-    ResolveWebViewMethod "setSupportMultidevice" o = Gtk.WidgetSetSupportMultideviceMethodInfo-    ResolveWebViewMethod "setTooltipMarkup" o = Gtk.WidgetSetTooltipMarkupMethodInfo-    ResolveWebViewMethod "setTooltipText" o = Gtk.WidgetSetTooltipTextMethodInfo-    ResolveWebViewMethod "setTooltipWindow" o = Gtk.WidgetSetTooltipWindowMethodInfo-    ResolveWebViewMethod "setValign" o = Gtk.WidgetSetValignMethodInfo-    ResolveWebViewMethod "setVexpand" o = Gtk.WidgetSetVexpandMethodInfo-    ResolveWebViewMethod "setVexpandSet" o = Gtk.WidgetSetVexpandSetMethodInfo-    ResolveWebViewMethod "setVisible" o = Gtk.WidgetSetVisibleMethodInfo-    ResolveWebViewMethod "setVisual" o = Gtk.WidgetSetVisualMethodInfo-    ResolveWebViewMethod "setWindow" o = Gtk.WidgetSetWindowMethodInfo-    ResolveWebViewMethod "setZoomLevel" o = WebViewSetZoomLevelMethodInfo-    ResolveWebViewMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveWebViewMethod t WebView, MethodInfo info WebView p) => IsLabelProxy t (WebView -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveWebViewMethod t WebView, MethodInfo info WebView p) => IsLabel t (WebView -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal WebView::authenticate-type WebViewAuthenticateCallback =-    AuthenticationRequest ->-    IO Bool--noWebViewAuthenticateCallback :: Maybe WebViewAuthenticateCallback-noWebViewAuthenticateCallback = Nothing--type WebViewAuthenticateCallbackC =-    Ptr () ->                               -- object-    Ptr AuthenticationRequest ->-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkWebViewAuthenticateCallback :: WebViewAuthenticateCallbackC -> IO (FunPtr WebViewAuthenticateCallbackC)--webViewAuthenticateClosure :: WebViewAuthenticateCallback -> IO Closure-webViewAuthenticateClosure cb = newCClosure =<< mkWebViewAuthenticateCallback wrapped-    where wrapped = webViewAuthenticateCallbackWrapper cb--webViewAuthenticateCallbackWrapper ::-    WebViewAuthenticateCallback ->-    Ptr () ->-    Ptr AuthenticationRequest ->-    Ptr () ->-    IO CInt-webViewAuthenticateCallbackWrapper _cb _ request _ = do-    request' <- (newObject AuthenticationRequest) request-    result <- _cb  request'-    let result' = (fromIntegral . fromEnum) result-    return result'--onWebViewAuthenticate :: (GObject a, MonadIO m) => a -> WebViewAuthenticateCallback -> m SignalHandlerId-onWebViewAuthenticate obj cb = liftIO $ connectWebViewAuthenticate obj cb SignalConnectBefore-afterWebViewAuthenticate :: (GObject a, MonadIO m) => a -> WebViewAuthenticateCallback -> m SignalHandlerId-afterWebViewAuthenticate obj cb = connectWebViewAuthenticate obj cb SignalConnectAfter--connectWebViewAuthenticate :: (GObject a, MonadIO m) =>-                              a -> WebViewAuthenticateCallback -> SignalConnectMode -> m SignalHandlerId-connectWebViewAuthenticate obj cb after = liftIO $ do-    cb' <- mkWebViewAuthenticateCallback (webViewAuthenticateCallbackWrapper cb)-    connectSignalFunPtr obj "authenticate" cb' after---- signal WebView::close-type WebViewCloseCallback =-    IO ()--noWebViewCloseCallback :: Maybe WebViewCloseCallback-noWebViewCloseCallback = Nothing--type WebViewCloseCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebViewCloseCallback :: WebViewCloseCallbackC -> IO (FunPtr WebViewCloseCallbackC)--webViewCloseClosure :: WebViewCloseCallback -> IO Closure-webViewCloseClosure cb = newCClosure =<< mkWebViewCloseCallback wrapped-    where wrapped = webViewCloseCallbackWrapper cb--webViewCloseCallbackWrapper ::-    WebViewCloseCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-webViewCloseCallbackWrapper _cb _ _ = do-    _cb --onWebViewClose :: (GObject a, MonadIO m) => a -> WebViewCloseCallback -> m SignalHandlerId-onWebViewClose obj cb = liftIO $ connectWebViewClose obj cb SignalConnectBefore-afterWebViewClose :: (GObject a, MonadIO m) => a -> WebViewCloseCallback -> m SignalHandlerId-afterWebViewClose obj cb = connectWebViewClose obj cb SignalConnectAfter--connectWebViewClose :: (GObject a, MonadIO m) =>-                       a -> WebViewCloseCallback -> SignalConnectMode -> m SignalHandlerId-connectWebViewClose obj cb after = liftIO $ do-    cb' <- mkWebViewCloseCallback (webViewCloseCallbackWrapper cb)-    connectSignalFunPtr obj "close" cb' after---- signal WebView::context-menu-type WebViewContextMenuCallback =-    ContextMenu ->-    Gdk.Event ->-    HitTestResult ->-    IO Bool--noWebViewContextMenuCallback :: Maybe WebViewContextMenuCallback-noWebViewContextMenuCallback = Nothing--type WebViewContextMenuCallbackC =-    Ptr () ->                               -- object-    Ptr ContextMenu ->-    Ptr Gdk.Event ->-    Ptr HitTestResult ->-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkWebViewContextMenuCallback :: WebViewContextMenuCallbackC -> IO (FunPtr WebViewContextMenuCallbackC)--webViewContextMenuClosure :: WebViewContextMenuCallback -> IO Closure-webViewContextMenuClosure cb = newCClosure =<< mkWebViewContextMenuCallback wrapped-    where wrapped = webViewContextMenuCallbackWrapper cb--webViewContextMenuCallbackWrapper ::-    WebViewContextMenuCallback ->-    Ptr () ->-    Ptr ContextMenu ->-    Ptr Gdk.Event ->-    Ptr HitTestResult ->-    Ptr () ->-    IO CInt-webViewContextMenuCallbackWrapper _cb _ contextMenu event hitTestResult _ = do-    contextMenu' <- (newObject ContextMenu) contextMenu-    event' <- (newBoxed Gdk.Event) event-    hitTestResult' <- (newObject HitTestResult) hitTestResult-    result <- _cb  contextMenu' event' hitTestResult'-    let result' = (fromIntegral . fromEnum) result-    return result'--onWebViewContextMenu :: (GObject a, MonadIO m) => a -> WebViewContextMenuCallback -> m SignalHandlerId-onWebViewContextMenu obj cb = liftIO $ connectWebViewContextMenu obj cb SignalConnectBefore-afterWebViewContextMenu :: (GObject a, MonadIO m) => a -> WebViewContextMenuCallback -> m SignalHandlerId-afterWebViewContextMenu obj cb = connectWebViewContextMenu obj cb SignalConnectAfter--connectWebViewContextMenu :: (GObject a, MonadIO m) =>-                             a -> WebViewContextMenuCallback -> SignalConnectMode -> m SignalHandlerId-connectWebViewContextMenu obj cb after = liftIO $ do-    cb' <- mkWebViewContextMenuCallback (webViewContextMenuCallbackWrapper cb)-    connectSignalFunPtr obj "context-menu" cb' after---- signal WebView::context-menu-dismissed-type WebViewContextMenuDismissedCallback =-    IO ()--noWebViewContextMenuDismissedCallback :: Maybe WebViewContextMenuDismissedCallback-noWebViewContextMenuDismissedCallback = Nothing--type WebViewContextMenuDismissedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebViewContextMenuDismissedCallback :: WebViewContextMenuDismissedCallbackC -> IO (FunPtr WebViewContextMenuDismissedCallbackC)--webViewContextMenuDismissedClosure :: WebViewContextMenuDismissedCallback -> IO Closure-webViewContextMenuDismissedClosure cb = newCClosure =<< mkWebViewContextMenuDismissedCallback wrapped-    where wrapped = webViewContextMenuDismissedCallbackWrapper cb--webViewContextMenuDismissedCallbackWrapper ::-    WebViewContextMenuDismissedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-webViewContextMenuDismissedCallbackWrapper _cb _ _ = do-    _cb --onWebViewContextMenuDismissed :: (GObject a, MonadIO m) => a -> WebViewContextMenuDismissedCallback -> m SignalHandlerId-onWebViewContextMenuDismissed obj cb = liftIO $ connectWebViewContextMenuDismissed obj cb SignalConnectBefore-afterWebViewContextMenuDismissed :: (GObject a, MonadIO m) => a -> WebViewContextMenuDismissedCallback -> m SignalHandlerId-afterWebViewContextMenuDismissed obj cb = connectWebViewContextMenuDismissed obj cb SignalConnectAfter--connectWebViewContextMenuDismissed :: (GObject a, MonadIO m) =>-                                      a -> WebViewContextMenuDismissedCallback -> SignalConnectMode -> m SignalHandlerId-connectWebViewContextMenuDismissed obj cb after = liftIO $ do-    cb' <- mkWebViewContextMenuDismissedCallback (webViewContextMenuDismissedCallbackWrapper cb)-    connectSignalFunPtr obj "context-menu-dismissed" cb' after---- signal WebView::create-type WebViewCreateCallback =-    NavigationAction ->-    IO Gtk.Widget--noWebViewCreateCallback :: Maybe WebViewCreateCallback-noWebViewCreateCallback = Nothing--type WebViewCreateCallbackC =-    Ptr () ->                               -- object-    Ptr NavigationAction ->-    Ptr () ->                               -- user_data-    IO (Ptr Gtk.Widget)--foreign import ccall "wrapper"-    mkWebViewCreateCallback :: WebViewCreateCallbackC -> IO (FunPtr WebViewCreateCallbackC)--webViewCreateClosure :: WebViewCreateCallback -> IO Closure-webViewCreateClosure cb = newCClosure =<< mkWebViewCreateCallback wrapped-    where wrapped = webViewCreateCallbackWrapper cb--webViewCreateCallbackWrapper ::-    WebViewCreateCallback ->-    Ptr () ->-    Ptr NavigationAction ->-    Ptr () ->-    IO (Ptr Gtk.Widget)-webViewCreateCallbackWrapper _cb _ navigationAction _ = do-    navigationAction' <- (newBoxed NavigationAction) navigationAction-    result <- _cb  navigationAction'-    result' <- refObject result-    return result'--onWebViewCreate :: (GObject a, MonadIO m) => a -> WebViewCreateCallback -> m SignalHandlerId-onWebViewCreate obj cb = liftIO $ connectWebViewCreate obj cb SignalConnectBefore-afterWebViewCreate :: (GObject a, MonadIO m) => a -> WebViewCreateCallback -> m SignalHandlerId-afterWebViewCreate obj cb = connectWebViewCreate obj cb SignalConnectAfter--connectWebViewCreate :: (GObject a, MonadIO m) =>-                        a -> WebViewCreateCallback -> SignalConnectMode -> m SignalHandlerId-connectWebViewCreate obj cb after = liftIO $ do-    cb' <- mkWebViewCreateCallback (webViewCreateCallbackWrapper cb)-    connectSignalFunPtr obj "create" cb' after---- signal WebView::decide-policy-type WebViewDecidePolicyCallback =-    PolicyDecision ->-    PolicyDecisionType ->-    IO Bool--noWebViewDecidePolicyCallback :: Maybe WebViewDecidePolicyCallback-noWebViewDecidePolicyCallback = Nothing--type WebViewDecidePolicyCallbackC =-    Ptr () ->                               -- object-    Ptr PolicyDecision ->-    CUInt ->-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkWebViewDecidePolicyCallback :: WebViewDecidePolicyCallbackC -> IO (FunPtr WebViewDecidePolicyCallbackC)--webViewDecidePolicyClosure :: WebViewDecidePolicyCallback -> IO Closure-webViewDecidePolicyClosure cb = newCClosure =<< mkWebViewDecidePolicyCallback wrapped-    where wrapped = webViewDecidePolicyCallbackWrapper cb--webViewDecidePolicyCallbackWrapper ::-    WebViewDecidePolicyCallback ->-    Ptr () ->-    Ptr PolicyDecision ->-    CUInt ->-    Ptr () ->-    IO CInt-webViewDecidePolicyCallbackWrapper _cb _ decision decisionType _ = do-    decision' <- (newObject PolicyDecision) decision-    let decisionType' = (toEnum . fromIntegral) decisionType-    result <- _cb  decision' decisionType'-    let result' = (fromIntegral . fromEnum) result-    return result'--onWebViewDecidePolicy :: (GObject a, MonadIO m) => a -> WebViewDecidePolicyCallback -> m SignalHandlerId-onWebViewDecidePolicy obj cb = liftIO $ connectWebViewDecidePolicy obj cb SignalConnectBefore-afterWebViewDecidePolicy :: (GObject a, MonadIO m) => a -> WebViewDecidePolicyCallback -> m SignalHandlerId-afterWebViewDecidePolicy obj cb = connectWebViewDecidePolicy obj cb SignalConnectAfter--connectWebViewDecidePolicy :: (GObject a, MonadIO m) =>-                              a -> WebViewDecidePolicyCallback -> SignalConnectMode -> m SignalHandlerId-connectWebViewDecidePolicy obj cb after = liftIO $ do-    cb' <- mkWebViewDecidePolicyCallback (webViewDecidePolicyCallbackWrapper cb)-    connectSignalFunPtr obj "decide-policy" cb' after---- signal WebView::enter-fullscreen-type WebViewEnterFullscreenCallback =-    IO Bool--noWebViewEnterFullscreenCallback :: Maybe WebViewEnterFullscreenCallback-noWebViewEnterFullscreenCallback = Nothing--type WebViewEnterFullscreenCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkWebViewEnterFullscreenCallback :: WebViewEnterFullscreenCallbackC -> IO (FunPtr WebViewEnterFullscreenCallbackC)--webViewEnterFullscreenClosure :: WebViewEnterFullscreenCallback -> IO Closure-webViewEnterFullscreenClosure cb = newCClosure =<< mkWebViewEnterFullscreenCallback wrapped-    where wrapped = webViewEnterFullscreenCallbackWrapper cb--webViewEnterFullscreenCallbackWrapper ::-    WebViewEnterFullscreenCallback ->-    Ptr () ->-    Ptr () ->-    IO CInt-webViewEnterFullscreenCallbackWrapper _cb _ _ = do-    result <- _cb -    let result' = (fromIntegral . fromEnum) result-    return result'--onWebViewEnterFullscreen :: (GObject a, MonadIO m) => a -> WebViewEnterFullscreenCallback -> m SignalHandlerId-onWebViewEnterFullscreen obj cb = liftIO $ connectWebViewEnterFullscreen obj cb SignalConnectBefore-afterWebViewEnterFullscreen :: (GObject a, MonadIO m) => a -> WebViewEnterFullscreenCallback -> m SignalHandlerId-afterWebViewEnterFullscreen obj cb = connectWebViewEnterFullscreen obj cb SignalConnectAfter--connectWebViewEnterFullscreen :: (GObject a, MonadIO m) =>-                                 a -> WebViewEnterFullscreenCallback -> SignalConnectMode -> m SignalHandlerId-connectWebViewEnterFullscreen obj cb after = liftIO $ do-    cb' <- mkWebViewEnterFullscreenCallback (webViewEnterFullscreenCallbackWrapper cb)-    connectSignalFunPtr obj "enter-fullscreen" cb' after---- signal WebView::insecure-content-detected-type WebViewInsecureContentDetectedCallback =-    InsecureContentEvent ->-    IO ()--noWebViewInsecureContentDetectedCallback :: Maybe WebViewInsecureContentDetectedCallback-noWebViewInsecureContentDetectedCallback = Nothing--type WebViewInsecureContentDetectedCallbackC =-    Ptr () ->                               -- object-    CUInt ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebViewInsecureContentDetectedCallback :: WebViewInsecureContentDetectedCallbackC -> IO (FunPtr WebViewInsecureContentDetectedCallbackC)--webViewInsecureContentDetectedClosure :: WebViewInsecureContentDetectedCallback -> IO Closure-webViewInsecureContentDetectedClosure cb = newCClosure =<< mkWebViewInsecureContentDetectedCallback wrapped-    where wrapped = webViewInsecureContentDetectedCallbackWrapper cb--webViewInsecureContentDetectedCallbackWrapper ::-    WebViewInsecureContentDetectedCallback ->-    Ptr () ->-    CUInt ->-    Ptr () ->-    IO ()-webViewInsecureContentDetectedCallbackWrapper _cb _ event _ = do-    let event' = (toEnum . fromIntegral) event-    _cb  event'--onWebViewInsecureContentDetected :: (GObject a, MonadIO m) => a -> WebViewInsecureContentDetectedCallback -> m SignalHandlerId-onWebViewInsecureContentDetected obj cb = liftIO $ connectWebViewInsecureContentDetected obj cb SignalConnectBefore-afterWebViewInsecureContentDetected :: (GObject a, MonadIO m) => a -> WebViewInsecureContentDetectedCallback -> m SignalHandlerId-afterWebViewInsecureContentDetected obj cb = connectWebViewInsecureContentDetected obj cb SignalConnectAfter--connectWebViewInsecureContentDetected :: (GObject a, MonadIO m) =>-                                         a -> WebViewInsecureContentDetectedCallback -> SignalConnectMode -> m SignalHandlerId-connectWebViewInsecureContentDetected obj cb after = liftIO $ do-    cb' <- mkWebViewInsecureContentDetectedCallback (webViewInsecureContentDetectedCallbackWrapper cb)-    connectSignalFunPtr obj "insecure-content-detected" cb' after---- signal WebView::leave-fullscreen-type WebViewLeaveFullscreenCallback =-    IO Bool--noWebViewLeaveFullscreenCallback :: Maybe WebViewLeaveFullscreenCallback-noWebViewLeaveFullscreenCallback = Nothing--type WebViewLeaveFullscreenCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkWebViewLeaveFullscreenCallback :: WebViewLeaveFullscreenCallbackC -> IO (FunPtr WebViewLeaveFullscreenCallbackC)--webViewLeaveFullscreenClosure :: WebViewLeaveFullscreenCallback -> IO Closure-webViewLeaveFullscreenClosure cb = newCClosure =<< mkWebViewLeaveFullscreenCallback wrapped-    where wrapped = webViewLeaveFullscreenCallbackWrapper cb--webViewLeaveFullscreenCallbackWrapper ::-    WebViewLeaveFullscreenCallback ->-    Ptr () ->-    Ptr () ->-    IO CInt-webViewLeaveFullscreenCallbackWrapper _cb _ _ = do-    result <- _cb -    let result' = (fromIntegral . fromEnum) result-    return result'--onWebViewLeaveFullscreen :: (GObject a, MonadIO m) => a -> WebViewLeaveFullscreenCallback -> m SignalHandlerId-onWebViewLeaveFullscreen obj cb = liftIO $ connectWebViewLeaveFullscreen obj cb SignalConnectBefore-afterWebViewLeaveFullscreen :: (GObject a, MonadIO m) => a -> WebViewLeaveFullscreenCallback -> m SignalHandlerId-afterWebViewLeaveFullscreen obj cb = connectWebViewLeaveFullscreen obj cb SignalConnectAfter--connectWebViewLeaveFullscreen :: (GObject a, MonadIO m) =>-                                 a -> WebViewLeaveFullscreenCallback -> SignalConnectMode -> m SignalHandlerId-connectWebViewLeaveFullscreen obj cb after = liftIO $ do-    cb' <- mkWebViewLeaveFullscreenCallback (webViewLeaveFullscreenCallbackWrapper cb)-    connectSignalFunPtr obj "leave-fullscreen" cb' after---- signal WebView::load-changed-type WebViewLoadChangedCallback =-    LoadEvent ->-    IO ()--noWebViewLoadChangedCallback :: Maybe WebViewLoadChangedCallback-noWebViewLoadChangedCallback = Nothing--type WebViewLoadChangedCallbackC =-    Ptr () ->                               -- object-    CUInt ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebViewLoadChangedCallback :: WebViewLoadChangedCallbackC -> IO (FunPtr WebViewLoadChangedCallbackC)--webViewLoadChangedClosure :: WebViewLoadChangedCallback -> IO Closure-webViewLoadChangedClosure cb = newCClosure =<< mkWebViewLoadChangedCallback wrapped-    where wrapped = webViewLoadChangedCallbackWrapper cb--webViewLoadChangedCallbackWrapper ::-    WebViewLoadChangedCallback ->-    Ptr () ->-    CUInt ->-    Ptr () ->-    IO ()-webViewLoadChangedCallbackWrapper _cb _ loadEvent _ = do-    let loadEvent' = (toEnum . fromIntegral) loadEvent-    _cb  loadEvent'--onWebViewLoadChanged :: (GObject a, MonadIO m) => a -> WebViewLoadChangedCallback -> m SignalHandlerId-onWebViewLoadChanged obj cb = liftIO $ connectWebViewLoadChanged obj cb SignalConnectBefore-afterWebViewLoadChanged :: (GObject a, MonadIO m) => a -> WebViewLoadChangedCallback -> m SignalHandlerId-afterWebViewLoadChanged obj cb = connectWebViewLoadChanged obj cb SignalConnectAfter--connectWebViewLoadChanged :: (GObject a, MonadIO m) =>-                             a -> WebViewLoadChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectWebViewLoadChanged obj cb after = liftIO $ do-    cb' <- mkWebViewLoadChangedCallback (webViewLoadChangedCallbackWrapper cb)-    connectSignalFunPtr obj "load-changed" cb' after---- signal WebView::load-failed-type WebViewLoadFailedCallback =-    LoadEvent ->-    T.Text ->-    GError ->-    IO Bool--noWebViewLoadFailedCallback :: Maybe WebViewLoadFailedCallback-noWebViewLoadFailedCallback = Nothing--type WebViewLoadFailedCallbackC =-    Ptr () ->                               -- object-    CUInt ->-    CString ->-    Ptr GError ->-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkWebViewLoadFailedCallback :: WebViewLoadFailedCallbackC -> IO (FunPtr WebViewLoadFailedCallbackC)--webViewLoadFailedClosure :: WebViewLoadFailedCallback -> IO Closure-webViewLoadFailedClosure cb = newCClosure =<< mkWebViewLoadFailedCallback wrapped-    where wrapped = webViewLoadFailedCallbackWrapper cb--webViewLoadFailedCallbackWrapper ::-    WebViewLoadFailedCallback ->-    Ptr () ->-    CUInt ->-    CString ->-    Ptr GError ->-    Ptr () ->-    IO CInt-webViewLoadFailedCallbackWrapper _cb _ loadEvent failingUri error_ _ = do-    let loadEvent' = (toEnum . fromIntegral) loadEvent-    failingUri' <- cstringToText failingUri-    error_' <- (newBoxed GError) error_-    result <- _cb  loadEvent' failingUri' error_'-    let result' = (fromIntegral . fromEnum) result-    return result'--onWebViewLoadFailed :: (GObject a, MonadIO m) => a -> WebViewLoadFailedCallback -> m SignalHandlerId-onWebViewLoadFailed obj cb = liftIO $ connectWebViewLoadFailed obj cb SignalConnectBefore-afterWebViewLoadFailed :: (GObject a, MonadIO m) => a -> WebViewLoadFailedCallback -> m SignalHandlerId-afterWebViewLoadFailed obj cb = connectWebViewLoadFailed obj cb SignalConnectAfter--connectWebViewLoadFailed :: (GObject a, MonadIO m) =>-                            a -> WebViewLoadFailedCallback -> SignalConnectMode -> m SignalHandlerId-connectWebViewLoadFailed obj cb after = liftIO $ do-    cb' <- mkWebViewLoadFailedCallback (webViewLoadFailedCallbackWrapper cb)-    connectSignalFunPtr obj "load-failed" cb' after---- signal WebView::load-failed-with-tls-errors-type WebViewLoadFailedWithTlsErrorsCallback =-    T.Text ->-    Gio.TlsCertificate ->-    [Gio.TlsCertificateFlags] ->-    IO Bool--noWebViewLoadFailedWithTlsErrorsCallback :: Maybe WebViewLoadFailedWithTlsErrorsCallback-noWebViewLoadFailedWithTlsErrorsCallback = Nothing--type WebViewLoadFailedWithTlsErrorsCallbackC =-    Ptr () ->                               -- object-    CString ->-    Ptr Gio.TlsCertificate ->-    CUInt ->-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkWebViewLoadFailedWithTlsErrorsCallback :: WebViewLoadFailedWithTlsErrorsCallbackC -> IO (FunPtr WebViewLoadFailedWithTlsErrorsCallbackC)--webViewLoadFailedWithTlsErrorsClosure :: WebViewLoadFailedWithTlsErrorsCallback -> IO Closure-webViewLoadFailedWithTlsErrorsClosure cb = newCClosure =<< mkWebViewLoadFailedWithTlsErrorsCallback wrapped-    where wrapped = webViewLoadFailedWithTlsErrorsCallbackWrapper cb--webViewLoadFailedWithTlsErrorsCallbackWrapper ::-    WebViewLoadFailedWithTlsErrorsCallback ->-    Ptr () ->-    CString ->-    Ptr Gio.TlsCertificate ->-    CUInt ->-    Ptr () ->-    IO CInt-webViewLoadFailedWithTlsErrorsCallbackWrapper _cb _ failingUri certificate errors _ = do-    failingUri' <- cstringToText failingUri-    certificate' <- (newObject Gio.TlsCertificate) certificate-    let errors' = wordToGFlags errors-    result <- _cb  failingUri' certificate' errors'-    let result' = (fromIntegral . fromEnum) result-    return result'--onWebViewLoadFailedWithTlsErrors :: (GObject a, MonadIO m) => a -> WebViewLoadFailedWithTlsErrorsCallback -> m SignalHandlerId-onWebViewLoadFailedWithTlsErrors obj cb = liftIO $ connectWebViewLoadFailedWithTlsErrors obj cb SignalConnectBefore-afterWebViewLoadFailedWithTlsErrors :: (GObject a, MonadIO m) => a -> WebViewLoadFailedWithTlsErrorsCallback -> m SignalHandlerId-afterWebViewLoadFailedWithTlsErrors obj cb = connectWebViewLoadFailedWithTlsErrors obj cb SignalConnectAfter--connectWebViewLoadFailedWithTlsErrors :: (GObject a, MonadIO m) =>-                                         a -> WebViewLoadFailedWithTlsErrorsCallback -> SignalConnectMode -> m SignalHandlerId-connectWebViewLoadFailedWithTlsErrors obj cb after = liftIO $ do-    cb' <- mkWebViewLoadFailedWithTlsErrorsCallback (webViewLoadFailedWithTlsErrorsCallbackWrapper cb)-    connectSignalFunPtr obj "load-failed-with-tls-errors" cb' after---- signal WebView::mouse-target-changed-type WebViewMouseTargetChangedCallback =-    HitTestResult ->-    Word32 ->-    IO ()--noWebViewMouseTargetChangedCallback :: Maybe WebViewMouseTargetChangedCallback-noWebViewMouseTargetChangedCallback = Nothing--type WebViewMouseTargetChangedCallbackC =-    Ptr () ->                               -- object-    Ptr HitTestResult ->-    Word32 ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebViewMouseTargetChangedCallback :: WebViewMouseTargetChangedCallbackC -> IO (FunPtr WebViewMouseTargetChangedCallbackC)--webViewMouseTargetChangedClosure :: WebViewMouseTargetChangedCallback -> IO Closure-webViewMouseTargetChangedClosure cb = newCClosure =<< mkWebViewMouseTargetChangedCallback wrapped-    where wrapped = webViewMouseTargetChangedCallbackWrapper cb--webViewMouseTargetChangedCallbackWrapper ::-    WebViewMouseTargetChangedCallback ->-    Ptr () ->-    Ptr HitTestResult ->-    Word32 ->-    Ptr () ->-    IO ()-webViewMouseTargetChangedCallbackWrapper _cb _ hitTestResult modifiers _ = do-    hitTestResult' <- (newObject HitTestResult) hitTestResult-    _cb  hitTestResult' modifiers--onWebViewMouseTargetChanged :: (GObject a, MonadIO m) => a -> WebViewMouseTargetChangedCallback -> m SignalHandlerId-onWebViewMouseTargetChanged obj cb = liftIO $ connectWebViewMouseTargetChanged obj cb SignalConnectBefore-afterWebViewMouseTargetChanged :: (GObject a, MonadIO m) => a -> WebViewMouseTargetChangedCallback -> m SignalHandlerId-afterWebViewMouseTargetChanged obj cb = connectWebViewMouseTargetChanged obj cb SignalConnectAfter--connectWebViewMouseTargetChanged :: (GObject a, MonadIO m) =>-                                    a -> WebViewMouseTargetChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectWebViewMouseTargetChanged obj cb after = liftIO $ do-    cb' <- mkWebViewMouseTargetChangedCallback (webViewMouseTargetChangedCallbackWrapper cb)-    connectSignalFunPtr obj "mouse-target-changed" cb' after---- signal WebView::permission-request-type WebViewPermissionRequestCallback =-    PermissionRequest ->-    IO Bool--noWebViewPermissionRequestCallback :: Maybe WebViewPermissionRequestCallback-noWebViewPermissionRequestCallback = Nothing--type WebViewPermissionRequestCallbackC =-    Ptr () ->                               -- object-    Ptr PermissionRequest ->-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkWebViewPermissionRequestCallback :: WebViewPermissionRequestCallbackC -> IO (FunPtr WebViewPermissionRequestCallbackC)--webViewPermissionRequestClosure :: WebViewPermissionRequestCallback -> IO Closure-webViewPermissionRequestClosure cb = newCClosure =<< mkWebViewPermissionRequestCallback wrapped-    where wrapped = webViewPermissionRequestCallbackWrapper cb--webViewPermissionRequestCallbackWrapper ::-    WebViewPermissionRequestCallback ->-    Ptr () ->-    Ptr PermissionRequest ->-    Ptr () ->-    IO CInt-webViewPermissionRequestCallbackWrapper _cb _ request _ = do-    request' <- (newObject PermissionRequest) request-    result <- _cb  request'-    let result' = (fromIntegral . fromEnum) result-    return result'--onWebViewPermissionRequest :: (GObject a, MonadIO m) => a -> WebViewPermissionRequestCallback -> m SignalHandlerId-onWebViewPermissionRequest obj cb = liftIO $ connectWebViewPermissionRequest obj cb SignalConnectBefore-afterWebViewPermissionRequest :: (GObject a, MonadIO m) => a -> WebViewPermissionRequestCallback -> m SignalHandlerId-afterWebViewPermissionRequest obj cb = connectWebViewPermissionRequest obj cb SignalConnectAfter--connectWebViewPermissionRequest :: (GObject a, MonadIO m) =>-                                   a -> WebViewPermissionRequestCallback -> SignalConnectMode -> m SignalHandlerId-connectWebViewPermissionRequest obj cb after = liftIO $ do-    cb' <- mkWebViewPermissionRequestCallback (webViewPermissionRequestCallbackWrapper cb)-    connectSignalFunPtr obj "permission-request" cb' after---- signal WebView::print-type WebViewPrintCallback =-    PrintOperation ->-    IO Bool--noWebViewPrintCallback :: Maybe WebViewPrintCallback-noWebViewPrintCallback = Nothing--type WebViewPrintCallbackC =-    Ptr () ->                               -- object-    Ptr PrintOperation ->-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkWebViewPrintCallback :: WebViewPrintCallbackC -> IO (FunPtr WebViewPrintCallbackC)--webViewPrintClosure :: WebViewPrintCallback -> IO Closure-webViewPrintClosure cb = newCClosure =<< mkWebViewPrintCallback wrapped-    where wrapped = webViewPrintCallbackWrapper cb--webViewPrintCallbackWrapper ::-    WebViewPrintCallback ->-    Ptr () ->-    Ptr PrintOperation ->-    Ptr () ->-    IO CInt-webViewPrintCallbackWrapper _cb _ printOperation _ = do-    printOperation' <- (newObject PrintOperation) printOperation-    result <- _cb  printOperation'-    let result' = (fromIntegral . fromEnum) result-    return result'--onWebViewPrint :: (GObject a, MonadIO m) => a -> WebViewPrintCallback -> m SignalHandlerId-onWebViewPrint obj cb = liftIO $ connectWebViewPrint obj cb SignalConnectBefore-afterWebViewPrint :: (GObject a, MonadIO m) => a -> WebViewPrintCallback -> m SignalHandlerId-afterWebViewPrint obj cb = connectWebViewPrint obj cb SignalConnectAfter--connectWebViewPrint :: (GObject a, MonadIO m) =>-                       a -> WebViewPrintCallback -> SignalConnectMode -> m SignalHandlerId-connectWebViewPrint obj cb after = liftIO $ do-    cb' <- mkWebViewPrintCallback (webViewPrintCallbackWrapper cb)-    connectSignalFunPtr obj "print" cb' after---- signal WebView::ready-to-show-type WebViewReadyToShowCallback =-    IO ()--noWebViewReadyToShowCallback :: Maybe WebViewReadyToShowCallback-noWebViewReadyToShowCallback = Nothing--type WebViewReadyToShowCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebViewReadyToShowCallback :: WebViewReadyToShowCallbackC -> IO (FunPtr WebViewReadyToShowCallbackC)--webViewReadyToShowClosure :: WebViewReadyToShowCallback -> IO Closure-webViewReadyToShowClosure cb = newCClosure =<< mkWebViewReadyToShowCallback wrapped-    where wrapped = webViewReadyToShowCallbackWrapper cb--webViewReadyToShowCallbackWrapper ::-    WebViewReadyToShowCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-webViewReadyToShowCallbackWrapper _cb _ _ = do-    _cb --onWebViewReadyToShow :: (GObject a, MonadIO m) => a -> WebViewReadyToShowCallback -> m SignalHandlerId-onWebViewReadyToShow obj cb = liftIO $ connectWebViewReadyToShow obj cb SignalConnectBefore-afterWebViewReadyToShow :: (GObject a, MonadIO m) => a -> WebViewReadyToShowCallback -> m SignalHandlerId-afterWebViewReadyToShow obj cb = connectWebViewReadyToShow obj cb SignalConnectAfter--connectWebViewReadyToShow :: (GObject a, MonadIO m) =>-                             a -> WebViewReadyToShowCallback -> SignalConnectMode -> m SignalHandlerId-connectWebViewReadyToShow obj cb after = liftIO $ do-    cb' <- mkWebViewReadyToShowCallback (webViewReadyToShowCallbackWrapper cb)-    connectSignalFunPtr obj "ready-to-show" cb' after---- signal WebView::resource-load-started-type WebViewResourceLoadStartedCallback =-    WebResource ->-    URIRequest ->-    IO ()--noWebViewResourceLoadStartedCallback :: Maybe WebViewResourceLoadStartedCallback-noWebViewResourceLoadStartedCallback = Nothing--type WebViewResourceLoadStartedCallbackC =-    Ptr () ->                               -- object-    Ptr WebResource ->-    Ptr URIRequest ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebViewResourceLoadStartedCallback :: WebViewResourceLoadStartedCallbackC -> IO (FunPtr WebViewResourceLoadStartedCallbackC)--webViewResourceLoadStartedClosure :: WebViewResourceLoadStartedCallback -> IO Closure-webViewResourceLoadStartedClosure cb = newCClosure =<< mkWebViewResourceLoadStartedCallback wrapped-    where wrapped = webViewResourceLoadStartedCallbackWrapper cb--webViewResourceLoadStartedCallbackWrapper ::-    WebViewResourceLoadStartedCallback ->-    Ptr () ->-    Ptr WebResource ->-    Ptr URIRequest ->-    Ptr () ->-    IO ()-webViewResourceLoadStartedCallbackWrapper _cb _ resource request _ = do-    resource' <- (newObject WebResource) resource-    request' <- (newObject URIRequest) request-    _cb  resource' request'--onWebViewResourceLoadStarted :: (GObject a, MonadIO m) => a -> WebViewResourceLoadStartedCallback -> m SignalHandlerId-onWebViewResourceLoadStarted obj cb = liftIO $ connectWebViewResourceLoadStarted obj cb SignalConnectBefore-afterWebViewResourceLoadStarted :: (GObject a, MonadIO m) => a -> WebViewResourceLoadStartedCallback -> m SignalHandlerId-afterWebViewResourceLoadStarted obj cb = connectWebViewResourceLoadStarted obj cb SignalConnectAfter--connectWebViewResourceLoadStarted :: (GObject a, MonadIO m) =>-                                     a -> WebViewResourceLoadStartedCallback -> SignalConnectMode -> m SignalHandlerId-connectWebViewResourceLoadStarted obj cb after = liftIO $ do-    cb' <- mkWebViewResourceLoadStartedCallback (webViewResourceLoadStartedCallbackWrapper cb)-    connectSignalFunPtr obj "resource-load-started" cb' after---- signal WebView::run-as-modal-type WebViewRunAsModalCallback =-    IO ()--noWebViewRunAsModalCallback :: Maybe WebViewRunAsModalCallback-noWebViewRunAsModalCallback = Nothing--type WebViewRunAsModalCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebViewRunAsModalCallback :: WebViewRunAsModalCallbackC -> IO (FunPtr WebViewRunAsModalCallbackC)--webViewRunAsModalClosure :: WebViewRunAsModalCallback -> IO Closure-webViewRunAsModalClosure cb = newCClosure =<< mkWebViewRunAsModalCallback wrapped-    where wrapped = webViewRunAsModalCallbackWrapper cb--webViewRunAsModalCallbackWrapper ::-    WebViewRunAsModalCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-webViewRunAsModalCallbackWrapper _cb _ _ = do-    _cb --onWebViewRunAsModal :: (GObject a, MonadIO m) => a -> WebViewRunAsModalCallback -> m SignalHandlerId-onWebViewRunAsModal obj cb = liftIO $ connectWebViewRunAsModal obj cb SignalConnectBefore-afterWebViewRunAsModal :: (GObject a, MonadIO m) => a -> WebViewRunAsModalCallback -> m SignalHandlerId-afterWebViewRunAsModal obj cb = connectWebViewRunAsModal obj cb SignalConnectAfter--connectWebViewRunAsModal :: (GObject a, MonadIO m) =>-                            a -> WebViewRunAsModalCallback -> SignalConnectMode -> m SignalHandlerId-connectWebViewRunAsModal obj cb after = liftIO $ do-    cb' <- mkWebViewRunAsModalCallback (webViewRunAsModalCallbackWrapper cb)-    connectSignalFunPtr obj "run-as-modal" cb' after---- signal WebView::run-color-chooser-type WebViewRunColorChooserCallback =-    ColorChooserRequest ->-    IO Bool--noWebViewRunColorChooserCallback :: Maybe WebViewRunColorChooserCallback-noWebViewRunColorChooserCallback = Nothing--type WebViewRunColorChooserCallbackC =-    Ptr () ->                               -- object-    Ptr ColorChooserRequest ->-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkWebViewRunColorChooserCallback :: WebViewRunColorChooserCallbackC -> IO (FunPtr WebViewRunColorChooserCallbackC)--webViewRunColorChooserClosure :: WebViewRunColorChooserCallback -> IO Closure-webViewRunColorChooserClosure cb = newCClosure =<< mkWebViewRunColorChooserCallback wrapped-    where wrapped = webViewRunColorChooserCallbackWrapper cb--webViewRunColorChooserCallbackWrapper ::-    WebViewRunColorChooserCallback ->-    Ptr () ->-    Ptr ColorChooserRequest ->-    Ptr () ->-    IO CInt-webViewRunColorChooserCallbackWrapper _cb _ request _ = do-    request' <- (newObject ColorChooserRequest) request-    result <- _cb  request'-    let result' = (fromIntegral . fromEnum) result-    return result'--onWebViewRunColorChooser :: (GObject a, MonadIO m) => a -> WebViewRunColorChooserCallback -> m SignalHandlerId-onWebViewRunColorChooser obj cb = liftIO $ connectWebViewRunColorChooser obj cb SignalConnectBefore-afterWebViewRunColorChooser :: (GObject a, MonadIO m) => a -> WebViewRunColorChooserCallback -> m SignalHandlerId-afterWebViewRunColorChooser obj cb = connectWebViewRunColorChooser obj cb SignalConnectAfter--connectWebViewRunColorChooser :: (GObject a, MonadIO m) =>-                                 a -> WebViewRunColorChooserCallback -> SignalConnectMode -> m SignalHandlerId-connectWebViewRunColorChooser obj cb after = liftIO $ do-    cb' <- mkWebViewRunColorChooserCallback (webViewRunColorChooserCallbackWrapper cb)-    connectSignalFunPtr obj "run-color-chooser" cb' after---- signal WebView::run-file-chooser-type WebViewRunFileChooserCallback =-    FileChooserRequest ->-    IO Bool--noWebViewRunFileChooserCallback :: Maybe WebViewRunFileChooserCallback-noWebViewRunFileChooserCallback = Nothing--type WebViewRunFileChooserCallbackC =-    Ptr () ->                               -- object-    Ptr FileChooserRequest ->-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkWebViewRunFileChooserCallback :: WebViewRunFileChooserCallbackC -> IO (FunPtr WebViewRunFileChooserCallbackC)--webViewRunFileChooserClosure :: WebViewRunFileChooserCallback -> IO Closure-webViewRunFileChooserClosure cb = newCClosure =<< mkWebViewRunFileChooserCallback wrapped-    where wrapped = webViewRunFileChooserCallbackWrapper cb--webViewRunFileChooserCallbackWrapper ::-    WebViewRunFileChooserCallback ->-    Ptr () ->-    Ptr FileChooserRequest ->-    Ptr () ->-    IO CInt-webViewRunFileChooserCallbackWrapper _cb _ request _ = do-    request' <- (newObject FileChooserRequest) request-    result <- _cb  request'-    let result' = (fromIntegral . fromEnum) result-    return result'--onWebViewRunFileChooser :: (GObject a, MonadIO m) => a -> WebViewRunFileChooserCallback -> m SignalHandlerId-onWebViewRunFileChooser obj cb = liftIO $ connectWebViewRunFileChooser obj cb SignalConnectBefore-afterWebViewRunFileChooser :: (GObject a, MonadIO m) => a -> WebViewRunFileChooserCallback -> m SignalHandlerId-afterWebViewRunFileChooser obj cb = connectWebViewRunFileChooser obj cb SignalConnectAfter--connectWebViewRunFileChooser :: (GObject a, MonadIO m) =>-                                a -> WebViewRunFileChooserCallback -> SignalConnectMode -> m SignalHandlerId-connectWebViewRunFileChooser obj cb after = liftIO $ do-    cb' <- mkWebViewRunFileChooserCallback (webViewRunFileChooserCallbackWrapper cb)-    connectSignalFunPtr obj "run-file-chooser" cb' after---- signal WebView::script-dialog-type WebViewScriptDialogCallback =-    ScriptDialog ->-    IO Bool--noWebViewScriptDialogCallback :: Maybe WebViewScriptDialogCallback-noWebViewScriptDialogCallback = Nothing--type WebViewScriptDialogCallbackC =-    Ptr () ->                               -- object-    Ptr ScriptDialog ->-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkWebViewScriptDialogCallback :: WebViewScriptDialogCallbackC -> IO (FunPtr WebViewScriptDialogCallbackC)--webViewScriptDialogClosure :: WebViewScriptDialogCallback -> IO Closure-webViewScriptDialogClosure cb = newCClosure =<< mkWebViewScriptDialogCallback wrapped-    where wrapped = webViewScriptDialogCallbackWrapper cb--webViewScriptDialogCallbackWrapper ::-    WebViewScriptDialogCallback ->-    Ptr () ->-    Ptr ScriptDialog ->-    Ptr () ->-    IO CInt-webViewScriptDialogCallbackWrapper _cb _ dialog _ = do-    dialog' <- (newBoxed ScriptDialog) dialog-    result <- _cb  dialog'-    let result' = (fromIntegral . fromEnum) result-    return result'--onWebViewScriptDialog :: (GObject a, MonadIO m) => a -> WebViewScriptDialogCallback -> m SignalHandlerId-onWebViewScriptDialog obj cb = liftIO $ connectWebViewScriptDialog obj cb SignalConnectBefore-afterWebViewScriptDialog :: (GObject a, MonadIO m) => a -> WebViewScriptDialogCallback -> m SignalHandlerId-afterWebViewScriptDialog obj cb = connectWebViewScriptDialog obj cb SignalConnectAfter--connectWebViewScriptDialog :: (GObject a, MonadIO m) =>-                              a -> WebViewScriptDialogCallback -> SignalConnectMode -> m SignalHandlerId-connectWebViewScriptDialog obj cb after = liftIO $ do-    cb' <- mkWebViewScriptDialogCallback (webViewScriptDialogCallbackWrapper cb)-    connectSignalFunPtr obj "script-dialog" cb' after---- signal WebView::show-notification-type WebViewShowNotificationCallback =-    Notification ->-    IO Bool--noWebViewShowNotificationCallback :: Maybe WebViewShowNotificationCallback-noWebViewShowNotificationCallback = Nothing--type WebViewShowNotificationCallbackC =-    Ptr () ->                               -- object-    Ptr Notification ->-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkWebViewShowNotificationCallback :: WebViewShowNotificationCallbackC -> IO (FunPtr WebViewShowNotificationCallbackC)--webViewShowNotificationClosure :: WebViewShowNotificationCallback -> IO Closure-webViewShowNotificationClosure cb = newCClosure =<< mkWebViewShowNotificationCallback wrapped-    where wrapped = webViewShowNotificationCallbackWrapper cb--webViewShowNotificationCallbackWrapper ::-    WebViewShowNotificationCallback ->-    Ptr () ->-    Ptr Notification ->-    Ptr () ->-    IO CInt-webViewShowNotificationCallbackWrapper _cb _ notification _ = do-    notification' <- (newObject Notification) notification-    result <- _cb  notification'-    let result' = (fromIntegral . fromEnum) result-    return result'--onWebViewShowNotification :: (GObject a, MonadIO m) => a -> WebViewShowNotificationCallback -> m SignalHandlerId-onWebViewShowNotification obj cb = liftIO $ connectWebViewShowNotification obj cb SignalConnectBefore-afterWebViewShowNotification :: (GObject a, MonadIO m) => a -> WebViewShowNotificationCallback -> m SignalHandlerId-afterWebViewShowNotification obj cb = connectWebViewShowNotification obj cb SignalConnectAfter--connectWebViewShowNotification :: (GObject a, MonadIO m) =>-                                  a -> WebViewShowNotificationCallback -> SignalConnectMode -> m SignalHandlerId-connectWebViewShowNotification obj cb after = liftIO $ do-    cb' <- mkWebViewShowNotificationCallback (webViewShowNotificationCallbackWrapper cb)-    connectSignalFunPtr obj "show-notification" cb' after---- signal WebView::submit-form-type WebViewSubmitFormCallback =-    FormSubmissionRequest ->-    IO ()--noWebViewSubmitFormCallback :: Maybe WebViewSubmitFormCallback-noWebViewSubmitFormCallback = Nothing--type WebViewSubmitFormCallbackC =-    Ptr () ->                               -- object-    Ptr FormSubmissionRequest ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebViewSubmitFormCallback :: WebViewSubmitFormCallbackC -> IO (FunPtr WebViewSubmitFormCallbackC)--webViewSubmitFormClosure :: WebViewSubmitFormCallback -> IO Closure-webViewSubmitFormClosure cb = newCClosure =<< mkWebViewSubmitFormCallback wrapped-    where wrapped = webViewSubmitFormCallbackWrapper cb--webViewSubmitFormCallbackWrapper ::-    WebViewSubmitFormCallback ->-    Ptr () ->-    Ptr FormSubmissionRequest ->-    Ptr () ->-    IO ()-webViewSubmitFormCallbackWrapper _cb _ request _ = do-    request' <- (newObject FormSubmissionRequest) request-    _cb  request'--onWebViewSubmitForm :: (GObject a, MonadIO m) => a -> WebViewSubmitFormCallback -> m SignalHandlerId-onWebViewSubmitForm obj cb = liftIO $ connectWebViewSubmitForm obj cb SignalConnectBefore-afterWebViewSubmitForm :: (GObject a, MonadIO m) => a -> WebViewSubmitFormCallback -> m SignalHandlerId-afterWebViewSubmitForm obj cb = connectWebViewSubmitForm obj cb SignalConnectAfter--connectWebViewSubmitForm :: (GObject a, MonadIO m) =>-                            a -> WebViewSubmitFormCallback -> SignalConnectMode -> m SignalHandlerId-connectWebViewSubmitForm obj cb after = liftIO $ do-    cb' <- mkWebViewSubmitFormCallback (webViewSubmitFormCallbackWrapper cb)-    connectSignalFunPtr obj "submit-form" cb' after---- signal WebView::web-process-crashed-type WebViewWebProcessCrashedCallback =-    IO Bool--noWebViewWebProcessCrashedCallback :: Maybe WebViewWebProcessCrashedCallback-noWebViewWebProcessCrashedCallback = Nothing--type WebViewWebProcessCrashedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkWebViewWebProcessCrashedCallback :: WebViewWebProcessCrashedCallbackC -> IO (FunPtr WebViewWebProcessCrashedCallbackC)--webViewWebProcessCrashedClosure :: WebViewWebProcessCrashedCallback -> IO Closure-webViewWebProcessCrashedClosure cb = newCClosure =<< mkWebViewWebProcessCrashedCallback wrapped-    where wrapped = webViewWebProcessCrashedCallbackWrapper cb--webViewWebProcessCrashedCallbackWrapper ::-    WebViewWebProcessCrashedCallback ->-    Ptr () ->-    Ptr () ->-    IO CInt-webViewWebProcessCrashedCallbackWrapper _cb _ _ = do-    result <- _cb -    let result' = (fromIntegral . fromEnum) result-    return result'--onWebViewWebProcessCrashed :: (GObject a, MonadIO m) => a -> WebViewWebProcessCrashedCallback -> m SignalHandlerId-onWebViewWebProcessCrashed obj cb = liftIO $ connectWebViewWebProcessCrashed obj cb SignalConnectBefore-afterWebViewWebProcessCrashed :: (GObject a, MonadIO m) => a -> WebViewWebProcessCrashedCallback -> m SignalHandlerId-afterWebViewWebProcessCrashed obj cb = connectWebViewWebProcessCrashed obj cb SignalConnectAfter--connectWebViewWebProcessCrashed :: (GObject a, MonadIO m) =>-                                   a -> WebViewWebProcessCrashedCallback -> SignalConnectMode -> m SignalHandlerId-connectWebViewWebProcessCrashed obj cb after = liftIO $ do-    cb' <- mkWebViewWebProcessCrashedCallback (webViewWebProcessCrashedCallbackWrapper cb)-    connectSignalFunPtr obj "web-process-crashed" cb' after---- VVV Prop "editable"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Just False)--getWebViewEditable :: (MonadIO m, WebViewK o) => o -> m Bool-getWebViewEditable obj = liftIO $ getObjectPropertyBool obj "editable"--setWebViewEditable :: (MonadIO m, WebViewK o) => o -> Bool -> m ()-setWebViewEditable obj val = liftIO $ setObjectPropertyBool obj "editable" val--constructWebViewEditable :: Bool -> IO ([Char], GValue)-constructWebViewEditable val = constructObjectPropertyBool "editable" val--data WebViewEditablePropertyInfo-instance AttrInfo WebViewEditablePropertyInfo where-    type AttrAllowedOps WebViewEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint WebViewEditablePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint WebViewEditablePropertyInfo = WebViewK-    type AttrGetType WebViewEditablePropertyInfo = Bool-    type AttrLabel WebViewEditablePropertyInfo = "editable"-    attrGet _ = getWebViewEditable-    attrSet _ = setWebViewEditable-    attrConstruct _ = constructWebViewEditable-    attrClear _ = undefined---- VVV Prop "estimated-load-progress"-   -- Type: TBasicType TDouble-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getWebViewEstimatedLoadProgress :: (MonadIO m, WebViewK o) => o -> m Double-getWebViewEstimatedLoadProgress obj = liftIO $ getObjectPropertyDouble obj "estimated-load-progress"--data WebViewEstimatedLoadProgressPropertyInfo-instance AttrInfo WebViewEstimatedLoadProgressPropertyInfo where-    type AttrAllowedOps WebViewEstimatedLoadProgressPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint WebViewEstimatedLoadProgressPropertyInfo = (~) ()-    type AttrBaseTypeConstraint WebViewEstimatedLoadProgressPropertyInfo = WebViewK-    type AttrGetType WebViewEstimatedLoadProgressPropertyInfo = Double-    type AttrLabel WebViewEstimatedLoadProgressPropertyInfo = "estimated-load-progress"-    attrGet _ = getWebViewEstimatedLoadProgress-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "favicon"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getWebViewFavicon :: (MonadIO m, WebViewK o) => o -> m (Ptr ())-getWebViewFavicon obj = liftIO $ getObjectPropertyPtr obj "favicon"--data WebViewFaviconPropertyInfo-instance AttrInfo WebViewFaviconPropertyInfo where-    type AttrAllowedOps WebViewFaviconPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint WebViewFaviconPropertyInfo = (~) ()-    type AttrBaseTypeConstraint WebViewFaviconPropertyInfo = WebViewK-    type AttrGetType WebViewFaviconPropertyInfo = (Ptr ())-    type AttrLabel WebViewFaviconPropertyInfo = "favicon"-    attrGet _ = getWebViewFavicon-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "is-loading"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getWebViewIsLoading :: (MonadIO m, WebViewK o) => o -> m Bool-getWebViewIsLoading obj = liftIO $ getObjectPropertyBool obj "is-loading"--data WebViewIsLoadingPropertyInfo-instance AttrInfo WebViewIsLoadingPropertyInfo where-    type AttrAllowedOps WebViewIsLoadingPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint WebViewIsLoadingPropertyInfo = (~) ()-    type AttrBaseTypeConstraint WebViewIsLoadingPropertyInfo = WebViewK-    type AttrGetType WebViewIsLoadingPropertyInfo = Bool-    type AttrLabel WebViewIsLoadingPropertyInfo = "is-loading"-    attrGet _ = getWebViewIsLoading-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "is-playing-audio"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getWebViewIsPlayingAudio :: (MonadIO m, WebViewK o) => o -> m Bool-getWebViewIsPlayingAudio obj = liftIO $ getObjectPropertyBool obj "is-playing-audio"--data WebViewIsPlayingAudioPropertyInfo-instance AttrInfo WebViewIsPlayingAudioPropertyInfo where-    type AttrAllowedOps WebViewIsPlayingAudioPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint WebViewIsPlayingAudioPropertyInfo = (~) ()-    type AttrBaseTypeConstraint WebViewIsPlayingAudioPropertyInfo = WebViewK-    type AttrGetType WebViewIsPlayingAudioPropertyInfo = Bool-    type AttrLabel WebViewIsPlayingAudioPropertyInfo = "is-playing-audio"-    attrGet _ = getWebViewIsPlayingAudio-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "related-view"-   -- Type: TInterface "WebKit2" "WebView"-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--constructWebViewRelatedView :: (WebViewK a) => a -> IO ([Char], GValue)-constructWebViewRelatedView val = constructObjectPropertyObject "related-view" (Just val)--data WebViewRelatedViewPropertyInfo-instance AttrInfo WebViewRelatedViewPropertyInfo where-    type AttrAllowedOps WebViewRelatedViewPropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint WebViewRelatedViewPropertyInfo = WebViewK-    type AttrBaseTypeConstraint WebViewRelatedViewPropertyInfo = WebViewK-    type AttrGetType WebViewRelatedViewPropertyInfo = ()-    type AttrLabel WebViewRelatedViewPropertyInfo = "related-view"-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructWebViewRelatedView-    attrClear _ = undefined---- VVV Prop "settings"-   -- Type: TInterface "WebKit2" "Settings"-   -- Flags: [PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--setWebViewSettings :: (MonadIO m, WebViewK o, SettingsK a) => o -> a -> m ()-setWebViewSettings obj val = liftIO $ setObjectPropertyObject obj "settings" (Just val)--constructWebViewSettings :: (SettingsK a) => a -> IO ([Char], GValue)-constructWebViewSettings val = constructObjectPropertyObject "settings" (Just val)--data WebViewSettingsPropertyInfo-instance AttrInfo WebViewSettingsPropertyInfo where-    type AttrAllowedOps WebViewSettingsPropertyInfo = '[ 'AttrSet, 'AttrConstruct]-    type AttrSetTypeConstraint WebViewSettingsPropertyInfo = SettingsK-    type AttrBaseTypeConstraint WebViewSettingsPropertyInfo = WebViewK-    type AttrGetType WebViewSettingsPropertyInfo = ()-    type AttrLabel WebViewSettingsPropertyInfo = "settings"-    attrGet _ = undefined-    attrSet _ = setWebViewSettings-    attrConstruct _ = constructWebViewSettings-    attrClear _ = undefined---- VVV Prop "title"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getWebViewTitle :: (MonadIO m, WebViewK o) => o -> m T.Text-getWebViewTitle obj = liftIO $ checkUnexpectedNothing "getWebViewTitle" $ getObjectPropertyString obj "title"--data WebViewTitlePropertyInfo-instance AttrInfo WebViewTitlePropertyInfo where-    type AttrAllowedOps WebViewTitlePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WebViewTitlePropertyInfo = (~) ()-    type AttrBaseTypeConstraint WebViewTitlePropertyInfo = WebViewK-    type AttrGetType WebViewTitlePropertyInfo = T.Text-    type AttrLabel WebViewTitlePropertyInfo = "title"-    attrGet _ = getWebViewTitle-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "uri"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Just True,Nothing)--getWebViewUri :: (MonadIO m, WebViewK o) => o -> m (Maybe T.Text)-getWebViewUri obj = liftIO $ getObjectPropertyString obj "uri"--data WebViewUriPropertyInfo-instance AttrInfo WebViewUriPropertyInfo where-    type AttrAllowedOps WebViewUriPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WebViewUriPropertyInfo = (~) ()-    type AttrBaseTypeConstraint WebViewUriPropertyInfo = WebViewK-    type AttrGetType WebViewUriPropertyInfo = (Maybe T.Text)-    type AttrLabel WebViewUriPropertyInfo = "uri"-    attrGet _ = getWebViewUri-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "user-content-manager"-   -- Type: TInterface "WebKit2" "UserContentManager"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getWebViewUserContentManager :: (MonadIO m, WebViewK o) => o -> m UserContentManager-getWebViewUserContentManager obj = liftIO $ checkUnexpectedNothing "getWebViewUserContentManager" $ getObjectPropertyObject obj "user-content-manager" UserContentManager--constructWebViewUserContentManager :: (UserContentManagerK a) => a -> IO ([Char], GValue)-constructWebViewUserContentManager val = constructObjectPropertyObject "user-content-manager" (Just val)--data WebViewUserContentManagerPropertyInfo-instance AttrInfo WebViewUserContentManagerPropertyInfo where-    type AttrAllowedOps WebViewUserContentManagerPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WebViewUserContentManagerPropertyInfo = UserContentManagerK-    type AttrBaseTypeConstraint WebViewUserContentManagerPropertyInfo = WebViewK-    type AttrGetType WebViewUserContentManagerPropertyInfo = UserContentManager-    type AttrLabel WebViewUserContentManagerPropertyInfo = "user-content-manager"-    attrGet _ = getWebViewUserContentManager-    attrSet _ = undefined-    attrConstruct _ = constructWebViewUserContentManager-    attrClear _ = undefined---- VVV Prop "web-context"-   -- Type: TInterface "WebKit2" "WebContext"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getWebViewWebContext :: (MonadIO m, WebViewK o) => o -> m (Maybe WebContext)-getWebViewWebContext obj = liftIO $ getObjectPropertyObject obj "web-context" WebContext--constructWebViewWebContext :: (WebContextK a) => a -> IO ([Char], GValue)-constructWebViewWebContext val = constructObjectPropertyObject "web-context" (Just val)--data WebViewWebContextPropertyInfo-instance AttrInfo WebViewWebContextPropertyInfo where-    type AttrAllowedOps WebViewWebContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WebViewWebContextPropertyInfo = WebContextK-    type AttrBaseTypeConstraint WebViewWebContextPropertyInfo = WebViewK-    type AttrGetType WebViewWebContextPropertyInfo = (Maybe WebContext)-    type AttrLabel WebViewWebContextPropertyInfo = "web-context"-    attrGet _ = getWebViewWebContext-    attrSet _ = undefined-    attrConstruct _ = constructWebViewWebContext-    attrClear _ = undefined---- VVV Prop "zoom-level"-   -- Type: TBasicType TDouble-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getWebViewZoomLevel :: (MonadIO m, WebViewK o) => o -> m Double-getWebViewZoomLevel obj = liftIO $ getObjectPropertyDouble obj "zoom-level"--setWebViewZoomLevel :: (MonadIO m, WebViewK o) => o -> Double -> m ()-setWebViewZoomLevel obj val = liftIO $ setObjectPropertyDouble obj "zoom-level" val--constructWebViewZoomLevel :: Double -> IO ([Char], GValue)-constructWebViewZoomLevel val = constructObjectPropertyDouble "zoom-level" val--data WebViewZoomLevelPropertyInfo-instance AttrInfo WebViewZoomLevelPropertyInfo where-    type AttrAllowedOps WebViewZoomLevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint WebViewZoomLevelPropertyInfo = (~) Double-    type AttrBaseTypeConstraint WebViewZoomLevelPropertyInfo = WebViewK-    type AttrGetType WebViewZoomLevelPropertyInfo = Double-    type AttrLabel WebViewZoomLevelPropertyInfo = "zoom-level"-    attrGet _ = getWebViewZoomLevel-    attrSet _ = setWebViewZoomLevel-    attrConstruct _ = constructWebViewZoomLevel-    attrClear _ = undefined--type instance AttributeList WebView = WebViewAttributeList-type WebViewAttributeList = ('[ '("appPaintable", Gtk.WidgetAppPaintablePropertyInfo), '("borderWidth", Gtk.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.WidgetCanFocusPropertyInfo), '("child", Gtk.ContainerChildPropertyInfo), '("compositeChild", Gtk.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.WidgetDoubleBufferedPropertyInfo), '("editable", WebViewEditablePropertyInfo), '("estimatedLoadProgress", WebViewEstimatedLoadProgressPropertyInfo), '("events", Gtk.WidgetEventsPropertyInfo), '("expand", Gtk.WidgetExpandPropertyInfo), '("favicon", WebViewFaviconPropertyInfo), '("halign", Gtk.WidgetHalignPropertyInfo), '("hasDefault", Gtk.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.WidgetHexpandSetPropertyInfo), '("isFocus", Gtk.WidgetIsFocusPropertyInfo), '("isLoading", WebViewIsLoadingPropertyInfo), '("isPlayingAudio", WebViewIsPlayingAudioPropertyInfo), '("margin", Gtk.WidgetMarginPropertyInfo), '("marginBottom", Gtk.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.WidgetMarginTopPropertyInfo), '("name", Gtk.WidgetNamePropertyInfo), '("noShowAll", Gtk.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.WidgetOpacityPropertyInfo), '("parent", Gtk.WidgetParentPropertyInfo), '("receivesDefault", Gtk.WidgetReceivesDefaultPropertyInfo), '("relatedView", WebViewRelatedViewPropertyInfo), '("resizeMode", Gtk.ContainerResizeModePropertyInfo), '("scaleFactor", Gtk.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.WidgetSensitivePropertyInfo), '("settings", WebViewSettingsPropertyInfo), '("style", Gtk.WidgetStylePropertyInfo), '("title", WebViewTitlePropertyInfo), '("tooltipMarkup", Gtk.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.WidgetTooltipTextPropertyInfo), '("uri", WebViewUriPropertyInfo), '("userContentManager", WebViewUserContentManagerPropertyInfo), '("valign", Gtk.WidgetValignPropertyInfo), '("vexpand", Gtk.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.WidgetVexpandSetPropertyInfo), '("visible", Gtk.WidgetVisiblePropertyInfo), '("webContext", WebViewWebContextPropertyInfo), '("widthRequest", Gtk.WidgetWidthRequestPropertyInfo), '("window", Gtk.WidgetWindowPropertyInfo), '("zoomLevel", WebViewZoomLevelPropertyInfo)] :: [(Symbol, *)])--webViewEditable :: AttrLabelProxy "editable"-webViewEditable = AttrLabelProxy--webViewEstimatedLoadProgress :: AttrLabelProxy "estimatedLoadProgress"-webViewEstimatedLoadProgress = AttrLabelProxy--webViewFavicon :: AttrLabelProxy "favicon"-webViewFavicon = AttrLabelProxy--webViewRelatedView :: AttrLabelProxy "relatedView"-webViewRelatedView = AttrLabelProxy--webViewSettings :: AttrLabelProxy "settings"-webViewSettings = AttrLabelProxy--webViewTitle :: AttrLabelProxy "title"-webViewTitle = AttrLabelProxy--webViewUri :: AttrLabelProxy "uri"-webViewUri = AttrLabelProxy--webViewUserContentManager :: AttrLabelProxy "userContentManager"-webViewUserContentManager = AttrLabelProxy--webViewWebContext :: AttrLabelProxy "webContext"-webViewWebContext = AttrLabelProxy--webViewZoomLevel :: AttrLabelProxy "zoomLevel"-webViewZoomLevel = AttrLabelProxy--data WebViewAuthenticateSignalInfo-instance SignalInfo WebViewAuthenticateSignalInfo where-    type HaskellCallbackType WebViewAuthenticateSignalInfo = WebViewAuthenticateCallback-    connectSignal _ = connectWebViewAuthenticate--data WebViewCloseSignalInfo-instance SignalInfo WebViewCloseSignalInfo where-    type HaskellCallbackType WebViewCloseSignalInfo = WebViewCloseCallback-    connectSignal _ = connectWebViewClose--data WebViewContextMenuSignalInfo-instance SignalInfo WebViewContextMenuSignalInfo where-    type HaskellCallbackType WebViewContextMenuSignalInfo = WebViewContextMenuCallback-    connectSignal _ = connectWebViewContextMenu--data WebViewContextMenuDismissedSignalInfo-instance SignalInfo WebViewContextMenuDismissedSignalInfo where-    type HaskellCallbackType WebViewContextMenuDismissedSignalInfo = WebViewContextMenuDismissedCallback-    connectSignal _ = connectWebViewContextMenuDismissed--data WebViewCreateSignalInfo-instance SignalInfo WebViewCreateSignalInfo where-    type HaskellCallbackType WebViewCreateSignalInfo = WebViewCreateCallback-    connectSignal _ = connectWebViewCreate--data WebViewDecidePolicySignalInfo-instance SignalInfo WebViewDecidePolicySignalInfo where-    type HaskellCallbackType WebViewDecidePolicySignalInfo = WebViewDecidePolicyCallback-    connectSignal _ = connectWebViewDecidePolicy--data WebViewEnterFullscreenSignalInfo-instance SignalInfo WebViewEnterFullscreenSignalInfo where-    type HaskellCallbackType WebViewEnterFullscreenSignalInfo = WebViewEnterFullscreenCallback-    connectSignal _ = connectWebViewEnterFullscreen--data WebViewInsecureContentDetectedSignalInfo-instance SignalInfo WebViewInsecureContentDetectedSignalInfo where-    type HaskellCallbackType WebViewInsecureContentDetectedSignalInfo = WebViewInsecureContentDetectedCallback-    connectSignal _ = connectWebViewInsecureContentDetected--data WebViewLeaveFullscreenSignalInfo-instance SignalInfo WebViewLeaveFullscreenSignalInfo where-    type HaskellCallbackType WebViewLeaveFullscreenSignalInfo = WebViewLeaveFullscreenCallback-    connectSignal _ = connectWebViewLeaveFullscreen--data WebViewLoadChangedSignalInfo-instance SignalInfo WebViewLoadChangedSignalInfo where-    type HaskellCallbackType WebViewLoadChangedSignalInfo = WebViewLoadChangedCallback-    connectSignal _ = connectWebViewLoadChanged--data WebViewLoadFailedSignalInfo-instance SignalInfo WebViewLoadFailedSignalInfo where-    type HaskellCallbackType WebViewLoadFailedSignalInfo = WebViewLoadFailedCallback-    connectSignal _ = connectWebViewLoadFailed--data WebViewLoadFailedWithTlsErrorsSignalInfo-instance SignalInfo WebViewLoadFailedWithTlsErrorsSignalInfo where-    type HaskellCallbackType WebViewLoadFailedWithTlsErrorsSignalInfo = WebViewLoadFailedWithTlsErrorsCallback-    connectSignal _ = connectWebViewLoadFailedWithTlsErrors--data WebViewMouseTargetChangedSignalInfo-instance SignalInfo WebViewMouseTargetChangedSignalInfo where-    type HaskellCallbackType WebViewMouseTargetChangedSignalInfo = WebViewMouseTargetChangedCallback-    connectSignal _ = connectWebViewMouseTargetChanged--data WebViewPermissionRequestSignalInfo-instance SignalInfo WebViewPermissionRequestSignalInfo where-    type HaskellCallbackType WebViewPermissionRequestSignalInfo = WebViewPermissionRequestCallback-    connectSignal _ = connectWebViewPermissionRequest--data WebViewPrintSignalInfo-instance SignalInfo WebViewPrintSignalInfo where-    type HaskellCallbackType WebViewPrintSignalInfo = WebViewPrintCallback-    connectSignal _ = connectWebViewPrint--data WebViewReadyToShowSignalInfo-instance SignalInfo WebViewReadyToShowSignalInfo where-    type HaskellCallbackType WebViewReadyToShowSignalInfo = WebViewReadyToShowCallback-    connectSignal _ = connectWebViewReadyToShow--data WebViewResourceLoadStartedSignalInfo-instance SignalInfo WebViewResourceLoadStartedSignalInfo where-    type HaskellCallbackType WebViewResourceLoadStartedSignalInfo = WebViewResourceLoadStartedCallback-    connectSignal _ = connectWebViewResourceLoadStarted--data WebViewRunAsModalSignalInfo-instance SignalInfo WebViewRunAsModalSignalInfo where-    type HaskellCallbackType WebViewRunAsModalSignalInfo = WebViewRunAsModalCallback-    connectSignal _ = connectWebViewRunAsModal--data WebViewRunColorChooserSignalInfo-instance SignalInfo WebViewRunColorChooserSignalInfo where-    type HaskellCallbackType WebViewRunColorChooserSignalInfo = WebViewRunColorChooserCallback-    connectSignal _ = connectWebViewRunColorChooser--data WebViewRunFileChooserSignalInfo-instance SignalInfo WebViewRunFileChooserSignalInfo where-    type HaskellCallbackType WebViewRunFileChooserSignalInfo = WebViewRunFileChooserCallback-    connectSignal _ = connectWebViewRunFileChooser--data WebViewScriptDialogSignalInfo-instance SignalInfo WebViewScriptDialogSignalInfo where-    type HaskellCallbackType WebViewScriptDialogSignalInfo = WebViewScriptDialogCallback-    connectSignal _ = connectWebViewScriptDialog--data WebViewShowNotificationSignalInfo-instance SignalInfo WebViewShowNotificationSignalInfo where-    type HaskellCallbackType WebViewShowNotificationSignalInfo = WebViewShowNotificationCallback-    connectSignal _ = connectWebViewShowNotification--data WebViewSubmitFormSignalInfo-instance SignalInfo WebViewSubmitFormSignalInfo where-    type HaskellCallbackType WebViewSubmitFormSignalInfo = WebViewSubmitFormCallback-    connectSignal _ = connectWebViewSubmitForm--data WebViewWebProcessCrashedSignalInfo-instance SignalInfo WebViewWebProcessCrashedSignalInfo where-    type HaskellCallbackType WebViewWebProcessCrashedSignalInfo = WebViewWebProcessCrashedCallback-    connectSignal _ = connectWebViewWebProcessCrashed--type instance SignalList WebView = WebViewSignalList-type WebViewSignalList = ('[ '("accelClosuresChanged", Gtk.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.ContainerAddSignalInfo), '("authenticate", WebViewAuthenticateSignalInfo), '("buttonPressEvent", Gtk.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.WidgetChildNotifySignalInfo), '("close", WebViewCloseSignalInfo), '("compositedChanged", Gtk.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.WidgetConfigureEventSignalInfo), '("contextMenu", WebViewContextMenuSignalInfo), '("contextMenuDismissed", WebViewContextMenuDismissedSignalInfo), '("create", WebViewCreateSignalInfo), '("damageEvent", Gtk.WidgetDamageEventSignalInfo), '("decidePolicy", WebViewDecidePolicySignalInfo), '("deleteEvent", Gtk.WidgetDeleteEventSignalInfo), '("destroy", Gtk.WidgetDestroySignalInfo), '("destroyEvent", Gtk.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.WidgetDragDropSignalInfo), '("dragEnd", Gtk.WidgetDragEndSignalInfo), '("dragFailed", Gtk.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.WidgetDragMotionSignalInfo), '("draw", Gtk.WidgetDrawSignalInfo), '("enterFullscreen", WebViewEnterFullscreenSignalInfo), '("enterNotifyEvent", Gtk.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.WidgetEventSignalInfo), '("eventAfter", Gtk.WidgetEventAfterSignalInfo), '("focus", Gtk.WidgetFocusSignalInfo), '("focusInEvent", Gtk.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.WidgetGrabNotifySignalInfo), '("hide", Gtk.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.WidgetHierarchyChangedSignalInfo), '("insecureContentDetected", WebViewInsecureContentDetectedSignalInfo), '("keyPressEvent", Gtk.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.WidgetKeynavFailedSignalInfo), '("leaveFullscreen", WebViewLeaveFullscreenSignalInfo), '("leaveNotifyEvent", Gtk.WidgetLeaveNotifyEventSignalInfo), '("loadChanged", WebViewLoadChangedSignalInfo), '("loadFailed", WebViewLoadFailedSignalInfo), '("loadFailedWithTlsErrors", WebViewLoadFailedWithTlsErrorsSignalInfo), '("map", Gtk.WidgetMapSignalInfo), '("mapEvent", Gtk.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.WidgetMotionNotifyEventSignalInfo), '("mouseTargetChanged", WebViewMouseTargetChangedSignalInfo), '("moveFocus", Gtk.WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", Gtk.WidgetParentSetSignalInfo), '("permissionRequest", WebViewPermissionRequestSignalInfo), '("popupMenu", Gtk.WidgetPopupMenuSignalInfo), '("print", WebViewPrintSignalInfo), '("propertyNotifyEvent", Gtk.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.WidgetQueryTooltipSignalInfo), '("readyToShow", WebViewReadyToShowSignalInfo), '("realize", Gtk.WidgetRealizeSignalInfo), '("remove", Gtk.ContainerRemoveSignalInfo), '("resourceLoadStarted", WebViewResourceLoadStartedSignalInfo), '("runAsModal", WebViewRunAsModalSignalInfo), '("runColorChooser", WebViewRunColorChooserSignalInfo), '("runFileChooser", WebViewRunFileChooserSignalInfo), '("screenChanged", Gtk.WidgetScreenChangedSignalInfo), '("scriptDialog", WebViewScriptDialogSignalInfo), '("scrollEvent", Gtk.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", Gtk.ContainerSetFocusChildSignalInfo), '("show", Gtk.WidgetShowSignalInfo), '("showHelp", Gtk.WidgetShowHelpSignalInfo), '("showNotification", WebViewShowNotificationSignalInfo), '("sizeAllocate", Gtk.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.WidgetStyleUpdatedSignalInfo), '("submitForm", WebViewSubmitFormSignalInfo), '("touchEvent", Gtk.WidgetTouchEventSignalInfo), '("unmap", Gtk.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.WidgetVisibilityNotifyEventSignalInfo), '("webProcessCrashed", WebViewWebProcessCrashedSignalInfo), '("windowStateEvent", Gtk.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)])---- method WebView::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "WebKit2" "WebView")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_new" webkit_web_view_new :: -    IO (Ptr WebView)---webViewNew ::-    (MonadIO m) =>-    m WebView                               -- result-webViewNew  = liftIO $ do-    result <- webkit_web_view_new-    checkUnexpectedReturnNULL "webkit_web_view_new" result-    result' <- (newObject WebView) result-    return result'---- method WebView::new_with_context--- method type : Constructor--- Args : [Arg {argCName = "context", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "WebView")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_new_with_context" webkit_web_view_new_with_context :: -    Ptr WebContext ->                       -- context : TInterface "WebKit2" "WebContext"-    IO (Ptr WebView)---webViewNewWithContext ::-    (MonadIO m, WebContextK a) =>-    a                                       -- context-    -> m WebView                            -- result-webViewNewWithContext context = liftIO $ do-    let context' = unsafeManagedPtrCastPtr context-    result <- webkit_web_view_new_with_context context'-    checkUnexpectedReturnNULL "webkit_web_view_new_with_context" result-    result' <- (newObject WebView) result-    touchManagedPtr context-    return result'---- method WebView::new_with_settings--- method type : Constructor--- Args : [Arg {argCName = "settings", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "WebView")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_new_with_settings" webkit_web_view_new_with_settings :: -    Ptr Settings ->                         -- settings : TInterface "WebKit2" "Settings"-    IO (Ptr WebView)---webViewNewWithSettings ::-    (MonadIO m, SettingsK a) =>-    a                                       -- settings-    -> m WebView                            -- result-webViewNewWithSettings settings = liftIO $ do-    let settings' = unsafeManagedPtrCastPtr settings-    result <- webkit_web_view_new_with_settings settings'-    checkUnexpectedReturnNULL "webkit_web_view_new_with_settings" result-    result' <- (newObject WebView) result-    touchManagedPtr settings-    return result'---- method WebView::new_with_user_content_manager--- method type : Constructor--- Args : [Arg {argCName = "user_content_manager", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "WebView")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_new_with_user_content_manager" webkit_web_view_new_with_user_content_manager :: -    Ptr UserContentManager ->               -- user_content_manager : TInterface "WebKit2" "UserContentManager"-    IO (Ptr WebView)---webViewNewWithUserContentManager ::-    (MonadIO m, UserContentManagerK a) =>-    a                                       -- userContentManager-    -> m WebView                            -- result-webViewNewWithUserContentManager userContentManager = liftIO $ do-    let userContentManager' = unsafeManagedPtrCastPtr userContentManager-    result <- webkit_web_view_new_with_user_content_manager userContentManager'-    checkUnexpectedReturnNULL "webkit_web_view_new_with_user_content_manager" result-    result' <- (newObject WebView) result-    touchManagedPtr userContentManager-    return result'---- method WebView::can_execute_editing_command--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_can_execute_editing_command" webkit_web_view_can_execute_editing_command :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    CString ->                              -- command : TBasicType TUTF8-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---webViewCanExecuteEditingCommand ::-    (MonadIO m, WebViewK a, Gio.CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- command-    -> Maybe (b)                            -- cancellable-    -> Maybe (Gio.AsyncReadyCallback)       -- callback-    -> m ()                                 -- result-webViewCanExecuteEditingCommand _obj command cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    command' <- textToCString command-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    webkit_web_view_can_execute_editing_command _obj' command' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem command'-    return ()--data WebViewCanExecuteEditingCommandMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, WebViewK a, Gio.CancellableK b) => MethodInfo WebViewCanExecuteEditingCommandMethodInfo a signature where-    overloadedMethod _ = webViewCanExecuteEditingCommand---- method WebView::can_execute_editing_command_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "webkit_web_view_can_execute_editing_command_finish" webkit_web_view_can_execute_editing_command_finish :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---webViewCanExecuteEditingCommandFinish ::-    (MonadIO m, WebViewK a, Gio.AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-webViewCanExecuteEditingCommandFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ webkit_web_view_can_execute_editing_command_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data WebViewCanExecuteEditingCommandFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, WebViewK a, Gio.AsyncResultK b) => MethodInfo WebViewCanExecuteEditingCommandFinishMethodInfo a signature where-    overloadedMethod _ = webViewCanExecuteEditingCommandFinish---- method WebView::can_go_back--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_can_go_back" webkit_web_view_can_go_back :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO CInt---webViewCanGoBack ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-webViewCanGoBack _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_view_can_go_back _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WebViewCanGoBackMethodInfo-instance (signature ~ (m Bool), MonadIO m, WebViewK a) => MethodInfo WebViewCanGoBackMethodInfo a signature where-    overloadedMethod _ = webViewCanGoBack---- method WebView::can_go_forward--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_can_go_forward" webkit_web_view_can_go_forward :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO CInt---webViewCanGoForward ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-webViewCanGoForward _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_view_can_go_forward _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WebViewCanGoForwardMethodInfo-instance (signature ~ (m Bool), MonadIO m, WebViewK a) => MethodInfo WebViewCanGoForwardMethodInfo a signature where-    overloadedMethod _ = webViewCanGoForward---- method WebView::can_show_mime_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_can_show_mime_type" webkit_web_view_can_show_mime_type :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    CString ->                              -- mime_type : TBasicType TUTF8-    IO CInt---webViewCanShowMimeType ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> T.Text                               -- mimeType-    -> m Bool                               -- result-webViewCanShowMimeType _obj mimeType = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    mimeType' <- textToCString mimeType-    result <- webkit_web_view_can_show_mime_type _obj' mimeType'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem mimeType'-    return result'--data WebViewCanShowMimeTypeMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, WebViewK a) => MethodInfo WebViewCanShowMimeTypeMethodInfo a signature where-    overloadedMethod _ = webViewCanShowMimeType---- method WebView::download_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "Download")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_download_uri" webkit_web_view_download_uri :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    CString ->                              -- uri : TBasicType TUTF8-    IO (Ptr Download)---webViewDownloadUri ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> T.Text                               -- uri-    -> m Download                           -- result-webViewDownloadUri _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    uri' <- textToCString uri-    result <- webkit_web_view_download_uri _obj' uri'-    checkUnexpectedReturnNULL "webkit_web_view_download_uri" result-    result' <- (wrapObject Download) result-    touchManagedPtr _obj-    freeMem uri'-    return result'--data WebViewDownloadUriMethodInfo-instance (signature ~ (T.Text -> m Download), MonadIO m, WebViewK a) => MethodInfo WebViewDownloadUriMethodInfo a signature where-    overloadedMethod _ = webViewDownloadUri---- method WebView::execute_editing_command--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_execute_editing_command" webkit_web_view_execute_editing_command :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    CString ->                              -- command : TBasicType TUTF8-    IO ()---webViewExecuteEditingCommand ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> T.Text                               -- command-    -> m ()                                 -- result-webViewExecuteEditingCommand _obj command = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    command' <- textToCString command-    webkit_web_view_execute_editing_command _obj' command'-    touchManagedPtr _obj-    freeMem command'-    return ()--data WebViewExecuteEditingCommandMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewExecuteEditingCommandMethodInfo a signature where-    overloadedMethod _ = webViewExecuteEditingCommand---- method WebView::execute_editing_command_with_argument--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "argument", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_execute_editing_command_with_argument" webkit_web_view_execute_editing_command_with_argument :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    CString ->                              -- command : TBasicType TUTF8-    CString ->                              -- argument : TBasicType TUTF8-    IO ()---webViewExecuteEditingCommandWithArgument ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> T.Text                               -- command-    -> T.Text                               -- argument-    -> m ()                                 -- result-webViewExecuteEditingCommandWithArgument _obj command argument = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    command' <- textToCString command-    argument' <- textToCString argument-    webkit_web_view_execute_editing_command_with_argument _obj' command' argument'-    touchManagedPtr _obj-    freeMem command'-    freeMem argument'-    return ()--data WebViewExecuteEditingCommandWithArgumentMethodInfo-instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewExecuteEditingCommandWithArgumentMethodInfo a signature where-    overloadedMethod _ = webViewExecuteEditingCommandWithArgument---- method WebView::get_back_forward_list--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "BackForwardList")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_get_back_forward_list" webkit_web_view_get_back_forward_list :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO (Ptr BackForwardList)---webViewGetBackForwardList ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m BackForwardList                    -- result-webViewGetBackForwardList _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_view_get_back_forward_list _obj'-    checkUnexpectedReturnNULL "webkit_web_view_get_back_forward_list" result-    result' <- (newObject BackForwardList) result-    touchManagedPtr _obj-    return result'--data WebViewGetBackForwardListMethodInfo-instance (signature ~ (m BackForwardList), MonadIO m, WebViewK a) => MethodInfo WebViewGetBackForwardListMethodInfo a signature where-    overloadedMethod _ = webViewGetBackForwardList---- method WebView::get_background_color--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_get_background_color" webkit_web_view_get_background_color :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    Ptr Gdk.RGBA ->                         -- rgba : TInterface "Gdk" "RGBA"-    IO ()---webViewGetBackgroundColor ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m (Gdk.RGBA)                         -- result-webViewGetBackgroundColor _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    rgba <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA)-    webkit_web_view_get_background_color _obj' rgba-    rgba' <- (wrapBoxed Gdk.RGBA) rgba-    touchManagedPtr _obj-    return rgba'--data WebViewGetBackgroundColorMethodInfo-instance (signature ~ (m (Gdk.RGBA)), MonadIO m, WebViewK a) => MethodInfo WebViewGetBackgroundColorMethodInfo a signature where-    overloadedMethod _ = webViewGetBackgroundColor---- method WebView::get_context--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "WebContext")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_get_context" webkit_web_view_get_context :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO (Ptr WebContext)---webViewGetContext ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m WebContext                         -- result-webViewGetContext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_view_get_context _obj'-    checkUnexpectedReturnNULL "webkit_web_view_get_context" result-    result' <- (newObject WebContext) result-    touchManagedPtr _obj-    return result'--data WebViewGetContextMethodInfo-instance (signature ~ (m WebContext), MonadIO m, WebViewK a) => MethodInfo WebViewGetContextMethodInfo a signature where-    overloadedMethod _ = webViewGetContext---- method WebView::get_custom_charset--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_get_custom_charset" webkit_web_view_get_custom_charset :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO CString---webViewGetCustomCharset ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-webViewGetCustomCharset _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_view_get_custom_charset _obj'-    checkUnexpectedReturnNULL "webkit_web_view_get_custom_charset" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data WebViewGetCustomCharsetMethodInfo-instance (signature ~ (m T.Text), MonadIO m, WebViewK a) => MethodInfo WebViewGetCustomCharsetMethodInfo a signature where-    overloadedMethod _ = webViewGetCustomCharset---- method WebView::get_editor_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "EditorState")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_get_editor_state" webkit_web_view_get_editor_state :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO (Ptr EditorState)---webViewGetEditorState ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m EditorState                        -- result-webViewGetEditorState _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_view_get_editor_state _obj'-    checkUnexpectedReturnNULL "webkit_web_view_get_editor_state" result-    result' <- (newObject EditorState) result-    touchManagedPtr _obj-    return result'--data WebViewGetEditorStateMethodInfo-instance (signature ~ (m EditorState), MonadIO m, WebViewK a) => MethodInfo WebViewGetEditorStateMethodInfo a signature where-    overloadedMethod _ = webViewGetEditorState---- method WebView::get_estimated_load_progress--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TDouble)--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_get_estimated_load_progress" webkit_web_view_get_estimated_load_progress :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO CDouble---webViewGetEstimatedLoadProgress ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m Double                             -- result-webViewGetEstimatedLoadProgress _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_view_get_estimated_load_progress _obj'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'--data WebViewGetEstimatedLoadProgressMethodInfo-instance (signature ~ (m Double), MonadIO m, WebViewK a) => MethodInfo WebViewGetEstimatedLoadProgressMethodInfo a signature where-    overloadedMethod _ = webViewGetEstimatedLoadProgress---- method WebView::get_favicon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "cairo" "Surface")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_get_favicon" webkit_web_view_get_favicon :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO (Ptr Cairo.Surface)---webViewGetFavicon ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m Cairo.Surface                      -- result-webViewGetFavicon _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_view_get_favicon _obj'-    checkUnexpectedReturnNULL "webkit_web_view_get_favicon" result-    result' <- (newBoxed Cairo.Surface) result-    touchManagedPtr _obj-    return result'--data WebViewGetFaviconMethodInfo-instance (signature ~ (m Cairo.Surface), MonadIO m, WebViewK a) => MethodInfo WebViewGetFaviconMethodInfo a signature where-    overloadedMethod _ = webViewGetFavicon---- method WebView::get_find_controller--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "FindController")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_get_find_controller" webkit_web_view_get_find_controller :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO (Ptr FindController)---webViewGetFindController ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m FindController                     -- result-webViewGetFindController _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_view_get_find_controller _obj'-    checkUnexpectedReturnNULL "webkit_web_view_get_find_controller" result-    result' <- (newObject FindController) result-    touchManagedPtr _obj-    return result'--data WebViewGetFindControllerMethodInfo-instance (signature ~ (m FindController), MonadIO m, WebViewK a) => MethodInfo WebViewGetFindControllerMethodInfo a signature where-    overloadedMethod _ = webViewGetFindController---- method WebView::get_inspector--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "WebInspector")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_get_inspector" webkit_web_view_get_inspector :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO (Ptr WebInspector)---webViewGetInspector ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m WebInspector                       -- result-webViewGetInspector _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_view_get_inspector _obj'-    checkUnexpectedReturnNULL "webkit_web_view_get_inspector" result-    result' <- (newObject WebInspector) result-    touchManagedPtr _obj-    return result'--data WebViewGetInspectorMethodInfo-instance (signature ~ (m WebInspector), MonadIO m, WebViewK a) => MethodInfo WebViewGetInspectorMethodInfo a signature where-    overloadedMethod _ = webViewGetInspector---- method WebView::get_javascript_global_context--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "JavaScriptCore" "GlobalContext")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_get_javascript_global_context" webkit_web_view_get_javascript_global_context :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO (Ptr JavaScriptCore.GlobalContext)---webViewGetJavascriptGlobalContext ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m JavaScriptCore.GlobalContext       -- result-webViewGetJavascriptGlobalContext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_view_get_javascript_global_context _obj'-    checkUnexpectedReturnNULL "webkit_web_view_get_javascript_global_context" result-    result' <- (wrapPtr JavaScriptCore.GlobalContext) result-    touchManagedPtr _obj-    return result'--data WebViewGetJavascriptGlobalContextMethodInfo-instance (signature ~ (m JavaScriptCore.GlobalContext), MonadIO m, WebViewK a) => MethodInfo WebViewGetJavascriptGlobalContextMethodInfo a signature where-    overloadedMethod _ = webViewGetJavascriptGlobalContext---- method WebView::get_main_resource--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "WebResource")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_get_main_resource" webkit_web_view_get_main_resource :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO (Ptr WebResource)---webViewGetMainResource ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m WebResource                        -- result-webViewGetMainResource _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_view_get_main_resource _obj'-    checkUnexpectedReturnNULL "webkit_web_view_get_main_resource" result-    result' <- (newObject WebResource) result-    touchManagedPtr _obj-    return result'--data WebViewGetMainResourceMethodInfo-instance (signature ~ (m WebResource), MonadIO m, WebViewK a) => MethodInfo WebViewGetMainResourceMethodInfo a signature where-    overloadedMethod _ = webViewGetMainResource---- method WebView::get_page_id--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt64)--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_get_page_id" webkit_web_view_get_page_id :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO Word64---webViewGetPageId ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m Word64                             -- result-webViewGetPageId _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_view_get_page_id _obj'-    touchManagedPtr _obj-    return result--data WebViewGetPageIdMethodInfo-instance (signature ~ (m Word64), MonadIO m, WebViewK a) => MethodInfo WebViewGetPageIdMethodInfo a signature where-    overloadedMethod _ = webViewGetPageId---- method WebView::get_session_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "WebViewSessionState")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_get_session_state" webkit_web_view_get_session_state :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO (Ptr WebViewSessionState)---webViewGetSessionState ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m WebViewSessionState                -- result-webViewGetSessionState _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_view_get_session_state _obj'-    checkUnexpectedReturnNULL "webkit_web_view_get_session_state" result-    result' <- (wrapBoxed WebViewSessionState) result-    touchManagedPtr _obj-    return result'--data WebViewGetSessionStateMethodInfo-instance (signature ~ (m WebViewSessionState), MonadIO m, WebViewK a) => MethodInfo WebViewGetSessionStateMethodInfo a signature where-    overloadedMethod _ = webViewGetSessionState---- method WebView::get_settings--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "Settings")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_get_settings" webkit_web_view_get_settings :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO (Ptr Settings)---webViewGetSettings ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m Settings                           -- result-webViewGetSettings _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_view_get_settings _obj'-    checkUnexpectedReturnNULL "webkit_web_view_get_settings" result-    result' <- (newObject Settings) result-    touchManagedPtr _obj-    return result'--data WebViewGetSettingsMethodInfo-instance (signature ~ (m Settings), MonadIO m, WebViewK a) => MethodInfo WebViewGetSettingsMethodInfo a signature where-    overloadedMethod _ = webViewGetSettings---- method WebView::get_snapshot--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "WebKit2" "SnapshotRegion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface "WebKit2" "SnapshotOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_get_snapshot" webkit_web_view_get_snapshot :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    CUInt ->                                -- region : TInterface "WebKit2" "SnapshotRegion"-    CUInt ->                                -- options : TInterface "WebKit2" "SnapshotOptions"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---webViewGetSnapshot ::-    (MonadIO m, WebViewK a, Gio.CancellableK b) =>-    a                                       -- _obj-    -> SnapshotRegion                       -- region-    -> [SnapshotOptions]                    -- options-    -> Maybe (b)                            -- cancellable-    -> Maybe (Gio.AsyncReadyCallback)       -- callback-    -> m ()                                 -- result-webViewGetSnapshot _obj region options cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let region' = (fromIntegral . fromEnum) region-    let options' = gflagsToWord options-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    webkit_web_view_get_snapshot _obj' region' options' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data WebViewGetSnapshotMethodInfo-instance (signature ~ (SnapshotRegion -> [SnapshotOptions] -> Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, WebViewK a, Gio.CancellableK b) => MethodInfo WebViewGetSnapshotMethodInfo a signature where-    overloadedMethod _ = webViewGetSnapshot---- method WebView::get_snapshot_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "cairo" "Surface")--- throws : True--- Skip return : False--foreign import ccall "webkit_web_view_get_snapshot_finish" webkit_web_view_get_snapshot_finish :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Cairo.Surface)---webViewGetSnapshotFinish ::-    (MonadIO m, WebViewK a, Gio.AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m Cairo.Surface                      -- result-webViewGetSnapshotFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ webkit_web_view_get_snapshot_finish _obj' result_'-        checkUnexpectedReturnNULL "webkit_web_view_get_snapshot_finish" result-        result' <- (wrapBoxed Cairo.Surface) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data WebViewGetSnapshotFinishMethodInfo-instance (signature ~ (b -> m Cairo.Surface), MonadIO m, WebViewK a, Gio.AsyncResultK b) => MethodInfo WebViewGetSnapshotFinishMethodInfo a signature where-    overloadedMethod _ = webViewGetSnapshotFinish---- method WebView::get_title--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_get_title" webkit_web_view_get_title :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO CString---webViewGetTitle ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-webViewGetTitle _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_view_get_title _obj'-    checkUnexpectedReturnNULL "webkit_web_view_get_title" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data WebViewGetTitleMethodInfo-instance (signature ~ (m T.Text), MonadIO m, WebViewK a) => MethodInfo WebViewGetTitleMethodInfo a signature where-    overloadedMethod _ = webViewGetTitle---- method WebView::get_tls_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "errors", argType = TInterface "Gio" "TlsCertificateFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_get_tls_info" webkit_web_view_get_tls_info :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    Ptr (Ptr Gio.TlsCertificate) ->         -- certificate : TInterface "Gio" "TlsCertificate"-    Ptr CUInt ->                            -- errors : TInterface "Gio" "TlsCertificateFlags"-    IO CInt---webViewGetTlsInfo ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m (Bool,Gio.TlsCertificate,[Gio.TlsCertificateFlags])-- result-webViewGetTlsInfo _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    certificate <- allocMem :: IO (Ptr (Ptr Gio.TlsCertificate))-    errors <- allocMem :: IO (Ptr CUInt)-    result <- webkit_web_view_get_tls_info _obj' certificate errors-    let result' = (/= 0) result-    certificate' <- peek certificate-    certificate'' <- (newObject Gio.TlsCertificate) certificate'-    errors' <- peek errors-    let errors'' = wordToGFlags errors'-    touchManagedPtr _obj-    freeMem certificate-    freeMem errors-    return (result', certificate'', errors'')--data WebViewGetTlsInfoMethodInfo-instance (signature ~ (m (Bool,Gio.TlsCertificate,[Gio.TlsCertificateFlags])), MonadIO m, WebViewK a) => MethodInfo WebViewGetTlsInfoMethodInfo a signature where-    overloadedMethod _ = webViewGetTlsInfo---- method WebView::get_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_get_uri" webkit_web_view_get_uri :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO CString---webViewGetUri ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m (Maybe T.Text)                     -- result-webViewGetUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_view_get_uri _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data WebViewGetUriMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, WebViewK a) => MethodInfo WebViewGetUriMethodInfo a signature where-    overloadedMethod _ = webViewGetUri---- method WebView::get_user_content_manager--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "UserContentManager")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_get_user_content_manager" webkit_web_view_get_user_content_manager :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO (Ptr UserContentManager)---webViewGetUserContentManager ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m UserContentManager                 -- result-webViewGetUserContentManager _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_view_get_user_content_manager _obj'-    checkUnexpectedReturnNULL "webkit_web_view_get_user_content_manager" result-    result' <- (newObject UserContentManager) result-    touchManagedPtr _obj-    return result'--data WebViewGetUserContentManagerMethodInfo-instance (signature ~ (m UserContentManager), MonadIO m, WebViewK a) => MethodInfo WebViewGetUserContentManagerMethodInfo a signature where-    overloadedMethod _ = webViewGetUserContentManager---- method WebView::get_window_properties--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "WindowProperties")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_get_window_properties" webkit_web_view_get_window_properties :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO (Ptr WindowProperties)---webViewGetWindowProperties ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m WindowProperties                   -- result-webViewGetWindowProperties _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_view_get_window_properties _obj'-    checkUnexpectedReturnNULL "webkit_web_view_get_window_properties" result-    result' <- (newObject WindowProperties) result-    touchManagedPtr _obj-    return result'--data WebViewGetWindowPropertiesMethodInfo-instance (signature ~ (m WindowProperties), MonadIO m, WebViewK a) => MethodInfo WebViewGetWindowPropertiesMethodInfo a signature where-    overloadedMethod _ = webViewGetWindowProperties---- method WebView::get_zoom_level--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TDouble)--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_get_zoom_level" webkit_web_view_get_zoom_level :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO CDouble---webViewGetZoomLevel ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m Double                             -- result-webViewGetZoomLevel _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_view_get_zoom_level _obj'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'--data WebViewGetZoomLevelMethodInfo-instance (signature ~ (m Double), MonadIO m, WebViewK a) => MethodInfo WebViewGetZoomLevelMethodInfo a signature where-    overloadedMethod _ = webViewGetZoomLevel---- method WebView::go_back--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_go_back" webkit_web_view_go_back :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO ()---webViewGoBack ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-webViewGoBack _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_web_view_go_back _obj'-    touchManagedPtr _obj-    return ()--data WebViewGoBackMethodInfo-instance (signature ~ (m ()), MonadIO m, WebViewK a) => MethodInfo WebViewGoBackMethodInfo a signature where-    overloadedMethod _ = webViewGoBack---- method WebView::go_forward--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_go_forward" webkit_web_view_go_forward :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO ()---webViewGoForward ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-webViewGoForward _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_web_view_go_forward _obj'-    touchManagedPtr _obj-    return ()--data WebViewGoForwardMethodInfo-instance (signature ~ (m ()), MonadIO m, WebViewK a) => MethodInfo WebViewGoForwardMethodInfo a signature where-    overloadedMethod _ = webViewGoForward---- method WebView::go_to_back_forward_list_item--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "list_item", argType = TInterface "WebKit2" "BackForwardListItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_go_to_back_forward_list_item" webkit_web_view_go_to_back_forward_list_item :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    Ptr BackForwardListItem ->              -- list_item : TInterface "WebKit2" "BackForwardListItem"-    IO ()---webViewGoToBackForwardListItem ::-    (MonadIO m, WebViewK a, BackForwardListItemK b) =>-    a                                       -- _obj-    -> b                                    -- listItem-    -> m ()                                 -- result-webViewGoToBackForwardListItem _obj listItem = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let listItem' = unsafeManagedPtrCastPtr listItem-    webkit_web_view_go_to_back_forward_list_item _obj' listItem'-    touchManagedPtr _obj-    touchManagedPtr listItem-    return ()--data WebViewGoToBackForwardListItemMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, WebViewK a, BackForwardListItemK b) => MethodInfo WebViewGoToBackForwardListItemMethodInfo a signature where-    overloadedMethod _ = webViewGoToBackForwardListItem---- method WebView::is_editable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_is_editable" webkit_web_view_is_editable :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO CInt---webViewIsEditable ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-webViewIsEditable _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_view_is_editable _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WebViewIsEditableMethodInfo-instance (signature ~ (m Bool), MonadIO m, WebViewK a) => MethodInfo WebViewIsEditableMethodInfo a signature where-    overloadedMethod _ = webViewIsEditable---- method WebView::is_loading--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_is_loading" webkit_web_view_is_loading :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO CInt---webViewIsLoading ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-webViewIsLoading _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_view_is_loading _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WebViewIsLoadingMethodInfo-instance (signature ~ (m Bool), MonadIO m, WebViewK a) => MethodInfo WebViewIsLoadingMethodInfo a signature where-    overloadedMethod _ = webViewIsLoading---- method WebView::is_playing_audio--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_is_playing_audio" webkit_web_view_is_playing_audio :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO CInt---webViewIsPlayingAudio ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-webViewIsPlayingAudio _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_view_is_playing_audio _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WebViewIsPlayingAudioMethodInfo-instance (signature ~ (m Bool), MonadIO m, WebViewK a) => MethodInfo WebViewIsPlayingAudioMethodInfo a signature where-    overloadedMethod _ = webViewIsPlayingAudio---- method WebView::load_alternate_html--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_load_alternate_html" webkit_web_view_load_alternate_html :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    CString ->                              -- content : TBasicType TUTF8-    CString ->                              -- content_uri : TBasicType TUTF8-    CString ->                              -- base_uri : TBasicType TUTF8-    IO ()---webViewLoadAlternateHtml ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> T.Text                               -- content-    -> T.Text                               -- contentUri-    -> Maybe (T.Text)                       -- baseUri-    -> m ()                                 -- result-webViewLoadAlternateHtml _obj content contentUri baseUri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    content' <- textToCString content-    contentUri' <- textToCString contentUri-    maybeBaseUri <- case baseUri of-        Nothing -> return nullPtr-        Just jBaseUri -> do-            jBaseUri' <- textToCString jBaseUri-            return jBaseUri'-    webkit_web_view_load_alternate_html _obj' content' contentUri' maybeBaseUri-    touchManagedPtr _obj-    freeMem content'-    freeMem contentUri'-    freeMem maybeBaseUri-    return ()--data WebViewLoadAlternateHtmlMethodInfo-instance (signature ~ (T.Text -> T.Text -> Maybe (T.Text) -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewLoadAlternateHtmlMethodInfo a signature where-    overloadedMethod _ = webViewLoadAlternateHtml---- method WebView::load_bytes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_load_bytes" webkit_web_view_load_bytes :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    Ptr GLib.Bytes ->                       -- bytes : TInterface "GLib" "Bytes"-    CString ->                              -- mime_type : TBasicType TUTF8-    CString ->                              -- encoding : TBasicType TUTF8-    CString ->                              -- base_uri : TBasicType TUTF8-    IO ()---webViewLoadBytes ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> GLib.Bytes                           -- bytes-    -> Maybe (T.Text)                       -- mimeType-    -> Maybe (T.Text)                       -- encoding-    -> Maybe (T.Text)                       -- baseUri-    -> m ()                                 -- result-webViewLoadBytes _obj bytes mimeType encoding baseUri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let bytes' = unsafeManagedPtrGetPtr bytes-    maybeMimeType <- case mimeType of-        Nothing -> return nullPtr-        Just jMimeType -> do-            jMimeType' <- textToCString jMimeType-            return jMimeType'-    maybeEncoding <- case encoding of-        Nothing -> return nullPtr-        Just jEncoding -> do-            jEncoding' <- textToCString jEncoding-            return jEncoding'-    maybeBaseUri <- case baseUri of-        Nothing -> return nullPtr-        Just jBaseUri -> do-            jBaseUri' <- textToCString jBaseUri-            return jBaseUri'-    webkit_web_view_load_bytes _obj' bytes' maybeMimeType maybeEncoding maybeBaseUri-    touchManagedPtr _obj-    touchManagedPtr bytes-    freeMem maybeMimeType-    freeMem maybeEncoding-    freeMem maybeBaseUri-    return ()--data WebViewLoadBytesMethodInfo-instance (signature ~ (GLib.Bytes -> Maybe (T.Text) -> Maybe (T.Text) -> Maybe (T.Text) -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewLoadBytesMethodInfo a signature where-    overloadedMethod _ = webViewLoadBytes---- method WebView::load_html--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_load_html" webkit_web_view_load_html :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    CString ->                              -- content : TBasicType TUTF8-    CString ->                              -- base_uri : TBasicType TUTF8-    IO ()---webViewLoadHtml ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> T.Text                               -- content-    -> Maybe (T.Text)                       -- baseUri-    -> m ()                                 -- result-webViewLoadHtml _obj content baseUri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    content' <- textToCString content-    maybeBaseUri <- case baseUri of-        Nothing -> return nullPtr-        Just jBaseUri -> do-            jBaseUri' <- textToCString jBaseUri-            return jBaseUri'-    webkit_web_view_load_html _obj' content' maybeBaseUri-    touchManagedPtr _obj-    freeMem content'-    freeMem maybeBaseUri-    return ()--data WebViewLoadHtmlMethodInfo-instance (signature ~ (T.Text -> Maybe (T.Text) -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewLoadHtmlMethodInfo a signature where-    overloadedMethod _ = webViewLoadHtml---- method WebView::load_plain_text--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "plain_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_load_plain_text" webkit_web_view_load_plain_text :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    CString ->                              -- plain_text : TBasicType TUTF8-    IO ()---webViewLoadPlainText ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> T.Text                               -- plainText-    -> m ()                                 -- result-webViewLoadPlainText _obj plainText = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    plainText' <- textToCString plainText-    webkit_web_view_load_plain_text _obj' plainText'-    touchManagedPtr _obj-    freeMem plainText'-    return ()--data WebViewLoadPlainTextMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewLoadPlainTextMethodInfo a signature where-    overloadedMethod _ = webViewLoadPlainText---- method WebView::load_request--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "request", argType = TInterface "WebKit2" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_load_request" webkit_web_view_load_request :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    Ptr URIRequest ->                       -- request : TInterface "WebKit2" "URIRequest"-    IO ()---webViewLoadRequest ::-    (MonadIO m, WebViewK a, URIRequestK b) =>-    a                                       -- _obj-    -> b                                    -- request-    -> m ()                                 -- result-webViewLoadRequest _obj request = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let request' = unsafeManagedPtrCastPtr request-    webkit_web_view_load_request _obj' request'-    touchManagedPtr _obj-    touchManagedPtr request-    return ()--data WebViewLoadRequestMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, WebViewK a, URIRequestK b) => MethodInfo WebViewLoadRequestMethodInfo a signature where-    overloadedMethod _ = webViewLoadRequest---- method WebView::load_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_load_uri" webkit_web_view_load_uri :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    CString ->                              -- uri : TBasicType TUTF8-    IO ()---webViewLoadUri ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> T.Text                               -- uri-    -> m ()                                 -- result-webViewLoadUri _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    uri' <- textToCString uri-    webkit_web_view_load_uri _obj' uri'-    touchManagedPtr _obj-    freeMem uri'-    return ()--data WebViewLoadUriMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewLoadUriMethodInfo a signature where-    overloadedMethod _ = webViewLoadUri---- method WebView::new_with_related_view--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gtk" "Widget")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_new_with_related_view" webkit_web_view_new_with_related_view :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO (Ptr Gtk.Widget)---webViewNewWithRelatedView ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m Gtk.Widget                         -- result-webViewNewWithRelatedView _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_web_view_new_with_related_view _obj'-    checkUnexpectedReturnNULL "webkit_web_view_new_with_related_view" result-    result' <- (wrapObject Gtk.Widget) result-    touchManagedPtr _obj-    return result'--data WebViewNewWithRelatedViewMethodInfo-instance (signature ~ (m Gtk.Widget), MonadIO m, WebViewK a) => MethodInfo WebViewNewWithRelatedViewMethodInfo a signature where-    overloadedMethod _ = webViewNewWithRelatedView---- method WebView::reload--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_reload" webkit_web_view_reload :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO ()---webViewReload ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-webViewReload _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_web_view_reload _obj'-    touchManagedPtr _obj-    return ()--data WebViewReloadMethodInfo-instance (signature ~ (m ()), MonadIO m, WebViewK a) => MethodInfo WebViewReloadMethodInfo a signature where-    overloadedMethod _ = webViewReload---- method WebView::reload_bypass_cache--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_reload_bypass_cache" webkit_web_view_reload_bypass_cache :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO ()---webViewReloadBypassCache ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-webViewReloadBypassCache _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_web_view_reload_bypass_cache _obj'-    touchManagedPtr _obj-    return ()--data WebViewReloadBypassCacheMethodInfo-instance (signature ~ (m ()), MonadIO m, WebViewK a) => MethodInfo WebViewReloadBypassCacheMethodInfo a signature where-    overloadedMethod _ = webViewReloadBypassCache---- method WebView::restore_session_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "WebKit2" "WebViewSessionState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_restore_session_state" webkit_web_view_restore_session_state :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    Ptr WebViewSessionState ->              -- state : TInterface "WebKit2" "WebViewSessionState"-    IO ()---webViewRestoreSessionState ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> WebViewSessionState                  -- state-    -> m ()                                 -- result-webViewRestoreSessionState _obj state = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let state' = unsafeManagedPtrGetPtr state-    webkit_web_view_restore_session_state _obj' state'-    touchManagedPtr _obj-    touchManagedPtr state-    return ()--data WebViewRestoreSessionStateMethodInfo-instance (signature ~ (WebViewSessionState -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewRestoreSessionStateMethodInfo a signature where-    overloadedMethod _ = webViewRestoreSessionState---- method WebView::run_javascript--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "script", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_run_javascript" webkit_web_view_run_javascript :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    CString ->                              -- script : TBasicType TUTF8-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---webViewRunJavascript ::-    (MonadIO m, WebViewK a, Gio.CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- script-    -> Maybe (b)                            -- cancellable-    -> Maybe (Gio.AsyncReadyCallback)       -- callback-    -> m ()                                 -- result-webViewRunJavascript _obj script cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    script' <- textToCString script-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    webkit_web_view_run_javascript _obj' script' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem script'-    return ()--data WebViewRunJavascriptMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, WebViewK a, Gio.CancellableK b) => MethodInfo WebViewRunJavascriptMethodInfo a signature where-    overloadedMethod _ = webViewRunJavascript---- method WebView::run_javascript_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "JavascriptResult")--- throws : True--- Skip return : False--foreign import ccall "webkit_web_view_run_javascript_finish" webkit_web_view_run_javascript_finish :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr JavascriptResult)---webViewRunJavascriptFinish ::-    (MonadIO m, WebViewK a, Gio.AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m JavascriptResult                   -- result-webViewRunJavascriptFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ webkit_web_view_run_javascript_finish _obj' result_'-        checkUnexpectedReturnNULL "webkit_web_view_run_javascript_finish" result-        result' <- (wrapBoxed JavascriptResult) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data WebViewRunJavascriptFinishMethodInfo-instance (signature ~ (b -> m JavascriptResult), MonadIO m, WebViewK a, Gio.AsyncResultK b) => MethodInfo WebViewRunJavascriptFinishMethodInfo a signature where-    overloadedMethod _ = webViewRunJavascriptFinish---- method WebView::run_javascript_from_gresource--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resource", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_run_javascript_from_gresource" webkit_web_view_run_javascript_from_gresource :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    CString ->                              -- resource : TBasicType TUTF8-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---webViewRunJavascriptFromGresource ::-    (MonadIO m, WebViewK a, Gio.CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- resource-    -> Maybe (b)                            -- cancellable-    -> Maybe (Gio.AsyncReadyCallback)       -- callback-    -> m ()                                 -- result-webViewRunJavascriptFromGresource _obj resource cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    resource' <- textToCString resource-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    webkit_web_view_run_javascript_from_gresource _obj' resource' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem resource'-    return ()--data WebViewRunJavascriptFromGresourceMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, WebViewK a, Gio.CancellableK b) => MethodInfo WebViewRunJavascriptFromGresourceMethodInfo a signature where-    overloadedMethod _ = webViewRunJavascriptFromGresource---- method WebView::run_javascript_from_gresource_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "JavascriptResult")--- throws : True--- Skip return : False--foreign import ccall "webkit_web_view_run_javascript_from_gresource_finish" webkit_web_view_run_javascript_from_gresource_finish :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr JavascriptResult)---webViewRunJavascriptFromGresourceFinish ::-    (MonadIO m, WebViewK a, Gio.AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m JavascriptResult                   -- result-webViewRunJavascriptFromGresourceFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ webkit_web_view_run_javascript_from_gresource_finish _obj' result_'-        checkUnexpectedReturnNULL "webkit_web_view_run_javascript_from_gresource_finish" result-        result' <- (wrapBoxed JavascriptResult) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data WebViewRunJavascriptFromGresourceFinishMethodInfo-instance (signature ~ (b -> m JavascriptResult), MonadIO m, WebViewK a, Gio.AsyncResultK b) => MethodInfo WebViewRunJavascriptFromGresourceFinishMethodInfo a signature where-    overloadedMethod _ = webViewRunJavascriptFromGresourceFinish---- method WebView::save--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "save_mode", argType = TInterface "WebKit2" "SaveMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_save" webkit_web_view_save :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    CUInt ->                                -- save_mode : TInterface "WebKit2" "SaveMode"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---webViewSave ::-    (MonadIO m, WebViewK a, Gio.CancellableK b) =>-    a                                       -- _obj-    -> SaveMode                             -- saveMode-    -> Maybe (b)                            -- cancellable-    -> Maybe (Gio.AsyncReadyCallback)       -- callback-    -> m ()                                 -- result-webViewSave _obj saveMode cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let saveMode' = (fromIntegral . fromEnum) saveMode-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    webkit_web_view_save _obj' saveMode' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data WebViewSaveMethodInfo-instance (signature ~ (SaveMode -> Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, WebViewK a, Gio.CancellableK b) => MethodInfo WebViewSaveMethodInfo a signature where-    overloadedMethod _ = webViewSave---- method WebView::save_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "InputStream")--- throws : True--- Skip return : False--foreign import ccall "webkit_web_view_save_finish" webkit_web_view_save_finish :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.InputStream)---webViewSaveFinish ::-    (MonadIO m, WebViewK a, Gio.AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m Gio.InputStream                    -- result-webViewSaveFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ webkit_web_view_save_finish _obj' result_'-        checkUnexpectedReturnNULL "webkit_web_view_save_finish" result-        result' <- (wrapObject Gio.InputStream) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data WebViewSaveFinishMethodInfo-instance (signature ~ (b -> m Gio.InputStream), MonadIO m, WebViewK a, Gio.AsyncResultK b) => MethodInfo WebViewSaveFinishMethodInfo a signature where-    overloadedMethod _ = webViewSaveFinish---- method WebView::save_to_file--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "save_mode", argType = TInterface "WebKit2" "SaveMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_save_to_file" webkit_web_view_save_to_file :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    Ptr Gio.File ->                         -- file : TInterface "Gio" "File"-    CUInt ->                                -- save_mode : TInterface "WebKit2" "SaveMode"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---webViewSaveToFile ::-    (MonadIO m, WebViewK a, Gio.FileK b, Gio.CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- file-    -> SaveMode                             -- saveMode-    -> Maybe (c)                            -- cancellable-    -> Maybe (Gio.AsyncReadyCallback)       -- callback-    -> m ()                                 -- result-webViewSaveToFile _obj file saveMode cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let file' = unsafeManagedPtrCastPtr file-    let saveMode' = (fromIntegral . fromEnum) saveMode-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    webkit_web_view_save_to_file _obj' file' saveMode' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    touchManagedPtr file-    whenJust cancellable touchManagedPtr-    return ()--data WebViewSaveToFileMethodInfo-instance (signature ~ (b -> SaveMode -> Maybe (c) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, WebViewK a, Gio.FileK b, Gio.CancellableK c) => MethodInfo WebViewSaveToFileMethodInfo a signature where-    overloadedMethod _ = webViewSaveToFile---- method WebView::save_to_file_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "webkit_web_view_save_to_file_finish" webkit_web_view_save_to_file_finish :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---webViewSaveToFileFinish ::-    (MonadIO m, WebViewK a, Gio.AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-webViewSaveToFileFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ webkit_web_view_save_to_file_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data WebViewSaveToFileFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, WebViewK a, Gio.AsyncResultK b) => MethodInfo WebViewSaveToFileFinishMethodInfo a signature where-    overloadedMethod _ = webViewSaveToFileFinish---- method WebView::set_background_color--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_set_background_color" webkit_web_view_set_background_color :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    Ptr Gdk.RGBA ->                         -- rgba : TInterface "Gdk" "RGBA"-    IO ()---webViewSetBackgroundColor ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> Gdk.RGBA                             -- rgba-    -> m ()                                 -- result-webViewSetBackgroundColor _obj rgba = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let rgba' = unsafeManagedPtrGetPtr rgba-    webkit_web_view_set_background_color _obj' rgba'-    touchManagedPtr _obj-    touchManagedPtr rgba-    return ()--data WebViewSetBackgroundColorMethodInfo-instance (signature ~ (Gdk.RGBA -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewSetBackgroundColorMethodInfo a signature where-    overloadedMethod _ = webViewSetBackgroundColor---- method WebView::set_custom_charset--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "charset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_set_custom_charset" webkit_web_view_set_custom_charset :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    CString ->                              -- charset : TBasicType TUTF8-    IO ()---webViewSetCustomCharset ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- charset-    -> m ()                                 -- result-webViewSetCustomCharset _obj charset = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCharset <- case charset of-        Nothing -> return nullPtr-        Just jCharset -> do-            jCharset' <- textToCString jCharset-            return jCharset'-    webkit_web_view_set_custom_charset _obj' maybeCharset-    touchManagedPtr _obj-    freeMem maybeCharset-    return ()--data WebViewSetCustomCharsetMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewSetCustomCharsetMethodInfo a signature where-    overloadedMethod _ = webViewSetCustomCharset---- method WebView::set_editable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_set_editable" webkit_web_view_set_editable :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    CInt ->                                 -- editable : TBasicType TBoolean-    IO ()---webViewSetEditable ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> Bool                                 -- editable-    -> m ()                                 -- result-webViewSetEditable _obj editable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let editable' = (fromIntegral . fromEnum) editable-    webkit_web_view_set_editable _obj' editable'-    touchManagedPtr _obj-    return ()--data WebViewSetEditableMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewSetEditableMethodInfo a signature where-    overloadedMethod _ = webViewSetEditable---- method WebView::set_settings--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "settings", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_set_settings" webkit_web_view_set_settings :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    Ptr Settings ->                         -- settings : TInterface "WebKit2" "Settings"-    IO ()---webViewSetSettings ::-    (MonadIO m, WebViewK a, SettingsK b) =>-    a                                       -- _obj-    -> b                                    -- settings-    -> m ()                                 -- result-webViewSetSettings _obj settings = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let settings' = unsafeManagedPtrCastPtr settings-    webkit_web_view_set_settings _obj' settings'-    touchManagedPtr _obj-    touchManagedPtr settings-    return ()--data WebViewSetSettingsMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, WebViewK a, SettingsK b) => MethodInfo WebViewSetSettingsMethodInfo a signature where-    overloadedMethod _ = webViewSetSettings---- method WebView::set_zoom_level--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "zoom_level", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_set_zoom_level" webkit_web_view_set_zoom_level :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    CDouble ->                              -- zoom_level : TBasicType TDouble-    IO ()---webViewSetZoomLevel ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> Double                               -- zoomLevel-    -> m ()                                 -- result-webViewSetZoomLevel _obj zoomLevel = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let zoomLevel' = realToFrac zoomLevel-    webkit_web_view_set_zoom_level _obj' zoomLevel'-    touchManagedPtr _obj-    return ()--data WebViewSetZoomLevelMethodInfo-instance (signature ~ (Double -> m ()), MonadIO m, WebViewK a) => MethodInfo WebViewSetZoomLevelMethodInfo a signature where-    overloadedMethod _ = webViewSetZoomLevel---- method WebView::stop_loading--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_stop_loading" webkit_web_view_stop_loading :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO ()---webViewStopLoading ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-webViewStopLoading _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_web_view_stop_loading _obj'-    touchManagedPtr _obj-    return ()--data WebViewStopLoadingMethodInfo-instance (signature ~ (m ()), MonadIO m, WebViewK a) => MethodInfo WebViewStopLoadingMethodInfo a signature where-    overloadedMethod _ = webViewStopLoading---- method WebView::try_close--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_try_close" webkit_web_view_try_close :: -    Ptr WebView ->                          -- _obj : TInterface "WebKit2" "WebView"-    IO ()---webViewTryClose ::-    (MonadIO m, WebViewK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-webViewTryClose _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    webkit_web_view_try_close _obj'-    touchManagedPtr _obj-    return ()--data WebViewTryCloseMethodInfo-instance (signature ~ (m ()), MonadIO m, WebViewK a) => MethodInfo WebViewTryCloseMethodInfo a signature where-    overloadedMethod _ = webViewTryClose--
− GI/WebKit2/Objects/WebView.hs-boot 
@@ -1,110 +0,0 @@-module GI.WebKit2.Objects.WebView where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype WebView = WebView (ForeignPtr WebView)-instance GObject WebView where-class GObject o => WebViewK o-instance (GObject o, IsDescendantOf WebView o) => WebViewK o-data WebViewEditablePropertyInfo-data WebViewEstimatedLoadProgressPropertyInfo-data WebViewFaviconPropertyInfo-data WebViewIsLoadingPropertyInfo-data WebViewIsPlayingAudioPropertyInfo-data WebViewRelatedViewPropertyInfo-data WebViewSettingsPropertyInfo-data WebViewTitlePropertyInfo-data WebViewUriPropertyInfo-data WebViewUserContentManagerPropertyInfo-data WebViewWebContextPropertyInfo-data WebViewZoomLevelPropertyInfo-data WebViewAuthenticateSignalInfo-data WebViewCloseSignalInfo-data WebViewContextMenuSignalInfo-data WebViewContextMenuDismissedSignalInfo-data WebViewCreateSignalInfo-data WebViewDecidePolicySignalInfo-data WebViewEnterFullscreenSignalInfo-data WebViewInsecureContentDetectedSignalInfo-data WebViewLeaveFullscreenSignalInfo-data WebViewLoadChangedSignalInfo-data WebViewLoadFailedSignalInfo-data WebViewLoadFailedWithTlsErrorsSignalInfo-data WebViewMouseTargetChangedSignalInfo-data WebViewPermissionRequestSignalInfo-data WebViewPrintSignalInfo-data WebViewReadyToShowSignalInfo-data WebViewResourceLoadStartedSignalInfo-data WebViewRunAsModalSignalInfo-data WebViewRunColorChooserSignalInfo-data WebViewRunFileChooserSignalInfo-data WebViewScriptDialogSignalInfo-data WebViewShowNotificationSignalInfo-data WebViewSubmitFormSignalInfo-data WebViewWebProcessCrashedSignalInfo-data WebViewCanExecuteEditingCommandMethodInfo-data WebViewCanExecuteEditingCommandFinishMethodInfo-data WebViewCanGoBackMethodInfo-data WebViewCanGoForwardMethodInfo-data WebViewCanShowMimeTypeMethodInfo-data WebViewDownloadUriMethodInfo-data WebViewExecuteEditingCommandMethodInfo-data WebViewExecuteEditingCommandWithArgumentMethodInfo-data WebViewGetBackForwardListMethodInfo-data WebViewGetBackgroundColorMethodInfo-data WebViewGetContextMethodInfo-data WebViewGetCustomCharsetMethodInfo-data WebViewGetEditorStateMethodInfo-data WebViewGetEstimatedLoadProgressMethodInfo-data WebViewGetFaviconMethodInfo-data WebViewGetFindControllerMethodInfo-data WebViewGetInspectorMethodInfo-data WebViewGetJavascriptGlobalContextMethodInfo-data WebViewGetMainResourceMethodInfo-data WebViewGetPageIdMethodInfo-data WebViewGetSessionStateMethodInfo-data WebViewGetSettingsMethodInfo-data WebViewGetSnapshotMethodInfo-data WebViewGetSnapshotFinishMethodInfo-data WebViewGetTitleMethodInfo-data WebViewGetTlsInfoMethodInfo-data WebViewGetUriMethodInfo-data WebViewGetUserContentManagerMethodInfo-data WebViewGetWindowPropertiesMethodInfo-data WebViewGetZoomLevelMethodInfo-data WebViewGoBackMethodInfo-data WebViewGoForwardMethodInfo-data WebViewGoToBackForwardListItemMethodInfo-data WebViewIsEditableMethodInfo-data WebViewIsLoadingMethodInfo-data WebViewIsPlayingAudioMethodInfo-data WebViewLoadAlternateHtmlMethodInfo-data WebViewLoadBytesMethodInfo-data WebViewLoadHtmlMethodInfo-data WebViewLoadPlainTextMethodInfo-data WebViewLoadRequestMethodInfo-data WebViewLoadUriMethodInfo-data WebViewNewWithRelatedViewMethodInfo-data WebViewReloadMethodInfo-data WebViewReloadBypassCacheMethodInfo-data WebViewRestoreSessionStateMethodInfo-data WebViewRunJavascriptMethodInfo-data WebViewRunJavascriptFinishMethodInfo-data WebViewRunJavascriptFromGresourceMethodInfo-data WebViewRunJavascriptFromGresourceFinishMethodInfo-data WebViewSaveMethodInfo-data WebViewSaveFinishMethodInfo-data WebViewSaveToFileMethodInfo-data WebViewSaveToFileFinishMethodInfo-data WebViewSetBackgroundColorMethodInfo-data WebViewSetCustomCharsetMethodInfo-data WebViewSetEditableMethodInfo-data WebViewSetSettingsMethodInfo-data WebViewSetZoomLevelMethodInfo-data WebViewStopLoadingMethodInfo-data WebViewTryCloseMethodInfo
− GI/WebKit2/Objects/WebViewBase.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)--}--module GI.WebKit2.Objects.WebViewBase-    ( ---- * Exported types-    WebViewBase(..)                         ,-    WebViewBaseK                            ,-    toWebViewBase                           ,-    noWebViewBase                           ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.Atk as Atk-import qualified GI.GObject as GObject-import qualified GI.Gtk as Gtk--newtype WebViewBase = WebViewBase (ForeignPtr WebViewBase)-foreign import ccall "webkit_web_view_base_get_type"-    c_webkit_web_view_base_get_type :: IO GType--type instance ParentTypes WebViewBase = WebViewBaseParentTypes-type WebViewBaseParentTypes = '[Gtk.Container, Gtk.Widget, GObject.Object, Atk.ImplementorIface, Gtk.Buildable]--instance GObject WebViewBase where-    gobjectIsInitiallyUnowned _ = True-    gobjectType _ = c_webkit_web_view_base_get_type-    --class GObject o => WebViewBaseK o-instance (GObject o, IsDescendantOf WebViewBase o) => WebViewBaseK o--toWebViewBase :: WebViewBaseK o => o -> IO WebViewBase-toWebViewBase = unsafeCastTo WebViewBase--noWebViewBase :: Maybe WebViewBase-noWebViewBase = Nothing--type family ResolveWebViewBaseMethod (t :: Symbol) (o :: *) :: * where-    ResolveWebViewBaseMethod "activate" o = Gtk.WidgetActivateMethodInfo-    ResolveWebViewBaseMethod "add" o = Gtk.ContainerAddMethodInfo-    ResolveWebViewBaseMethod "addAccelerator" o = Gtk.WidgetAddAcceleratorMethodInfo-    ResolveWebViewBaseMethod "addChild" o = Gtk.BuildableAddChildMethodInfo-    ResolveWebViewBaseMethod "addDeviceEvents" o = Gtk.WidgetAddDeviceEventsMethodInfo-    ResolveWebViewBaseMethod "addEvents" o = Gtk.WidgetAddEventsMethodInfo-    ResolveWebViewBaseMethod "addMnemonicLabel" o = Gtk.WidgetAddMnemonicLabelMethodInfo-    ResolveWebViewBaseMethod "addTickCallback" o = Gtk.WidgetAddTickCallbackMethodInfo-    ResolveWebViewBaseMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveWebViewBaseMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveWebViewBaseMethod "canActivateAccel" o = Gtk.WidgetCanActivateAccelMethodInfo-    ResolveWebViewBaseMethod "checkResize" o = Gtk.ContainerCheckResizeMethodInfo-    ResolveWebViewBaseMethod "childFocus" o = Gtk.WidgetChildFocusMethodInfo-    ResolveWebViewBaseMethod "childGetProperty" o = Gtk.ContainerChildGetPropertyMethodInfo-    ResolveWebViewBaseMethod "childNotifyByPspec" o = Gtk.ContainerChildNotifyByPspecMethodInfo-    ResolveWebViewBaseMethod "childSetProperty" o = Gtk.ContainerChildSetPropertyMethodInfo-    ResolveWebViewBaseMethod "childType" o = Gtk.ContainerChildTypeMethodInfo-    ResolveWebViewBaseMethod "classPath" o = Gtk.WidgetClassPathMethodInfo-    ResolveWebViewBaseMethod "computeExpand" o = Gtk.WidgetComputeExpandMethodInfo-    ResolveWebViewBaseMethod "constructChild" o = Gtk.BuildableConstructChildMethodInfo-    ResolveWebViewBaseMethod "createPangoContext" o = Gtk.WidgetCreatePangoContextMethodInfo-    ResolveWebViewBaseMethod "createPangoLayout" o = Gtk.WidgetCreatePangoLayoutMethodInfo-    ResolveWebViewBaseMethod "customFinished" o = Gtk.BuildableCustomFinishedMethodInfo-    ResolveWebViewBaseMethod "customTagEnd" o = Gtk.BuildableCustomTagEndMethodInfo-    ResolveWebViewBaseMethod "customTagStart" o = Gtk.BuildableCustomTagStartMethodInfo-    ResolveWebViewBaseMethod "destroy" o = Gtk.WidgetDestroyMethodInfo-    ResolveWebViewBaseMethod "destroyed" o = Gtk.WidgetDestroyedMethodInfo-    ResolveWebViewBaseMethod "deviceIsShadowed" o = Gtk.WidgetDeviceIsShadowedMethodInfo-    ResolveWebViewBaseMethod "dragBegin" o = Gtk.WidgetDragBeginMethodInfo-    ResolveWebViewBaseMethod "dragBeginWithCoordinates" o = Gtk.WidgetDragBeginWithCoordinatesMethodInfo-    ResolveWebViewBaseMethod "dragCheckThreshold" o = Gtk.WidgetDragCheckThresholdMethodInfo-    ResolveWebViewBaseMethod "dragDestAddImageTargets" o = Gtk.WidgetDragDestAddImageTargetsMethodInfo-    ResolveWebViewBaseMethod "dragDestAddTextTargets" o = Gtk.WidgetDragDestAddTextTargetsMethodInfo-    ResolveWebViewBaseMethod "dragDestAddUriTargets" o = Gtk.WidgetDragDestAddUriTargetsMethodInfo-    ResolveWebViewBaseMethod "dragDestFindTarget" o = Gtk.WidgetDragDestFindTargetMethodInfo-    ResolveWebViewBaseMethod "dragDestGetTargetList" o = Gtk.WidgetDragDestGetTargetListMethodInfo-    ResolveWebViewBaseMethod "dragDestGetTrackMotion" o = Gtk.WidgetDragDestGetTrackMotionMethodInfo-    ResolveWebViewBaseMethod "dragDestSet" o = Gtk.WidgetDragDestSetMethodInfo-    ResolveWebViewBaseMethod "dragDestSetProxy" o = Gtk.WidgetDragDestSetProxyMethodInfo-    ResolveWebViewBaseMethod "dragDestSetTargetList" o = Gtk.WidgetDragDestSetTargetListMethodInfo-    ResolveWebViewBaseMethod "dragDestSetTrackMotion" o = Gtk.WidgetDragDestSetTrackMotionMethodInfo-    ResolveWebViewBaseMethod "dragDestUnset" o = Gtk.WidgetDragDestUnsetMethodInfo-    ResolveWebViewBaseMethod "dragGetData" o = Gtk.WidgetDragGetDataMethodInfo-    ResolveWebViewBaseMethod "dragHighlight" o = Gtk.WidgetDragHighlightMethodInfo-    ResolveWebViewBaseMethod "dragSourceAddImageTargets" o = Gtk.WidgetDragSourceAddImageTargetsMethodInfo-    ResolveWebViewBaseMethod "dragSourceAddTextTargets" o = Gtk.WidgetDragSourceAddTextTargetsMethodInfo-    ResolveWebViewBaseMethod "dragSourceAddUriTargets" o = Gtk.WidgetDragSourceAddUriTargetsMethodInfo-    ResolveWebViewBaseMethod "dragSourceGetTargetList" o = Gtk.WidgetDragSourceGetTargetListMethodInfo-    ResolveWebViewBaseMethod "dragSourceSet" o = Gtk.WidgetDragSourceSetMethodInfo-    ResolveWebViewBaseMethod "dragSourceSetIconGicon" o = Gtk.WidgetDragSourceSetIconGiconMethodInfo-    ResolveWebViewBaseMethod "dragSourceSetIconName" o = Gtk.WidgetDragSourceSetIconNameMethodInfo-    ResolveWebViewBaseMethod "dragSourceSetIconPixbuf" o = Gtk.WidgetDragSourceSetIconPixbufMethodInfo-    ResolveWebViewBaseMethod "dragSourceSetIconStock" o = Gtk.WidgetDragSourceSetIconStockMethodInfo-    ResolveWebViewBaseMethod "dragSourceSetTargetList" o = Gtk.WidgetDragSourceSetTargetListMethodInfo-    ResolveWebViewBaseMethod "dragSourceUnset" o = Gtk.WidgetDragSourceUnsetMethodInfo-    ResolveWebViewBaseMethod "dragUnhighlight" o = Gtk.WidgetDragUnhighlightMethodInfo-    ResolveWebViewBaseMethod "draw" o = Gtk.WidgetDrawMethodInfo-    ResolveWebViewBaseMethod "ensureStyle" o = Gtk.WidgetEnsureStyleMethodInfo-    ResolveWebViewBaseMethod "errorBell" o = Gtk.WidgetErrorBellMethodInfo-    ResolveWebViewBaseMethod "event" o = Gtk.WidgetEventMethodInfo-    ResolveWebViewBaseMethod "forall" o = Gtk.ContainerForallMethodInfo-    ResolveWebViewBaseMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveWebViewBaseMethod "foreach" o = Gtk.ContainerForeachMethodInfo-    ResolveWebViewBaseMethod "freezeChildNotify" o = Gtk.WidgetFreezeChildNotifyMethodInfo-    ResolveWebViewBaseMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveWebViewBaseMethod "grabAdd" o = Gtk.WidgetGrabAddMethodInfo-    ResolveWebViewBaseMethod "grabDefault" o = Gtk.WidgetGrabDefaultMethodInfo-    ResolveWebViewBaseMethod "grabFocus" o = Gtk.WidgetGrabFocusMethodInfo-    ResolveWebViewBaseMethod "grabRemove" o = Gtk.WidgetGrabRemoveMethodInfo-    ResolveWebViewBaseMethod "hasDefault" o = Gtk.WidgetHasDefaultMethodInfo-    ResolveWebViewBaseMethod "hasFocus" o = Gtk.WidgetHasFocusMethodInfo-    ResolveWebViewBaseMethod "hasGrab" o = Gtk.WidgetHasGrabMethodInfo-    ResolveWebViewBaseMethod "hasRcStyle" o = Gtk.WidgetHasRcStyleMethodInfo-    ResolveWebViewBaseMethod "hasScreen" o = Gtk.WidgetHasScreenMethodInfo-    ResolveWebViewBaseMethod "hasVisibleFocus" o = Gtk.WidgetHasVisibleFocusMethodInfo-    ResolveWebViewBaseMethod "hide" o = Gtk.WidgetHideMethodInfo-    ResolveWebViewBaseMethod "hideOnDelete" o = Gtk.WidgetHideOnDeleteMethodInfo-    ResolveWebViewBaseMethod "inDestruction" o = Gtk.WidgetInDestructionMethodInfo-    ResolveWebViewBaseMethod "initTemplate" o = Gtk.WidgetInitTemplateMethodInfo-    ResolveWebViewBaseMethod "inputShapeCombineRegion" o = Gtk.WidgetInputShapeCombineRegionMethodInfo-    ResolveWebViewBaseMethod "insertActionGroup" o = Gtk.WidgetInsertActionGroupMethodInfo-    ResolveWebViewBaseMethod "intersect" o = Gtk.WidgetIntersectMethodInfo-    ResolveWebViewBaseMethod "isAncestor" o = Gtk.WidgetIsAncestorMethodInfo-    ResolveWebViewBaseMethod "isComposited" o = Gtk.WidgetIsCompositedMethodInfo-    ResolveWebViewBaseMethod "isDrawable" o = Gtk.WidgetIsDrawableMethodInfo-    ResolveWebViewBaseMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveWebViewBaseMethod "isFocus" o = Gtk.WidgetIsFocusMethodInfo-    ResolveWebViewBaseMethod "isSensitive" o = Gtk.WidgetIsSensitiveMethodInfo-    ResolveWebViewBaseMethod "isToplevel" o = Gtk.WidgetIsToplevelMethodInfo-    ResolveWebViewBaseMethod "isVisible" o = Gtk.WidgetIsVisibleMethodInfo-    ResolveWebViewBaseMethod "keynavFailed" o = Gtk.WidgetKeynavFailedMethodInfo-    ResolveWebViewBaseMethod "listAccelClosures" o = Gtk.WidgetListAccelClosuresMethodInfo-    ResolveWebViewBaseMethod "listActionPrefixes" o = Gtk.WidgetListActionPrefixesMethodInfo-    ResolveWebViewBaseMethod "listMnemonicLabels" o = Gtk.WidgetListMnemonicLabelsMethodInfo-    ResolveWebViewBaseMethod "map" o = Gtk.WidgetMapMethodInfo-    ResolveWebViewBaseMethod "mnemonicActivate" o = Gtk.WidgetMnemonicActivateMethodInfo-    ResolveWebViewBaseMethod "modifyBase" o = Gtk.WidgetModifyBaseMethodInfo-    ResolveWebViewBaseMethod "modifyBg" o = Gtk.WidgetModifyBgMethodInfo-    ResolveWebViewBaseMethod "modifyCursor" o = Gtk.WidgetModifyCursorMethodInfo-    ResolveWebViewBaseMethod "modifyFg" o = Gtk.WidgetModifyFgMethodInfo-    ResolveWebViewBaseMethod "modifyFont" o = Gtk.WidgetModifyFontMethodInfo-    ResolveWebViewBaseMethod "modifyStyle" o = Gtk.WidgetModifyStyleMethodInfo-    ResolveWebViewBaseMethod "modifyText" o = Gtk.WidgetModifyTextMethodInfo-    ResolveWebViewBaseMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveWebViewBaseMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveWebViewBaseMethod "overrideBackgroundColor" o = Gtk.WidgetOverrideBackgroundColorMethodInfo-    ResolveWebViewBaseMethod "overrideColor" o = Gtk.WidgetOverrideColorMethodInfo-    ResolveWebViewBaseMethod "overrideCursor" o = Gtk.WidgetOverrideCursorMethodInfo-    ResolveWebViewBaseMethod "overrideFont" o = Gtk.WidgetOverrideFontMethodInfo-    ResolveWebViewBaseMethod "overrideSymbolicColor" o = Gtk.WidgetOverrideSymbolicColorMethodInfo-    ResolveWebViewBaseMethod "parserFinished" o = Gtk.BuildableParserFinishedMethodInfo-    ResolveWebViewBaseMethod "path" o = Gtk.WidgetPathMethodInfo-    ResolveWebViewBaseMethod "propagateDraw" o = Gtk.ContainerPropagateDrawMethodInfo-    ResolveWebViewBaseMethod "queueComputeExpand" o = Gtk.WidgetQueueComputeExpandMethodInfo-    ResolveWebViewBaseMethod "queueDraw" o = Gtk.WidgetQueueDrawMethodInfo-    ResolveWebViewBaseMethod "queueDrawArea" o = Gtk.WidgetQueueDrawAreaMethodInfo-    ResolveWebViewBaseMethod "queueDrawRegion" o = Gtk.WidgetQueueDrawRegionMethodInfo-    ResolveWebViewBaseMethod "queueResize" o = Gtk.WidgetQueueResizeMethodInfo-    ResolveWebViewBaseMethod "queueResizeNoRedraw" o = Gtk.WidgetQueueResizeNoRedrawMethodInfo-    ResolveWebViewBaseMethod "realize" o = Gtk.WidgetRealizeMethodInfo-    ResolveWebViewBaseMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveWebViewBaseMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveWebViewBaseMethod "regionIntersect" o = Gtk.WidgetRegionIntersectMethodInfo-    ResolveWebViewBaseMethod "registerWindow" o = Gtk.WidgetRegisterWindowMethodInfo-    ResolveWebViewBaseMethod "remove" o = Gtk.ContainerRemoveMethodInfo-    ResolveWebViewBaseMethod "removeAccelerator" o = Gtk.WidgetRemoveAcceleratorMethodInfo-    ResolveWebViewBaseMethod "removeMnemonicLabel" o = Gtk.WidgetRemoveMnemonicLabelMethodInfo-    ResolveWebViewBaseMethod "removeTickCallback" o = Gtk.WidgetRemoveTickCallbackMethodInfo-    ResolveWebViewBaseMethod "renderIcon" o = Gtk.WidgetRenderIconMethodInfo-    ResolveWebViewBaseMethod "renderIconPixbuf" o = Gtk.WidgetRenderIconPixbufMethodInfo-    ResolveWebViewBaseMethod "reparent" o = Gtk.WidgetReparentMethodInfo-    ResolveWebViewBaseMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveWebViewBaseMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveWebViewBaseMethod "resetRcStyles" o = Gtk.WidgetResetRcStylesMethodInfo-    ResolveWebViewBaseMethod "resetStyle" o = Gtk.WidgetResetStyleMethodInfo-    ResolveWebViewBaseMethod "resizeChildren" o = Gtk.ContainerResizeChildrenMethodInfo-    ResolveWebViewBaseMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveWebViewBaseMethod "sendExpose" o = Gtk.WidgetSendExposeMethodInfo-    ResolveWebViewBaseMethod "sendFocusChange" o = Gtk.WidgetSendFocusChangeMethodInfo-    ResolveWebViewBaseMethod "shapeCombineRegion" o = Gtk.WidgetShapeCombineRegionMethodInfo-    ResolveWebViewBaseMethod "show" o = Gtk.WidgetShowMethodInfo-    ResolveWebViewBaseMethod "showAll" o = Gtk.WidgetShowAllMethodInfo-    ResolveWebViewBaseMethod "showNow" o = Gtk.WidgetShowNowMethodInfo-    ResolveWebViewBaseMethod "sizeAllocate" o = Gtk.WidgetSizeAllocateMethodInfo-    ResolveWebViewBaseMethod "sizeAllocateWithBaseline" o = Gtk.WidgetSizeAllocateWithBaselineMethodInfo-    ResolveWebViewBaseMethod "sizeRequest" o = Gtk.WidgetSizeRequestMethodInfo-    ResolveWebViewBaseMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveWebViewBaseMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveWebViewBaseMethod "styleAttach" o = Gtk.WidgetStyleAttachMethodInfo-    ResolveWebViewBaseMethod "styleGetProperty" o = Gtk.WidgetStyleGetPropertyMethodInfo-    ResolveWebViewBaseMethod "thawChildNotify" o = Gtk.WidgetThawChildNotifyMethodInfo-    ResolveWebViewBaseMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveWebViewBaseMethod "translateCoordinates" o = Gtk.WidgetTranslateCoordinatesMethodInfo-    ResolveWebViewBaseMethod "triggerTooltipQuery" o = Gtk.WidgetTriggerTooltipQueryMethodInfo-    ResolveWebViewBaseMethod "unmap" o = Gtk.WidgetUnmapMethodInfo-    ResolveWebViewBaseMethod "unparent" o = Gtk.WidgetUnparentMethodInfo-    ResolveWebViewBaseMethod "unrealize" o = Gtk.WidgetUnrealizeMethodInfo-    ResolveWebViewBaseMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveWebViewBaseMethod "unregisterWindow" o = Gtk.WidgetUnregisterWindowMethodInfo-    ResolveWebViewBaseMethod "unsetFocusChain" o = Gtk.ContainerUnsetFocusChainMethodInfo-    ResolveWebViewBaseMethod "unsetStateFlags" o = Gtk.WidgetUnsetStateFlagsMethodInfo-    ResolveWebViewBaseMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveWebViewBaseMethod "getAccessible" o = Gtk.WidgetGetAccessibleMethodInfo-    ResolveWebViewBaseMethod "getActionGroup" o = Gtk.WidgetGetActionGroupMethodInfo-    ResolveWebViewBaseMethod "getAllocatedBaseline" o = Gtk.WidgetGetAllocatedBaselineMethodInfo-    ResolveWebViewBaseMethod "getAllocatedHeight" o = Gtk.WidgetGetAllocatedHeightMethodInfo-    ResolveWebViewBaseMethod "getAllocatedWidth" o = Gtk.WidgetGetAllocatedWidthMethodInfo-    ResolveWebViewBaseMethod "getAllocation" o = Gtk.WidgetGetAllocationMethodInfo-    ResolveWebViewBaseMethod "getAncestor" o = Gtk.WidgetGetAncestorMethodInfo-    ResolveWebViewBaseMethod "getAppPaintable" o = Gtk.WidgetGetAppPaintableMethodInfo-    ResolveWebViewBaseMethod "getBorderWidth" o = Gtk.ContainerGetBorderWidthMethodInfo-    ResolveWebViewBaseMethod "getCanDefault" o = Gtk.WidgetGetCanDefaultMethodInfo-    ResolveWebViewBaseMethod "getCanFocus" o = Gtk.WidgetGetCanFocusMethodInfo-    ResolveWebViewBaseMethod "getChildRequisition" o = Gtk.WidgetGetChildRequisitionMethodInfo-    ResolveWebViewBaseMethod "getChildVisible" o = Gtk.WidgetGetChildVisibleMethodInfo-    ResolveWebViewBaseMethod "getChildren" o = Gtk.ContainerGetChildrenMethodInfo-    ResolveWebViewBaseMethod "getClip" o = Gtk.WidgetGetClipMethodInfo-    ResolveWebViewBaseMethod "getClipboard" o = Gtk.WidgetGetClipboardMethodInfo-    ResolveWebViewBaseMethod "getCompositeName" o = Gtk.WidgetGetCompositeNameMethodInfo-    ResolveWebViewBaseMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveWebViewBaseMethod "getDeviceEnabled" o = Gtk.WidgetGetDeviceEnabledMethodInfo-    ResolveWebViewBaseMethod "getDeviceEvents" o = Gtk.WidgetGetDeviceEventsMethodInfo-    ResolveWebViewBaseMethod "getDirection" o = Gtk.WidgetGetDirectionMethodInfo-    ResolveWebViewBaseMethod "getDisplay" o = Gtk.WidgetGetDisplayMethodInfo-    ResolveWebViewBaseMethod "getDoubleBuffered" o = Gtk.WidgetGetDoubleBufferedMethodInfo-    ResolveWebViewBaseMethod "getEvents" o = Gtk.WidgetGetEventsMethodInfo-    ResolveWebViewBaseMethod "getFocusChain" o = Gtk.ContainerGetFocusChainMethodInfo-    ResolveWebViewBaseMethod "getFocusChild" o = Gtk.ContainerGetFocusChildMethodInfo-    ResolveWebViewBaseMethod "getFocusHadjustment" o = Gtk.ContainerGetFocusHadjustmentMethodInfo-    ResolveWebViewBaseMethod "getFocusVadjustment" o = Gtk.ContainerGetFocusVadjustmentMethodInfo-    ResolveWebViewBaseMethod "getFontMap" o = Gtk.WidgetGetFontMapMethodInfo-    ResolveWebViewBaseMethod "getFontOptions" o = Gtk.WidgetGetFontOptionsMethodInfo-    ResolveWebViewBaseMethod "getFrameClock" o = Gtk.WidgetGetFrameClockMethodInfo-    ResolveWebViewBaseMethod "getHalign" o = Gtk.WidgetGetHalignMethodInfo-    ResolveWebViewBaseMethod "getHasTooltip" o = Gtk.WidgetGetHasTooltipMethodInfo-    ResolveWebViewBaseMethod "getHasWindow" o = Gtk.WidgetGetHasWindowMethodInfo-    ResolveWebViewBaseMethod "getHexpand" o = Gtk.WidgetGetHexpandMethodInfo-    ResolveWebViewBaseMethod "getHexpandSet" o = Gtk.WidgetGetHexpandSetMethodInfo-    ResolveWebViewBaseMethod "getInternalChild" o = Gtk.BuildableGetInternalChildMethodInfo-    ResolveWebViewBaseMethod "getMapped" o = Gtk.WidgetGetMappedMethodInfo-    ResolveWebViewBaseMethod "getMarginBottom" o = Gtk.WidgetGetMarginBottomMethodInfo-    ResolveWebViewBaseMethod "getMarginEnd" o = Gtk.WidgetGetMarginEndMethodInfo-    ResolveWebViewBaseMethod "getMarginLeft" o = Gtk.WidgetGetMarginLeftMethodInfo-    ResolveWebViewBaseMethod "getMarginRight" o = Gtk.WidgetGetMarginRightMethodInfo-    ResolveWebViewBaseMethod "getMarginStart" o = Gtk.WidgetGetMarginStartMethodInfo-    ResolveWebViewBaseMethod "getMarginTop" o = Gtk.WidgetGetMarginTopMethodInfo-    ResolveWebViewBaseMethod "getModifierMask" o = Gtk.WidgetGetModifierMaskMethodInfo-    ResolveWebViewBaseMethod "getModifierStyle" o = Gtk.WidgetGetModifierStyleMethodInfo-    ResolveWebViewBaseMethod "getNoShowAll" o = Gtk.WidgetGetNoShowAllMethodInfo-    ResolveWebViewBaseMethod "getOpacity" o = Gtk.WidgetGetOpacityMethodInfo-    ResolveWebViewBaseMethod "getPangoContext" o = Gtk.WidgetGetPangoContextMethodInfo-    ResolveWebViewBaseMethod "getParent" o = Gtk.WidgetGetParentMethodInfo-    ResolveWebViewBaseMethod "getParentWindow" o = Gtk.WidgetGetParentWindowMethodInfo-    ResolveWebViewBaseMethod "getPath" o = Gtk.WidgetGetPathMethodInfo-    ResolveWebViewBaseMethod "getPathForChild" o = Gtk.ContainerGetPathForChildMethodInfo-    ResolveWebViewBaseMethod "getPointer" o = Gtk.WidgetGetPointerMethodInfo-    ResolveWebViewBaseMethod "getPreferredHeight" o = Gtk.WidgetGetPreferredHeightMethodInfo-    ResolveWebViewBaseMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo-    ResolveWebViewBaseMethod "getPreferredHeightForWidth" o = Gtk.WidgetGetPreferredHeightForWidthMethodInfo-    ResolveWebViewBaseMethod "getPreferredSize" o = Gtk.WidgetGetPreferredSizeMethodInfo-    ResolveWebViewBaseMethod "getPreferredWidth" o = Gtk.WidgetGetPreferredWidthMethodInfo-    ResolveWebViewBaseMethod "getPreferredWidthForHeight" o = Gtk.WidgetGetPreferredWidthForHeightMethodInfo-    ResolveWebViewBaseMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveWebViewBaseMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveWebViewBaseMethod "getRealized" o = Gtk.WidgetGetRealizedMethodInfo-    ResolveWebViewBaseMethod "getReceivesDefault" o = Gtk.WidgetGetReceivesDefaultMethodInfo-    ResolveWebViewBaseMethod "getRequestMode" o = Gtk.WidgetGetRequestModeMethodInfo-    ResolveWebViewBaseMethod "getRequisition" o = Gtk.WidgetGetRequisitionMethodInfo-    ResolveWebViewBaseMethod "getResizeMode" o = Gtk.ContainerGetResizeModeMethodInfo-    ResolveWebViewBaseMethod "getRootWindow" o = Gtk.WidgetGetRootWindowMethodInfo-    ResolveWebViewBaseMethod "getScaleFactor" o = Gtk.WidgetGetScaleFactorMethodInfo-    ResolveWebViewBaseMethod "getScreen" o = Gtk.WidgetGetScreenMethodInfo-    ResolveWebViewBaseMethod "getSensitive" o = Gtk.WidgetGetSensitiveMethodInfo-    ResolveWebViewBaseMethod "getSettings" o = Gtk.WidgetGetSettingsMethodInfo-    ResolveWebViewBaseMethod "getSizeRequest" o = Gtk.WidgetGetSizeRequestMethodInfo-    ResolveWebViewBaseMethod "getState" o = Gtk.WidgetGetStateMethodInfo-    ResolveWebViewBaseMethod "getStateFlags" o = Gtk.WidgetGetStateFlagsMethodInfo-    ResolveWebViewBaseMethod "getStyle" o = Gtk.WidgetGetStyleMethodInfo-    ResolveWebViewBaseMethod "getStyleContext" o = Gtk.WidgetGetStyleContextMethodInfo-    ResolveWebViewBaseMethod "getSupportMultidevice" o = Gtk.WidgetGetSupportMultideviceMethodInfo-    ResolveWebViewBaseMethod "getTemplateChild" o = Gtk.WidgetGetTemplateChildMethodInfo-    ResolveWebViewBaseMethod "getTooltipMarkup" o = Gtk.WidgetGetTooltipMarkupMethodInfo-    ResolveWebViewBaseMethod "getTooltipText" o = Gtk.WidgetGetTooltipTextMethodInfo-    ResolveWebViewBaseMethod "getTooltipWindow" o = Gtk.WidgetGetTooltipWindowMethodInfo-    ResolveWebViewBaseMethod "getToplevel" o = Gtk.WidgetGetToplevelMethodInfo-    ResolveWebViewBaseMethod "getValign" o = Gtk.WidgetGetValignMethodInfo-    ResolveWebViewBaseMethod "getValignWithBaseline" o = Gtk.WidgetGetValignWithBaselineMethodInfo-    ResolveWebViewBaseMethod "getVexpand" o = Gtk.WidgetGetVexpandMethodInfo-    ResolveWebViewBaseMethod "getVexpandSet" o = Gtk.WidgetGetVexpandSetMethodInfo-    ResolveWebViewBaseMethod "getVisible" o = Gtk.WidgetGetVisibleMethodInfo-    ResolveWebViewBaseMethod "getVisual" o = Gtk.WidgetGetVisualMethodInfo-    ResolveWebViewBaseMethod "getWindow" o = Gtk.WidgetGetWindowMethodInfo-    ResolveWebViewBaseMethod "setAccelPath" o = Gtk.WidgetSetAccelPathMethodInfo-    ResolveWebViewBaseMethod "setAllocation" o = Gtk.WidgetSetAllocationMethodInfo-    ResolveWebViewBaseMethod "setAppPaintable" o = Gtk.WidgetSetAppPaintableMethodInfo-    ResolveWebViewBaseMethod "setBorderWidth" o = Gtk.ContainerSetBorderWidthMethodInfo-    ResolveWebViewBaseMethod "setBuildableProperty" o = Gtk.BuildableSetBuildablePropertyMethodInfo-    ResolveWebViewBaseMethod "setCanDefault" o = Gtk.WidgetSetCanDefaultMethodInfo-    ResolveWebViewBaseMethod "setCanFocus" o = Gtk.WidgetSetCanFocusMethodInfo-    ResolveWebViewBaseMethod "setChildVisible" o = Gtk.WidgetSetChildVisibleMethodInfo-    ResolveWebViewBaseMethod "setClip" o = Gtk.WidgetSetClipMethodInfo-    ResolveWebViewBaseMethod "setCompositeName" o = Gtk.WidgetSetCompositeNameMethodInfo-    ResolveWebViewBaseMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveWebViewBaseMethod "setDeviceEnabled" o = Gtk.WidgetSetDeviceEnabledMethodInfo-    ResolveWebViewBaseMethod "setDeviceEvents" o = Gtk.WidgetSetDeviceEventsMethodInfo-    ResolveWebViewBaseMethod "setDirection" o = Gtk.WidgetSetDirectionMethodInfo-    ResolveWebViewBaseMethod "setDoubleBuffered" o = Gtk.WidgetSetDoubleBufferedMethodInfo-    ResolveWebViewBaseMethod "setEvents" o = Gtk.WidgetSetEventsMethodInfo-    ResolveWebViewBaseMethod "setFocusChain" o = Gtk.ContainerSetFocusChainMethodInfo-    ResolveWebViewBaseMethod "setFocusChild" o = Gtk.ContainerSetFocusChildMethodInfo-    ResolveWebViewBaseMethod "setFocusHadjustment" o = Gtk.ContainerSetFocusHadjustmentMethodInfo-    ResolveWebViewBaseMethod "setFocusVadjustment" o = Gtk.ContainerSetFocusVadjustmentMethodInfo-    ResolveWebViewBaseMethod "setFontMap" o = Gtk.WidgetSetFontMapMethodInfo-    ResolveWebViewBaseMethod "setFontOptions" o = Gtk.WidgetSetFontOptionsMethodInfo-    ResolveWebViewBaseMethod "setHalign" o = Gtk.WidgetSetHalignMethodInfo-    ResolveWebViewBaseMethod "setHasTooltip" o = Gtk.WidgetSetHasTooltipMethodInfo-    ResolveWebViewBaseMethod "setHasWindow" o = Gtk.WidgetSetHasWindowMethodInfo-    ResolveWebViewBaseMethod "setHexpand" o = Gtk.WidgetSetHexpandMethodInfo-    ResolveWebViewBaseMethod "setHexpandSet" o = Gtk.WidgetSetHexpandSetMethodInfo-    ResolveWebViewBaseMethod "setMapped" o = Gtk.WidgetSetMappedMethodInfo-    ResolveWebViewBaseMethod "setMarginBottom" o = Gtk.WidgetSetMarginBottomMethodInfo-    ResolveWebViewBaseMethod "setMarginEnd" o = Gtk.WidgetSetMarginEndMethodInfo-    ResolveWebViewBaseMethod "setMarginLeft" o = Gtk.WidgetSetMarginLeftMethodInfo-    ResolveWebViewBaseMethod "setMarginRight" o = Gtk.WidgetSetMarginRightMethodInfo-    ResolveWebViewBaseMethod "setMarginStart" o = Gtk.WidgetSetMarginStartMethodInfo-    ResolveWebViewBaseMethod "setMarginTop" o = Gtk.WidgetSetMarginTopMethodInfo-    ResolveWebViewBaseMethod "setNoShowAll" o = Gtk.WidgetSetNoShowAllMethodInfo-    ResolveWebViewBaseMethod "setOpacity" o = Gtk.WidgetSetOpacityMethodInfo-    ResolveWebViewBaseMethod "setParent" o = Gtk.WidgetSetParentMethodInfo-    ResolveWebViewBaseMethod "setParentWindow" o = Gtk.WidgetSetParentWindowMethodInfo-    ResolveWebViewBaseMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveWebViewBaseMethod "setRealized" o = Gtk.WidgetSetRealizedMethodInfo-    ResolveWebViewBaseMethod "setReallocateRedraws" o = Gtk.ContainerSetReallocateRedrawsMethodInfo-    ResolveWebViewBaseMethod "setReceivesDefault" o = Gtk.WidgetSetReceivesDefaultMethodInfo-    ResolveWebViewBaseMethod "setRedrawOnAllocate" o = Gtk.WidgetSetRedrawOnAllocateMethodInfo-    ResolveWebViewBaseMethod "setResizeMode" o = Gtk.ContainerSetResizeModeMethodInfo-    ResolveWebViewBaseMethod "setSensitive" o = Gtk.WidgetSetSensitiveMethodInfo-    ResolveWebViewBaseMethod "setSizeRequest" o = Gtk.WidgetSetSizeRequestMethodInfo-    ResolveWebViewBaseMethod "setState" o = Gtk.WidgetSetStateMethodInfo-    ResolveWebViewBaseMethod "setStateFlags" o = Gtk.WidgetSetStateFlagsMethodInfo-    ResolveWebViewBaseMethod "setStyle" o = Gtk.WidgetSetStyleMethodInfo-    ResolveWebViewBaseMethod "setSupportMultidevice" o = Gtk.WidgetSetSupportMultideviceMethodInfo-    ResolveWebViewBaseMethod "setTooltipMarkup" o = Gtk.WidgetSetTooltipMarkupMethodInfo-    ResolveWebViewBaseMethod "setTooltipText" o = Gtk.WidgetSetTooltipTextMethodInfo-    ResolveWebViewBaseMethod "setTooltipWindow" o = Gtk.WidgetSetTooltipWindowMethodInfo-    ResolveWebViewBaseMethod "setValign" o = Gtk.WidgetSetValignMethodInfo-    ResolveWebViewBaseMethod "setVexpand" o = Gtk.WidgetSetVexpandMethodInfo-    ResolveWebViewBaseMethod "setVexpandSet" o = Gtk.WidgetSetVexpandSetMethodInfo-    ResolveWebViewBaseMethod "setVisible" o = Gtk.WidgetSetVisibleMethodInfo-    ResolveWebViewBaseMethod "setVisual" o = Gtk.WidgetSetVisualMethodInfo-    ResolveWebViewBaseMethod "setWindow" o = Gtk.WidgetSetWindowMethodInfo-    ResolveWebViewBaseMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveWebViewBaseMethod t WebViewBase, MethodInfo info WebViewBase p) => IsLabelProxy t (WebViewBase -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveWebViewBaseMethod t WebViewBase, MethodInfo info WebViewBase p) => IsLabel t (WebViewBase -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList WebViewBase = WebViewBaseAttributeList-type WebViewBaseAttributeList = ('[ '("appPaintable", Gtk.WidgetAppPaintablePropertyInfo), '("borderWidth", Gtk.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.WidgetCanFocusPropertyInfo), '("child", Gtk.ContainerChildPropertyInfo), '("compositeChild", Gtk.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.WidgetEventsPropertyInfo), '("expand", Gtk.WidgetExpandPropertyInfo), '("halign", Gtk.WidgetHalignPropertyInfo), '("hasDefault", Gtk.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.WidgetHexpandSetPropertyInfo), '("isFocus", Gtk.WidgetIsFocusPropertyInfo), '("margin", Gtk.WidgetMarginPropertyInfo), '("marginBottom", Gtk.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.WidgetMarginTopPropertyInfo), '("name", Gtk.WidgetNamePropertyInfo), '("noShowAll", Gtk.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.WidgetOpacityPropertyInfo), '("parent", Gtk.WidgetParentPropertyInfo), '("receivesDefault", Gtk.WidgetReceivesDefaultPropertyInfo), '("resizeMode", Gtk.ContainerResizeModePropertyInfo), '("scaleFactor", Gtk.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.WidgetSensitivePropertyInfo), '("style", Gtk.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.WidgetTooltipTextPropertyInfo), '("valign", Gtk.WidgetValignPropertyInfo), '("vexpand", Gtk.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.WidgetVexpandSetPropertyInfo), '("visible", Gtk.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.WidgetWidthRequestPropertyInfo), '("window", Gtk.WidgetWindowPropertyInfo)] :: [(Symbol, *)])--type instance SignalList WebViewBase = WebViewBaseSignalList-type WebViewBaseSignalList = ('[ '("accelClosuresChanged", Gtk.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.WidgetDeleteEventSignalInfo), '("destroy", Gtk.WidgetDestroySignalInfo), '("destroyEvent", Gtk.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.WidgetDragDropSignalInfo), '("dragEnd", Gtk.WidgetDragEndSignalInfo), '("dragFailed", Gtk.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.WidgetDragMotionSignalInfo), '("draw", Gtk.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.WidgetEventSignalInfo), '("eventAfter", Gtk.WidgetEventAfterSignalInfo), '("focus", Gtk.WidgetFocusSignalInfo), '("focusInEvent", Gtk.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.WidgetGrabNotifySignalInfo), '("hide", Gtk.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.WidgetMapSignalInfo), '("mapEvent", Gtk.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", Gtk.WidgetParentSetSignalInfo), '("popupMenu", Gtk.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.WidgetQueryTooltipSignalInfo), '("realize", Gtk.WidgetRealizeSignalInfo), '("remove", Gtk.ContainerRemoveSignalInfo), '("screenChanged", Gtk.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", Gtk.ContainerSetFocusChildSignalInfo), '("show", Gtk.WidgetShowSignalInfo), '("showHelp", Gtk.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.WidgetTouchEventSignalInfo), '("unmap", Gtk.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)])--
− GI/WebKit2/Objects/WebViewBase.hs-boot 
@@ -1,13 +0,0 @@-module GI.WebKit2.Objects.WebViewBase where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype WebViewBase = WebViewBase (ForeignPtr WebViewBase)-instance GObject WebViewBase where-class GObject o => WebViewBaseK o-instance (GObject o, IsDescendantOf WebViewBase o) => WebViewBaseK o
− GI/WebKit2/Objects/WebsiteDataManager.hs 
@@ -1,574 +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.WebKit2.Objects.WebsiteDataManager-    ( ---- * Exported types-    WebsiteDataManager(..)                  ,-    WebsiteDataManagerK                     ,-    toWebsiteDataManager                    ,-    noWebsiteDataManager                    ,--- -- * Methods--- ** websiteDataManagerGetBaseCacheDirectory-    WebsiteDataManagerGetBaseCacheDirectoryMethodInfo,-    websiteDataManagerGetBaseCacheDirectory ,----- ** websiteDataManagerGetBaseDataDirectory-    WebsiteDataManagerGetBaseDataDirectoryMethodInfo,-    websiteDataManagerGetBaseDataDirectory  ,----- ** websiteDataManagerGetDiskCacheDirectory-    WebsiteDataManagerGetDiskCacheDirectoryMethodInfo,-    websiteDataManagerGetDiskCacheDirectory ,----- ** websiteDataManagerGetIndexeddbDirectory-    WebsiteDataManagerGetIndexeddbDirectoryMethodInfo,-    websiteDataManagerGetIndexeddbDirectory ,----- ** websiteDataManagerGetLocalStorageDirectory-    WebsiteDataManagerGetLocalStorageDirectoryMethodInfo,-    websiteDataManagerGetLocalStorageDirectory,----- ** websiteDataManagerGetOfflineApplicationCacheDirectory-    WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo,-    websiteDataManagerGetOfflineApplicationCacheDirectory,----- ** websiteDataManagerGetWebsqlDirectory-    WebsiteDataManagerGetWebsqlDirectoryMethodInfo,-    websiteDataManagerGetWebsqlDirectory    ,----- -- * Properties--- ** BaseCacheDirectory-    WebsiteDataManagerBaseCacheDirectoryPropertyInfo,-    constructWebsiteDataManagerBaseCacheDirectory,-    getWebsiteDataManagerBaseCacheDirectory ,-    websiteDataManagerBaseCacheDirectory    ,----- ** BaseDataDirectory-    WebsiteDataManagerBaseDataDirectoryPropertyInfo,-    constructWebsiteDataManagerBaseDataDirectory,-    getWebsiteDataManagerBaseDataDirectory  ,-    websiteDataManagerBaseDataDirectory     ,----- ** DiskCacheDirectory-    WebsiteDataManagerDiskCacheDirectoryPropertyInfo,-    constructWebsiteDataManagerDiskCacheDirectory,-    getWebsiteDataManagerDiskCacheDirectory ,-    websiteDataManagerDiskCacheDirectory    ,----- ** IndexeddbDirectory-    WebsiteDataManagerIndexeddbDirectoryPropertyInfo,-    constructWebsiteDataManagerIndexeddbDirectory,-    getWebsiteDataManagerIndexeddbDirectory ,-    websiteDataManagerIndexeddbDirectory    ,----- ** LocalStorageDirectory-    WebsiteDataManagerLocalStorageDirectoryPropertyInfo,-    constructWebsiteDataManagerLocalStorageDirectory,-    getWebsiteDataManagerLocalStorageDirectory,-    websiteDataManagerLocalStorageDirectory ,----- ** OfflineApplicationCacheDirectory-    WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo,-    constructWebsiteDataManagerOfflineApplicationCacheDirectory,-    getWebsiteDataManagerOfflineApplicationCacheDirectory,-    websiteDataManagerOfflineApplicationCacheDirectory,----- ** WebsqlDirectory-    WebsiteDataManagerWebsqlDirectoryPropertyInfo,-    constructWebsiteDataManagerWebsqlDirectory,-    getWebsiteDataManagerWebsqlDirectory    ,-    websiteDataManagerWebsqlDirectory       ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject--newtype WebsiteDataManager = WebsiteDataManager (ForeignPtr WebsiteDataManager)-foreign import ccall "webkit_website_data_manager_get_type"-    c_webkit_website_data_manager_get_type :: IO GType--type instance ParentTypes WebsiteDataManager = WebsiteDataManagerParentTypes-type WebsiteDataManagerParentTypes = '[GObject.Object]--instance GObject WebsiteDataManager where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_website_data_manager_get_type-    --class GObject o => WebsiteDataManagerK o-instance (GObject o, IsDescendantOf WebsiteDataManager o) => WebsiteDataManagerK o--toWebsiteDataManager :: WebsiteDataManagerK o => o -> IO WebsiteDataManager-toWebsiteDataManager = unsafeCastTo WebsiteDataManager--noWebsiteDataManager :: Maybe WebsiteDataManager-noWebsiteDataManager = Nothing--type family ResolveWebsiteDataManagerMethod (t :: Symbol) (o :: *) :: * where-    ResolveWebsiteDataManagerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveWebsiteDataManagerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveWebsiteDataManagerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveWebsiteDataManagerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveWebsiteDataManagerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveWebsiteDataManagerMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveWebsiteDataManagerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveWebsiteDataManagerMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveWebsiteDataManagerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveWebsiteDataManagerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveWebsiteDataManagerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveWebsiteDataManagerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveWebsiteDataManagerMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveWebsiteDataManagerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveWebsiteDataManagerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveWebsiteDataManagerMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveWebsiteDataManagerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveWebsiteDataManagerMethod "getBaseCacheDirectory" o = WebsiteDataManagerGetBaseCacheDirectoryMethodInfo-    ResolveWebsiteDataManagerMethod "getBaseDataDirectory" o = WebsiteDataManagerGetBaseDataDirectoryMethodInfo-    ResolveWebsiteDataManagerMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveWebsiteDataManagerMethod "getDiskCacheDirectory" o = WebsiteDataManagerGetDiskCacheDirectoryMethodInfo-    ResolveWebsiteDataManagerMethod "getIndexeddbDirectory" o = WebsiteDataManagerGetIndexeddbDirectoryMethodInfo-    ResolveWebsiteDataManagerMethod "getLocalStorageDirectory" o = WebsiteDataManagerGetLocalStorageDirectoryMethodInfo-    ResolveWebsiteDataManagerMethod "getOfflineApplicationCacheDirectory" o = WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo-    ResolveWebsiteDataManagerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveWebsiteDataManagerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveWebsiteDataManagerMethod "getWebsqlDirectory" o = WebsiteDataManagerGetWebsqlDirectoryMethodInfo-    ResolveWebsiteDataManagerMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveWebsiteDataManagerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveWebsiteDataManagerMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveWebsiteDataManagerMethod t WebsiteDataManager, MethodInfo info WebsiteDataManager p) => IsLabelProxy t (WebsiteDataManager -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveWebsiteDataManagerMethod t WebsiteDataManager, MethodInfo info WebsiteDataManager p) => IsLabel t (WebsiteDataManager -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "base-cache-directory"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getWebsiteDataManagerBaseCacheDirectory :: (MonadIO m, WebsiteDataManagerK o) => o -> m T.Text-getWebsiteDataManagerBaseCacheDirectory obj = liftIO $ checkUnexpectedNothing "getWebsiteDataManagerBaseCacheDirectory" $ getObjectPropertyString obj "base-cache-directory"--constructWebsiteDataManagerBaseCacheDirectory :: T.Text -> IO ([Char], GValue)-constructWebsiteDataManagerBaseCacheDirectory val = constructObjectPropertyString "base-cache-directory" (Just val)--data WebsiteDataManagerBaseCacheDirectoryPropertyInfo-instance AttrInfo WebsiteDataManagerBaseCacheDirectoryPropertyInfo where-    type AttrAllowedOps WebsiteDataManagerBaseCacheDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WebsiteDataManagerBaseCacheDirectoryPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint WebsiteDataManagerBaseCacheDirectoryPropertyInfo = WebsiteDataManagerK-    type AttrGetType WebsiteDataManagerBaseCacheDirectoryPropertyInfo = T.Text-    type AttrLabel WebsiteDataManagerBaseCacheDirectoryPropertyInfo = "base-cache-directory"-    attrGet _ = getWebsiteDataManagerBaseCacheDirectory-    attrSet _ = undefined-    attrConstruct _ = constructWebsiteDataManagerBaseCacheDirectory-    attrClear _ = undefined---- VVV Prop "base-data-directory"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getWebsiteDataManagerBaseDataDirectory :: (MonadIO m, WebsiteDataManagerK o) => o -> m T.Text-getWebsiteDataManagerBaseDataDirectory obj = liftIO $ checkUnexpectedNothing "getWebsiteDataManagerBaseDataDirectory" $ getObjectPropertyString obj "base-data-directory"--constructWebsiteDataManagerBaseDataDirectory :: T.Text -> IO ([Char], GValue)-constructWebsiteDataManagerBaseDataDirectory val = constructObjectPropertyString "base-data-directory" (Just val)--data WebsiteDataManagerBaseDataDirectoryPropertyInfo-instance AttrInfo WebsiteDataManagerBaseDataDirectoryPropertyInfo where-    type AttrAllowedOps WebsiteDataManagerBaseDataDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WebsiteDataManagerBaseDataDirectoryPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint WebsiteDataManagerBaseDataDirectoryPropertyInfo = WebsiteDataManagerK-    type AttrGetType WebsiteDataManagerBaseDataDirectoryPropertyInfo = T.Text-    type AttrLabel WebsiteDataManagerBaseDataDirectoryPropertyInfo = "base-data-directory"-    attrGet _ = getWebsiteDataManagerBaseDataDirectory-    attrSet _ = undefined-    attrConstruct _ = constructWebsiteDataManagerBaseDataDirectory-    attrClear _ = undefined---- VVV Prop "disk-cache-directory"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getWebsiteDataManagerDiskCacheDirectory :: (MonadIO m, WebsiteDataManagerK o) => o -> m T.Text-getWebsiteDataManagerDiskCacheDirectory obj = liftIO $ checkUnexpectedNothing "getWebsiteDataManagerDiskCacheDirectory" $ getObjectPropertyString obj "disk-cache-directory"--constructWebsiteDataManagerDiskCacheDirectory :: T.Text -> IO ([Char], GValue)-constructWebsiteDataManagerDiskCacheDirectory val = constructObjectPropertyString "disk-cache-directory" (Just val)--data WebsiteDataManagerDiskCacheDirectoryPropertyInfo-instance AttrInfo WebsiteDataManagerDiskCacheDirectoryPropertyInfo where-    type AttrAllowedOps WebsiteDataManagerDiskCacheDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WebsiteDataManagerDiskCacheDirectoryPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint WebsiteDataManagerDiskCacheDirectoryPropertyInfo = WebsiteDataManagerK-    type AttrGetType WebsiteDataManagerDiskCacheDirectoryPropertyInfo = T.Text-    type AttrLabel WebsiteDataManagerDiskCacheDirectoryPropertyInfo = "disk-cache-directory"-    attrGet _ = getWebsiteDataManagerDiskCacheDirectory-    attrSet _ = undefined-    attrConstruct _ = constructWebsiteDataManagerDiskCacheDirectory-    attrClear _ = undefined---- VVV Prop "indexeddb-directory"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getWebsiteDataManagerIndexeddbDirectory :: (MonadIO m, WebsiteDataManagerK o) => o -> m T.Text-getWebsiteDataManagerIndexeddbDirectory obj = liftIO $ checkUnexpectedNothing "getWebsiteDataManagerIndexeddbDirectory" $ getObjectPropertyString obj "indexeddb-directory"--constructWebsiteDataManagerIndexeddbDirectory :: T.Text -> IO ([Char], GValue)-constructWebsiteDataManagerIndexeddbDirectory val = constructObjectPropertyString "indexeddb-directory" (Just val)--data WebsiteDataManagerIndexeddbDirectoryPropertyInfo-instance AttrInfo WebsiteDataManagerIndexeddbDirectoryPropertyInfo where-    type AttrAllowedOps WebsiteDataManagerIndexeddbDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WebsiteDataManagerIndexeddbDirectoryPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint WebsiteDataManagerIndexeddbDirectoryPropertyInfo = WebsiteDataManagerK-    type AttrGetType WebsiteDataManagerIndexeddbDirectoryPropertyInfo = T.Text-    type AttrLabel WebsiteDataManagerIndexeddbDirectoryPropertyInfo = "indexeddb-directory"-    attrGet _ = getWebsiteDataManagerIndexeddbDirectory-    attrSet _ = undefined-    attrConstruct _ = constructWebsiteDataManagerIndexeddbDirectory-    attrClear _ = undefined---- VVV Prop "local-storage-directory"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getWebsiteDataManagerLocalStorageDirectory :: (MonadIO m, WebsiteDataManagerK o) => o -> m T.Text-getWebsiteDataManagerLocalStorageDirectory obj = liftIO $ checkUnexpectedNothing "getWebsiteDataManagerLocalStorageDirectory" $ getObjectPropertyString obj "local-storage-directory"--constructWebsiteDataManagerLocalStorageDirectory :: T.Text -> IO ([Char], GValue)-constructWebsiteDataManagerLocalStorageDirectory val = constructObjectPropertyString "local-storage-directory" (Just val)--data WebsiteDataManagerLocalStorageDirectoryPropertyInfo-instance AttrInfo WebsiteDataManagerLocalStorageDirectoryPropertyInfo where-    type AttrAllowedOps WebsiteDataManagerLocalStorageDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WebsiteDataManagerLocalStorageDirectoryPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint WebsiteDataManagerLocalStorageDirectoryPropertyInfo = WebsiteDataManagerK-    type AttrGetType WebsiteDataManagerLocalStorageDirectoryPropertyInfo = T.Text-    type AttrLabel WebsiteDataManagerLocalStorageDirectoryPropertyInfo = "local-storage-directory"-    attrGet _ = getWebsiteDataManagerLocalStorageDirectory-    attrSet _ = undefined-    attrConstruct _ = constructWebsiteDataManagerLocalStorageDirectory-    attrClear _ = undefined---- VVV Prop "offline-application-cache-directory"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getWebsiteDataManagerOfflineApplicationCacheDirectory :: (MonadIO m, WebsiteDataManagerK o) => o -> m T.Text-getWebsiteDataManagerOfflineApplicationCacheDirectory obj = liftIO $ checkUnexpectedNothing "getWebsiteDataManagerOfflineApplicationCacheDirectory" $ getObjectPropertyString obj "offline-application-cache-directory"--constructWebsiteDataManagerOfflineApplicationCacheDirectory :: T.Text -> IO ([Char], GValue)-constructWebsiteDataManagerOfflineApplicationCacheDirectory val = constructObjectPropertyString "offline-application-cache-directory" (Just val)--data WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo-instance AttrInfo WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo where-    type AttrAllowedOps WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = WebsiteDataManagerK-    type AttrGetType WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = T.Text-    type AttrLabel WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo = "offline-application-cache-directory"-    attrGet _ = getWebsiteDataManagerOfflineApplicationCacheDirectory-    attrSet _ = undefined-    attrConstruct _ = constructWebsiteDataManagerOfflineApplicationCacheDirectory-    attrClear _ = undefined---- VVV Prop "websql-directory"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getWebsiteDataManagerWebsqlDirectory :: (MonadIO m, WebsiteDataManagerK o) => o -> m T.Text-getWebsiteDataManagerWebsqlDirectory obj = liftIO $ checkUnexpectedNothing "getWebsiteDataManagerWebsqlDirectory" $ getObjectPropertyString obj "websql-directory"--constructWebsiteDataManagerWebsqlDirectory :: T.Text -> IO ([Char], GValue)-constructWebsiteDataManagerWebsqlDirectory val = constructObjectPropertyString "websql-directory" (Just val)--data WebsiteDataManagerWebsqlDirectoryPropertyInfo-instance AttrInfo WebsiteDataManagerWebsqlDirectoryPropertyInfo where-    type AttrAllowedOps WebsiteDataManagerWebsqlDirectoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WebsiteDataManagerWebsqlDirectoryPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint WebsiteDataManagerWebsqlDirectoryPropertyInfo = WebsiteDataManagerK-    type AttrGetType WebsiteDataManagerWebsqlDirectoryPropertyInfo = T.Text-    type AttrLabel WebsiteDataManagerWebsqlDirectoryPropertyInfo = "websql-directory"-    attrGet _ = getWebsiteDataManagerWebsqlDirectory-    attrSet _ = undefined-    attrConstruct _ = constructWebsiteDataManagerWebsqlDirectory-    attrClear _ = undefined--type instance AttributeList WebsiteDataManager = WebsiteDataManagerAttributeList-type WebsiteDataManagerAttributeList = ('[ '("baseCacheDirectory", WebsiteDataManagerBaseCacheDirectoryPropertyInfo), '("baseDataDirectory", WebsiteDataManagerBaseDataDirectoryPropertyInfo), '("diskCacheDirectory", WebsiteDataManagerDiskCacheDirectoryPropertyInfo), '("indexeddbDirectory", WebsiteDataManagerIndexeddbDirectoryPropertyInfo), '("localStorageDirectory", WebsiteDataManagerLocalStorageDirectoryPropertyInfo), '("offlineApplicationCacheDirectory", WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo), '("websqlDirectory", WebsiteDataManagerWebsqlDirectoryPropertyInfo)] :: [(Symbol, *)])--websiteDataManagerBaseCacheDirectory :: AttrLabelProxy "baseCacheDirectory"-websiteDataManagerBaseCacheDirectory = AttrLabelProxy--websiteDataManagerBaseDataDirectory :: AttrLabelProxy "baseDataDirectory"-websiteDataManagerBaseDataDirectory = AttrLabelProxy--websiteDataManagerDiskCacheDirectory :: AttrLabelProxy "diskCacheDirectory"-websiteDataManagerDiskCacheDirectory = AttrLabelProxy--websiteDataManagerIndexeddbDirectory :: AttrLabelProxy "indexeddbDirectory"-websiteDataManagerIndexeddbDirectory = AttrLabelProxy--websiteDataManagerLocalStorageDirectory :: AttrLabelProxy "localStorageDirectory"-websiteDataManagerLocalStorageDirectory = AttrLabelProxy--websiteDataManagerOfflineApplicationCacheDirectory :: AttrLabelProxy "offlineApplicationCacheDirectory"-websiteDataManagerOfflineApplicationCacheDirectory = AttrLabelProxy--websiteDataManagerWebsqlDirectory :: AttrLabelProxy "websqlDirectory"-websiteDataManagerWebsqlDirectory = AttrLabelProxy--type instance SignalList WebsiteDataManager = WebsiteDataManagerSignalList-type WebsiteDataManagerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method WebsiteDataManager::get_base_cache_directory--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_website_data_manager_get_base_cache_directory" webkit_website_data_manager_get_base_cache_directory :: -    Ptr WebsiteDataManager ->               -- _obj : TInterface "WebKit2" "WebsiteDataManager"-    IO CString---websiteDataManagerGetBaseCacheDirectory ::-    (MonadIO m, WebsiteDataManagerK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-websiteDataManagerGetBaseCacheDirectory _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_website_data_manager_get_base_cache_directory _obj'-    checkUnexpectedReturnNULL "webkit_website_data_manager_get_base_cache_directory" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data WebsiteDataManagerGetBaseCacheDirectoryMethodInfo-instance (signature ~ (m T.Text), MonadIO m, WebsiteDataManagerK a) => MethodInfo WebsiteDataManagerGetBaseCacheDirectoryMethodInfo a signature where-    overloadedMethod _ = websiteDataManagerGetBaseCacheDirectory---- method WebsiteDataManager::get_base_data_directory--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_website_data_manager_get_base_data_directory" webkit_website_data_manager_get_base_data_directory :: -    Ptr WebsiteDataManager ->               -- _obj : TInterface "WebKit2" "WebsiteDataManager"-    IO CString---websiteDataManagerGetBaseDataDirectory ::-    (MonadIO m, WebsiteDataManagerK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-websiteDataManagerGetBaseDataDirectory _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_website_data_manager_get_base_data_directory _obj'-    checkUnexpectedReturnNULL "webkit_website_data_manager_get_base_data_directory" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data WebsiteDataManagerGetBaseDataDirectoryMethodInfo-instance (signature ~ (m T.Text), MonadIO m, WebsiteDataManagerK a) => MethodInfo WebsiteDataManagerGetBaseDataDirectoryMethodInfo a signature where-    overloadedMethod _ = websiteDataManagerGetBaseDataDirectory---- method WebsiteDataManager::get_disk_cache_directory--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_website_data_manager_get_disk_cache_directory" webkit_website_data_manager_get_disk_cache_directory :: -    Ptr WebsiteDataManager ->               -- _obj : TInterface "WebKit2" "WebsiteDataManager"-    IO CString---websiteDataManagerGetDiskCacheDirectory ::-    (MonadIO m, WebsiteDataManagerK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-websiteDataManagerGetDiskCacheDirectory _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_website_data_manager_get_disk_cache_directory _obj'-    checkUnexpectedReturnNULL "webkit_website_data_manager_get_disk_cache_directory" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data WebsiteDataManagerGetDiskCacheDirectoryMethodInfo-instance (signature ~ (m T.Text), MonadIO m, WebsiteDataManagerK a) => MethodInfo WebsiteDataManagerGetDiskCacheDirectoryMethodInfo a signature where-    overloadedMethod _ = websiteDataManagerGetDiskCacheDirectory---- method WebsiteDataManager::get_indexeddb_directory--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_website_data_manager_get_indexeddb_directory" webkit_website_data_manager_get_indexeddb_directory :: -    Ptr WebsiteDataManager ->               -- _obj : TInterface "WebKit2" "WebsiteDataManager"-    IO CString---websiteDataManagerGetIndexeddbDirectory ::-    (MonadIO m, WebsiteDataManagerK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-websiteDataManagerGetIndexeddbDirectory _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_website_data_manager_get_indexeddb_directory _obj'-    checkUnexpectedReturnNULL "webkit_website_data_manager_get_indexeddb_directory" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data WebsiteDataManagerGetIndexeddbDirectoryMethodInfo-instance (signature ~ (m T.Text), MonadIO m, WebsiteDataManagerK a) => MethodInfo WebsiteDataManagerGetIndexeddbDirectoryMethodInfo a signature where-    overloadedMethod _ = websiteDataManagerGetIndexeddbDirectory---- method WebsiteDataManager::get_local_storage_directory--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_website_data_manager_get_local_storage_directory" webkit_website_data_manager_get_local_storage_directory :: -    Ptr WebsiteDataManager ->               -- _obj : TInterface "WebKit2" "WebsiteDataManager"-    IO CString---websiteDataManagerGetLocalStorageDirectory ::-    (MonadIO m, WebsiteDataManagerK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-websiteDataManagerGetLocalStorageDirectory _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_website_data_manager_get_local_storage_directory _obj'-    checkUnexpectedReturnNULL "webkit_website_data_manager_get_local_storage_directory" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data WebsiteDataManagerGetLocalStorageDirectoryMethodInfo-instance (signature ~ (m T.Text), MonadIO m, WebsiteDataManagerK a) => MethodInfo WebsiteDataManagerGetLocalStorageDirectoryMethodInfo a signature where-    overloadedMethod _ = websiteDataManagerGetLocalStorageDirectory---- method WebsiteDataManager::get_offline_application_cache_directory--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_website_data_manager_get_offline_application_cache_directory" webkit_website_data_manager_get_offline_application_cache_directory :: -    Ptr WebsiteDataManager ->               -- _obj : TInterface "WebKit2" "WebsiteDataManager"-    IO CString---websiteDataManagerGetOfflineApplicationCacheDirectory ::-    (MonadIO m, WebsiteDataManagerK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-websiteDataManagerGetOfflineApplicationCacheDirectory _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_website_data_manager_get_offline_application_cache_directory _obj'-    checkUnexpectedReturnNULL "webkit_website_data_manager_get_offline_application_cache_directory" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo-instance (signature ~ (m T.Text), MonadIO m, WebsiteDataManagerK a) => MethodInfo WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo a signature where-    overloadedMethod _ = websiteDataManagerGetOfflineApplicationCacheDirectory---- method WebsiteDataManager::get_websql_directory--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebsiteDataManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_website_data_manager_get_websql_directory" webkit_website_data_manager_get_websql_directory :: -    Ptr WebsiteDataManager ->               -- _obj : TInterface "WebKit2" "WebsiteDataManager"-    IO CString---websiteDataManagerGetWebsqlDirectory ::-    (MonadIO m, WebsiteDataManagerK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-websiteDataManagerGetWebsqlDirectory _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_website_data_manager_get_websql_directory _obj'-    checkUnexpectedReturnNULL "webkit_website_data_manager_get_websql_directory" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data WebsiteDataManagerGetWebsqlDirectoryMethodInfo-instance (signature ~ (m T.Text), MonadIO m, WebsiteDataManagerK a) => MethodInfo WebsiteDataManagerGetWebsqlDirectoryMethodInfo a signature where-    overloadedMethod _ = websiteDataManagerGetWebsqlDirectory--
− GI/WebKit2/Objects/WebsiteDataManager.hs-boot 
@@ -1,27 +0,0 @@-module GI.WebKit2.Objects.WebsiteDataManager where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype WebsiteDataManager = WebsiteDataManager (ForeignPtr WebsiteDataManager)-instance GObject WebsiteDataManager where-class GObject o => WebsiteDataManagerK o-instance (GObject o, IsDescendantOf WebsiteDataManager o) => WebsiteDataManagerK o-data WebsiteDataManagerBaseCacheDirectoryPropertyInfo-data WebsiteDataManagerBaseDataDirectoryPropertyInfo-data WebsiteDataManagerDiskCacheDirectoryPropertyInfo-data WebsiteDataManagerIndexeddbDirectoryPropertyInfo-data WebsiteDataManagerLocalStorageDirectoryPropertyInfo-data WebsiteDataManagerOfflineApplicationCacheDirectoryPropertyInfo-data WebsiteDataManagerWebsqlDirectoryPropertyInfo-data WebsiteDataManagerGetBaseCacheDirectoryMethodInfo-data WebsiteDataManagerGetBaseDataDirectoryMethodInfo-data WebsiteDataManagerGetDiskCacheDirectoryMethodInfo-data WebsiteDataManagerGetIndexeddbDirectoryMethodInfo-data WebsiteDataManagerGetLocalStorageDirectoryMethodInfo-data WebsiteDataManagerGetOfflineApplicationCacheDirectoryMethodInfo-data WebsiteDataManagerGetWebsqlDirectoryMethodInfo
− GI/WebKit2/Objects/WindowProperties.hs 
@@ -1,637 +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.WebKit2.Objects.WindowProperties-    ( ---- * Exported types-    WindowProperties(..)                    ,-    WindowPropertiesK                       ,-    toWindowProperties                      ,-    noWindowProperties                      ,--- -- * Methods--- ** windowPropertiesGetFullscreen-    WindowPropertiesGetFullscreenMethodInfo ,-    windowPropertiesGetFullscreen           ,----- ** windowPropertiesGetGeometry-    WindowPropertiesGetGeometryMethodInfo   ,-    windowPropertiesGetGeometry             ,----- ** windowPropertiesGetLocationbarVisible-    WindowPropertiesGetLocationbarVisibleMethodInfo,-    windowPropertiesGetLocationbarVisible   ,----- ** windowPropertiesGetMenubarVisible-    WindowPropertiesGetMenubarVisibleMethodInfo,-    windowPropertiesGetMenubarVisible       ,----- ** windowPropertiesGetResizable-    WindowPropertiesGetResizableMethodInfo  ,-    windowPropertiesGetResizable            ,----- ** windowPropertiesGetScrollbarsVisible-    WindowPropertiesGetScrollbarsVisibleMethodInfo,-    windowPropertiesGetScrollbarsVisible    ,----- ** windowPropertiesGetStatusbarVisible-    WindowPropertiesGetStatusbarVisibleMethodInfo,-    windowPropertiesGetStatusbarVisible     ,----- ** windowPropertiesGetToolbarVisible-    WindowPropertiesGetToolbarVisibleMethodInfo,-    windowPropertiesGetToolbarVisible       ,----- -- * Properties--- ** Fullscreen-    WindowPropertiesFullscreenPropertyInfo  ,-    constructWindowPropertiesFullscreen     ,-    getWindowPropertiesFullscreen           ,-    windowPropertiesFullscreen              ,----- ** Geometry-    WindowPropertiesGeometryPropertyInfo    ,-    constructWindowPropertiesGeometry       ,-    getWindowPropertiesGeometry             ,-    windowPropertiesGeometry                ,----- ** LocationbarVisible-    WindowPropertiesLocationbarVisiblePropertyInfo,-    constructWindowPropertiesLocationbarVisible,-    getWindowPropertiesLocationbarVisible   ,-    windowPropertiesLocationbarVisible      ,----- ** MenubarVisible-    WindowPropertiesMenubarVisiblePropertyInfo,-    constructWindowPropertiesMenubarVisible ,-    getWindowPropertiesMenubarVisible       ,-    windowPropertiesMenubarVisible          ,----- ** Resizable-    WindowPropertiesResizablePropertyInfo   ,-    constructWindowPropertiesResizable      ,-    getWindowPropertiesResizable            ,-    windowPropertiesResizable               ,----- ** ScrollbarsVisible-    WindowPropertiesScrollbarsVisiblePropertyInfo,-    constructWindowPropertiesScrollbarsVisible,-    getWindowPropertiesScrollbarsVisible    ,-    windowPropertiesScrollbarsVisible       ,----- ** StatusbarVisible-    WindowPropertiesStatusbarVisiblePropertyInfo,-    constructWindowPropertiesStatusbarVisible,-    getWindowPropertiesStatusbarVisible     ,-    windowPropertiesStatusbarVisible        ,----- ** ToolbarVisible-    WindowPropertiesToolbarVisiblePropertyInfo,-    constructWindowPropertiesToolbarVisible ,-    getWindowPropertiesToolbarVisible       ,-    windowPropertiesToolbarVisible          ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GObject as GObject-import qualified GI.Gdk as Gdk--newtype WindowProperties = WindowProperties (ForeignPtr WindowProperties)-foreign import ccall "webkit_window_properties_get_type"-    c_webkit_window_properties_get_type :: IO GType--type instance ParentTypes WindowProperties = WindowPropertiesParentTypes-type WindowPropertiesParentTypes = '[GObject.Object]--instance GObject WindowProperties where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_webkit_window_properties_get_type-    --class GObject o => WindowPropertiesK o-instance (GObject o, IsDescendantOf WindowProperties o) => WindowPropertiesK o--toWindowProperties :: WindowPropertiesK o => o -> IO WindowProperties-toWindowProperties = unsafeCastTo WindowProperties--noWindowProperties :: Maybe WindowProperties-noWindowProperties = Nothing--type family ResolveWindowPropertiesMethod (t :: Symbol) (o :: *) :: * where-    ResolveWindowPropertiesMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveWindowPropertiesMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveWindowPropertiesMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveWindowPropertiesMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveWindowPropertiesMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveWindowPropertiesMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveWindowPropertiesMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveWindowPropertiesMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveWindowPropertiesMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveWindowPropertiesMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveWindowPropertiesMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveWindowPropertiesMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveWindowPropertiesMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveWindowPropertiesMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveWindowPropertiesMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveWindowPropertiesMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveWindowPropertiesMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveWindowPropertiesMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveWindowPropertiesMethod "getFullscreen" o = WindowPropertiesGetFullscreenMethodInfo-    ResolveWindowPropertiesMethod "getGeometry" o = WindowPropertiesGetGeometryMethodInfo-    ResolveWindowPropertiesMethod "getLocationbarVisible" o = WindowPropertiesGetLocationbarVisibleMethodInfo-    ResolveWindowPropertiesMethod "getMenubarVisible" o = WindowPropertiesGetMenubarVisibleMethodInfo-    ResolveWindowPropertiesMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveWindowPropertiesMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveWindowPropertiesMethod "getResizable" o = WindowPropertiesGetResizableMethodInfo-    ResolveWindowPropertiesMethod "getScrollbarsVisible" o = WindowPropertiesGetScrollbarsVisibleMethodInfo-    ResolveWindowPropertiesMethod "getStatusbarVisible" o = WindowPropertiesGetStatusbarVisibleMethodInfo-    ResolveWindowPropertiesMethod "getToolbarVisible" o = WindowPropertiesGetToolbarVisibleMethodInfo-    ResolveWindowPropertiesMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveWindowPropertiesMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveWindowPropertiesMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveWindowPropertiesMethod t WindowProperties, MethodInfo info WindowProperties p) => IsLabelProxy t (WindowProperties -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveWindowPropertiesMethod t WindowProperties, MethodInfo info WindowProperties p) => IsLabel t (WindowProperties -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "fullscreen"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getWindowPropertiesFullscreen :: (MonadIO m, WindowPropertiesK o) => o -> m Bool-getWindowPropertiesFullscreen obj = liftIO $ getObjectPropertyBool obj "fullscreen"--constructWindowPropertiesFullscreen :: Bool -> IO ([Char], GValue)-constructWindowPropertiesFullscreen val = constructObjectPropertyBool "fullscreen" val--data WindowPropertiesFullscreenPropertyInfo-instance AttrInfo WindowPropertiesFullscreenPropertyInfo where-    type AttrAllowedOps WindowPropertiesFullscreenPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint WindowPropertiesFullscreenPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint WindowPropertiesFullscreenPropertyInfo = WindowPropertiesK-    type AttrGetType WindowPropertiesFullscreenPropertyInfo = Bool-    type AttrLabel WindowPropertiesFullscreenPropertyInfo = "fullscreen"-    attrGet _ = getWindowPropertiesFullscreen-    attrSet _ = undefined-    attrConstruct _ = constructWindowPropertiesFullscreen-    attrClear _ = undefined---- VVV Prop "geometry"-   -- Type: TInterface "Gdk" "Rectangle"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getWindowPropertiesGeometry :: (MonadIO m, WindowPropertiesK o) => o -> m (Maybe Gdk.Rectangle)-getWindowPropertiesGeometry obj = liftIO $ getObjectPropertyBoxed obj "geometry" Gdk.Rectangle--constructWindowPropertiesGeometry :: Gdk.Rectangle -> IO ([Char], GValue)-constructWindowPropertiesGeometry val = constructObjectPropertyBoxed "geometry" (Just val)--data WindowPropertiesGeometryPropertyInfo-instance AttrInfo WindowPropertiesGeometryPropertyInfo where-    type AttrAllowedOps WindowPropertiesGeometryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WindowPropertiesGeometryPropertyInfo = (~) Gdk.Rectangle-    type AttrBaseTypeConstraint WindowPropertiesGeometryPropertyInfo = WindowPropertiesK-    type AttrGetType WindowPropertiesGeometryPropertyInfo = (Maybe Gdk.Rectangle)-    type AttrLabel WindowPropertiesGeometryPropertyInfo = "geometry"-    attrGet _ = getWindowPropertiesGeometry-    attrSet _ = undefined-    attrConstruct _ = constructWindowPropertiesGeometry-    attrClear _ = undefined---- VVV Prop "locationbar-visible"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getWindowPropertiesLocationbarVisible :: (MonadIO m, WindowPropertiesK o) => o -> m Bool-getWindowPropertiesLocationbarVisible obj = liftIO $ getObjectPropertyBool obj "locationbar-visible"--constructWindowPropertiesLocationbarVisible :: Bool -> IO ([Char], GValue)-constructWindowPropertiesLocationbarVisible val = constructObjectPropertyBool "locationbar-visible" val--data WindowPropertiesLocationbarVisiblePropertyInfo-instance AttrInfo WindowPropertiesLocationbarVisiblePropertyInfo where-    type AttrAllowedOps WindowPropertiesLocationbarVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint WindowPropertiesLocationbarVisiblePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint WindowPropertiesLocationbarVisiblePropertyInfo = WindowPropertiesK-    type AttrGetType WindowPropertiesLocationbarVisiblePropertyInfo = Bool-    type AttrLabel WindowPropertiesLocationbarVisiblePropertyInfo = "locationbar-visible"-    attrGet _ = getWindowPropertiesLocationbarVisible-    attrSet _ = undefined-    attrConstruct _ = constructWindowPropertiesLocationbarVisible-    attrClear _ = undefined---- VVV Prop "menubar-visible"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getWindowPropertiesMenubarVisible :: (MonadIO m, WindowPropertiesK o) => o -> m Bool-getWindowPropertiesMenubarVisible obj = liftIO $ getObjectPropertyBool obj "menubar-visible"--constructWindowPropertiesMenubarVisible :: Bool -> IO ([Char], GValue)-constructWindowPropertiesMenubarVisible val = constructObjectPropertyBool "menubar-visible" val--data WindowPropertiesMenubarVisiblePropertyInfo-instance AttrInfo WindowPropertiesMenubarVisiblePropertyInfo where-    type AttrAllowedOps WindowPropertiesMenubarVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint WindowPropertiesMenubarVisiblePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint WindowPropertiesMenubarVisiblePropertyInfo = WindowPropertiesK-    type AttrGetType WindowPropertiesMenubarVisiblePropertyInfo = Bool-    type AttrLabel WindowPropertiesMenubarVisiblePropertyInfo = "menubar-visible"-    attrGet _ = getWindowPropertiesMenubarVisible-    attrSet _ = undefined-    attrConstruct _ = constructWindowPropertiesMenubarVisible-    attrClear _ = undefined---- VVV Prop "resizable"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getWindowPropertiesResizable :: (MonadIO m, WindowPropertiesK o) => o -> m Bool-getWindowPropertiesResizable obj = liftIO $ getObjectPropertyBool obj "resizable"--constructWindowPropertiesResizable :: Bool -> IO ([Char], GValue)-constructWindowPropertiesResizable val = constructObjectPropertyBool "resizable" val--data WindowPropertiesResizablePropertyInfo-instance AttrInfo WindowPropertiesResizablePropertyInfo where-    type AttrAllowedOps WindowPropertiesResizablePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint WindowPropertiesResizablePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint WindowPropertiesResizablePropertyInfo = WindowPropertiesK-    type AttrGetType WindowPropertiesResizablePropertyInfo = Bool-    type AttrLabel WindowPropertiesResizablePropertyInfo = "resizable"-    attrGet _ = getWindowPropertiesResizable-    attrSet _ = undefined-    attrConstruct _ = constructWindowPropertiesResizable-    attrClear _ = undefined---- VVV Prop "scrollbars-visible"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getWindowPropertiesScrollbarsVisible :: (MonadIO m, WindowPropertiesK o) => o -> m Bool-getWindowPropertiesScrollbarsVisible obj = liftIO $ getObjectPropertyBool obj "scrollbars-visible"--constructWindowPropertiesScrollbarsVisible :: Bool -> IO ([Char], GValue)-constructWindowPropertiesScrollbarsVisible val = constructObjectPropertyBool "scrollbars-visible" val--data WindowPropertiesScrollbarsVisiblePropertyInfo-instance AttrInfo WindowPropertiesScrollbarsVisiblePropertyInfo where-    type AttrAllowedOps WindowPropertiesScrollbarsVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint WindowPropertiesScrollbarsVisiblePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint WindowPropertiesScrollbarsVisiblePropertyInfo = WindowPropertiesK-    type AttrGetType WindowPropertiesScrollbarsVisiblePropertyInfo = Bool-    type AttrLabel WindowPropertiesScrollbarsVisiblePropertyInfo = "scrollbars-visible"-    attrGet _ = getWindowPropertiesScrollbarsVisible-    attrSet _ = undefined-    attrConstruct _ = constructWindowPropertiesScrollbarsVisible-    attrClear _ = undefined---- VVV Prop "statusbar-visible"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getWindowPropertiesStatusbarVisible :: (MonadIO m, WindowPropertiesK o) => o -> m Bool-getWindowPropertiesStatusbarVisible obj = liftIO $ getObjectPropertyBool obj "statusbar-visible"--constructWindowPropertiesStatusbarVisible :: Bool -> IO ([Char], GValue)-constructWindowPropertiesStatusbarVisible val = constructObjectPropertyBool "statusbar-visible" val--data WindowPropertiesStatusbarVisiblePropertyInfo-instance AttrInfo WindowPropertiesStatusbarVisiblePropertyInfo where-    type AttrAllowedOps WindowPropertiesStatusbarVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint WindowPropertiesStatusbarVisiblePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint WindowPropertiesStatusbarVisiblePropertyInfo = WindowPropertiesK-    type AttrGetType WindowPropertiesStatusbarVisiblePropertyInfo = Bool-    type AttrLabel WindowPropertiesStatusbarVisiblePropertyInfo = "statusbar-visible"-    attrGet _ = getWindowPropertiesStatusbarVisible-    attrSet _ = undefined-    attrConstruct _ = constructWindowPropertiesStatusbarVisible-    attrClear _ = undefined---- VVV Prop "toolbar-visible"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getWindowPropertiesToolbarVisible :: (MonadIO m, WindowPropertiesK o) => o -> m Bool-getWindowPropertiesToolbarVisible obj = liftIO $ getObjectPropertyBool obj "toolbar-visible"--constructWindowPropertiesToolbarVisible :: Bool -> IO ([Char], GValue)-constructWindowPropertiesToolbarVisible val = constructObjectPropertyBool "toolbar-visible" val--data WindowPropertiesToolbarVisiblePropertyInfo-instance AttrInfo WindowPropertiesToolbarVisiblePropertyInfo where-    type AttrAllowedOps WindowPropertiesToolbarVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint WindowPropertiesToolbarVisiblePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint WindowPropertiesToolbarVisiblePropertyInfo = WindowPropertiesK-    type AttrGetType WindowPropertiesToolbarVisiblePropertyInfo = Bool-    type AttrLabel WindowPropertiesToolbarVisiblePropertyInfo = "toolbar-visible"-    attrGet _ = getWindowPropertiesToolbarVisible-    attrSet _ = undefined-    attrConstruct _ = constructWindowPropertiesToolbarVisible-    attrClear _ = undefined--type instance AttributeList WindowProperties = WindowPropertiesAttributeList-type WindowPropertiesAttributeList = ('[ '("fullscreen", WindowPropertiesFullscreenPropertyInfo), '("geometry", WindowPropertiesGeometryPropertyInfo), '("locationbarVisible", WindowPropertiesLocationbarVisiblePropertyInfo), '("menubarVisible", WindowPropertiesMenubarVisiblePropertyInfo), '("resizable", WindowPropertiesResizablePropertyInfo), '("scrollbarsVisible", WindowPropertiesScrollbarsVisiblePropertyInfo), '("statusbarVisible", WindowPropertiesStatusbarVisiblePropertyInfo), '("toolbarVisible", WindowPropertiesToolbarVisiblePropertyInfo)] :: [(Symbol, *)])--windowPropertiesFullscreen :: AttrLabelProxy "fullscreen"-windowPropertiesFullscreen = AttrLabelProxy--windowPropertiesGeometry :: AttrLabelProxy "geometry"-windowPropertiesGeometry = AttrLabelProxy--windowPropertiesLocationbarVisible :: AttrLabelProxy "locationbarVisible"-windowPropertiesLocationbarVisible = AttrLabelProxy--windowPropertiesMenubarVisible :: AttrLabelProxy "menubarVisible"-windowPropertiesMenubarVisible = AttrLabelProxy--windowPropertiesResizable :: AttrLabelProxy "resizable"-windowPropertiesResizable = AttrLabelProxy--windowPropertiesScrollbarsVisible :: AttrLabelProxy "scrollbarsVisible"-windowPropertiesScrollbarsVisible = AttrLabelProxy--windowPropertiesStatusbarVisible :: AttrLabelProxy "statusbarVisible"-windowPropertiesStatusbarVisible = AttrLabelProxy--windowPropertiesToolbarVisible :: AttrLabelProxy "toolbarVisible"-windowPropertiesToolbarVisible = AttrLabelProxy--type instance SignalList WindowProperties = WindowPropertiesSignalList-type WindowPropertiesSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method WindowProperties::get_fullscreen--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_window_properties_get_fullscreen" webkit_window_properties_get_fullscreen :: -    Ptr WindowProperties ->                 -- _obj : TInterface "WebKit2" "WindowProperties"-    IO CInt---windowPropertiesGetFullscreen ::-    (MonadIO m, WindowPropertiesK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-windowPropertiesGetFullscreen _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_window_properties_get_fullscreen _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WindowPropertiesGetFullscreenMethodInfo-instance (signature ~ (m Bool), MonadIO m, WindowPropertiesK a) => MethodInfo WindowPropertiesGetFullscreenMethodInfo a signature where-    overloadedMethod _ = windowPropertiesGetFullscreen---- method WindowProperties::get_geometry--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "geometry", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_window_properties_get_geometry" webkit_window_properties_get_geometry :: -    Ptr WindowProperties ->                 -- _obj : TInterface "WebKit2" "WindowProperties"-    Ptr Gdk.Rectangle ->                    -- geometry : TInterface "Gdk" "Rectangle"-    IO ()---windowPropertiesGetGeometry ::-    (MonadIO m, WindowPropertiesK a) =>-    a                                       -- _obj-    -> m (Gdk.Rectangle)                    -- result-windowPropertiesGetGeometry _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    geometry <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)-    webkit_window_properties_get_geometry _obj' geometry-    geometry' <- (wrapBoxed Gdk.Rectangle) geometry-    touchManagedPtr _obj-    return geometry'--data WindowPropertiesGetGeometryMethodInfo-instance (signature ~ (m (Gdk.Rectangle)), MonadIO m, WindowPropertiesK a) => MethodInfo WindowPropertiesGetGeometryMethodInfo a signature where-    overloadedMethod _ = windowPropertiesGetGeometry---- method WindowProperties::get_locationbar_visible--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_window_properties_get_locationbar_visible" webkit_window_properties_get_locationbar_visible :: -    Ptr WindowProperties ->                 -- _obj : TInterface "WebKit2" "WindowProperties"-    IO CInt---windowPropertiesGetLocationbarVisible ::-    (MonadIO m, WindowPropertiesK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-windowPropertiesGetLocationbarVisible _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_window_properties_get_locationbar_visible _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WindowPropertiesGetLocationbarVisibleMethodInfo-instance (signature ~ (m Bool), MonadIO m, WindowPropertiesK a) => MethodInfo WindowPropertiesGetLocationbarVisibleMethodInfo a signature where-    overloadedMethod _ = windowPropertiesGetLocationbarVisible---- method WindowProperties::get_menubar_visible--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_window_properties_get_menubar_visible" webkit_window_properties_get_menubar_visible :: -    Ptr WindowProperties ->                 -- _obj : TInterface "WebKit2" "WindowProperties"-    IO CInt---windowPropertiesGetMenubarVisible ::-    (MonadIO m, WindowPropertiesK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-windowPropertiesGetMenubarVisible _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_window_properties_get_menubar_visible _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WindowPropertiesGetMenubarVisibleMethodInfo-instance (signature ~ (m Bool), MonadIO m, WindowPropertiesK a) => MethodInfo WindowPropertiesGetMenubarVisibleMethodInfo a signature where-    overloadedMethod _ = windowPropertiesGetMenubarVisible---- method WindowProperties::get_resizable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_window_properties_get_resizable" webkit_window_properties_get_resizable :: -    Ptr WindowProperties ->                 -- _obj : TInterface "WebKit2" "WindowProperties"-    IO CInt---windowPropertiesGetResizable ::-    (MonadIO m, WindowPropertiesK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-windowPropertiesGetResizable _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_window_properties_get_resizable _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WindowPropertiesGetResizableMethodInfo-instance (signature ~ (m Bool), MonadIO m, WindowPropertiesK a) => MethodInfo WindowPropertiesGetResizableMethodInfo a signature where-    overloadedMethod _ = windowPropertiesGetResizable---- method WindowProperties::get_scrollbars_visible--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_window_properties_get_scrollbars_visible" webkit_window_properties_get_scrollbars_visible :: -    Ptr WindowProperties ->                 -- _obj : TInterface "WebKit2" "WindowProperties"-    IO CInt---windowPropertiesGetScrollbarsVisible ::-    (MonadIO m, WindowPropertiesK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-windowPropertiesGetScrollbarsVisible _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_window_properties_get_scrollbars_visible _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WindowPropertiesGetScrollbarsVisibleMethodInfo-instance (signature ~ (m Bool), MonadIO m, WindowPropertiesK a) => MethodInfo WindowPropertiesGetScrollbarsVisibleMethodInfo a signature where-    overloadedMethod _ = windowPropertiesGetScrollbarsVisible---- method WindowProperties::get_statusbar_visible--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_window_properties_get_statusbar_visible" webkit_window_properties_get_statusbar_visible :: -    Ptr WindowProperties ->                 -- _obj : TInterface "WebKit2" "WindowProperties"-    IO CInt---windowPropertiesGetStatusbarVisible ::-    (MonadIO m, WindowPropertiesK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-windowPropertiesGetStatusbarVisible _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_window_properties_get_statusbar_visible _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WindowPropertiesGetStatusbarVisibleMethodInfo-instance (signature ~ (m Bool), MonadIO m, WindowPropertiesK a) => MethodInfo WindowPropertiesGetStatusbarVisibleMethodInfo a signature where-    overloadedMethod _ = windowPropertiesGetStatusbarVisible---- method WindowProperties::get_toolbar_visible--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WindowProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_window_properties_get_toolbar_visible" webkit_window_properties_get_toolbar_visible :: -    Ptr WindowProperties ->                 -- _obj : TInterface "WebKit2" "WindowProperties"-    IO CInt---windowPropertiesGetToolbarVisible ::-    (MonadIO m, WindowPropertiesK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-windowPropertiesGetToolbarVisible _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- webkit_window_properties_get_toolbar_visible _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WindowPropertiesGetToolbarVisibleMethodInfo-instance (signature ~ (m Bool), MonadIO m, WindowPropertiesK a) => MethodInfo WindowPropertiesGetToolbarVisibleMethodInfo a signature where-    overloadedMethod _ = windowPropertiesGetToolbarVisible--
− GI/WebKit2/Objects/WindowProperties.hs-boot 
@@ -1,29 +0,0 @@-module GI.WebKit2.Objects.WindowProperties where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype WindowProperties = WindowProperties (ForeignPtr WindowProperties)-instance GObject WindowProperties where-class GObject o => WindowPropertiesK o-instance (GObject o, IsDescendantOf WindowProperties o) => WindowPropertiesK o-data WindowPropertiesFullscreenPropertyInfo-data WindowPropertiesGeometryPropertyInfo-data WindowPropertiesLocationbarVisiblePropertyInfo-data WindowPropertiesMenubarVisiblePropertyInfo-data WindowPropertiesResizablePropertyInfo-data WindowPropertiesScrollbarsVisiblePropertyInfo-data WindowPropertiesStatusbarVisiblePropertyInfo-data WindowPropertiesToolbarVisiblePropertyInfo-data WindowPropertiesGetFullscreenMethodInfo-data WindowPropertiesGetGeometryMethodInfo-data WindowPropertiesGetLocationbarVisibleMethodInfo-data WindowPropertiesGetMenubarVisibleMethodInfo-data WindowPropertiesGetResizableMethodInfo-data WindowPropertiesGetScrollbarsVisibleMethodInfo-data WindowPropertiesGetStatusbarVisibleMethodInfo-data WindowPropertiesGetToolbarVisibleMethodInfo
− GI/WebKit2/Structs.hs 
@@ -1,41 +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.WebKit2.Structs-    (     module GI.WebKit2.Structs.Credential    ,-    module GI.WebKit2.Structs.JavascriptResult,-    module GI.WebKit2.Structs.MimeInfo      ,-    module GI.WebKit2.Structs.NavigationAction,-    module GI.WebKit2.Structs.ScriptDialog  ,-    module GI.WebKit2.Structs.UserScript    ,-    module GI.WebKit2.Structs.UserStyleSheet,-    module GI.WebKit2.Structs.WebViewSessionState,---    ) where--import GI.WebKit2.Structs.Credential-import GI.WebKit2.Structs.JavascriptResult-import GI.WebKit2.Structs.MimeInfo-import GI.WebKit2.Structs.NavigationAction-import GI.WebKit2.Structs.ScriptDialog-import GI.WebKit2.Structs.UserScript-import GI.WebKit2.Structs.UserStyleSheet-import GI.WebKit2.Structs.WebViewSessionState--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks--
− GI/WebKit2/Structs/Credential.hs 
@@ -1,299 +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.WebKit2.Structs.Credential-    ( ---- * Exported types-    Credential(..)                          ,-    noCredential                            ,--- -- * Methods--- ** credentialCopy-    CredentialCopyMethodInfo                ,-    credentialCopy                          ,----- ** credentialFree-    CredentialFreeMethodInfo                ,-    credentialFree                          ,----- ** credentialGetPassword-    CredentialGetPasswordMethodInfo         ,-    credentialGetPassword                   ,----- ** credentialGetPersistence-    CredentialGetPersistenceMethodInfo      ,-    credentialGetPersistence                ,----- ** credentialGetUsername-    CredentialGetUsernameMethodInfo         ,-    credentialGetUsername                   ,----- ** credentialHasPassword-    CredentialHasPasswordMethodInfo         ,-    credentialHasPassword                   ,----- ** credentialNew-    credentialNew                           ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks--newtype Credential = Credential (ForeignPtr Credential)-foreign import ccall "webkit_credential_get_type" c_webkit_credential_get_type :: -    IO GType--instance BoxedObject Credential where-    boxedType _ = c_webkit_credential_get_type--noCredential :: Maybe Credential-noCredential = Nothing---type instance AttributeList Credential = CredentialAttributeList-type CredentialAttributeList = ('[ ] :: [(Symbol, *)])---- method Credential::new--- method type : Constructor--- Args : [Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "persistence", argType = TInterface "WebKit2" "CredentialPersistence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "Credential")--- throws : False--- Skip return : False--foreign import ccall "webkit_credential_new" webkit_credential_new :: -    CString ->                              -- username : TBasicType TUTF8-    CString ->                              -- password : TBasicType TUTF8-    CUInt ->                                -- persistence : TInterface "WebKit2" "CredentialPersistence"-    IO (Ptr Credential)---credentialNew ::-    (MonadIO m) =>-    T.Text                                  -- username-    -> T.Text                               -- password-    -> CredentialPersistence                -- persistence-    -> m Credential                         -- result-credentialNew username password persistence = liftIO $ do-    username' <- textToCString username-    password' <- textToCString password-    let persistence' = (fromIntegral . fromEnum) persistence-    result <- webkit_credential_new username' password' persistence'-    checkUnexpectedReturnNULL "webkit_credential_new" result-    result' <- (wrapBoxed Credential) result-    freeMem username'-    freeMem password'-    return result'---- method Credential::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "Credential")--- throws : False--- Skip return : False--foreign import ccall "webkit_credential_copy" webkit_credential_copy :: -    Ptr Credential ->                       -- _obj : TInterface "WebKit2" "Credential"-    IO (Ptr Credential)---credentialCopy ::-    (MonadIO m) =>-    Credential                              -- _obj-    -> m Credential                         -- result-credentialCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_credential_copy _obj'-    checkUnexpectedReturnNULL "webkit_credential_copy" result-    result' <- (wrapBoxed Credential) result-    touchManagedPtr _obj-    return result'--data CredentialCopyMethodInfo-instance (signature ~ (m Credential), MonadIO m) => MethodInfo CredentialCopyMethodInfo Credential signature where-    overloadedMethod _ = credentialCopy---- method Credential::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_credential_free" webkit_credential_free :: -    Ptr Credential ->                       -- _obj : TInterface "WebKit2" "Credential"-    IO ()---credentialFree ::-    (MonadIO m) =>-    Credential                              -- _obj-    -> m ()                                 -- result-credentialFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    webkit_credential_free _obj'-    touchManagedPtr _obj-    return ()--data CredentialFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo CredentialFreeMethodInfo Credential signature where-    overloadedMethod _ = credentialFree---- method Credential::get_password--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_credential_get_password" webkit_credential_get_password :: -    Ptr Credential ->                       -- _obj : TInterface "WebKit2" "Credential"-    IO CString---credentialGetPassword ::-    (MonadIO m) =>-    Credential                              -- _obj-    -> m T.Text                             -- result-credentialGetPassword _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_credential_get_password _obj'-    checkUnexpectedReturnNULL "webkit_credential_get_password" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data CredentialGetPasswordMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo CredentialGetPasswordMethodInfo Credential signature where-    overloadedMethod _ = credentialGetPassword---- method Credential::get_persistence--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "CredentialPersistence")--- throws : False--- Skip return : False--foreign import ccall "webkit_credential_get_persistence" webkit_credential_get_persistence :: -    Ptr Credential ->                       -- _obj : TInterface "WebKit2" "Credential"-    IO CUInt---credentialGetPersistence ::-    (MonadIO m) =>-    Credential                              -- _obj-    -> m CredentialPersistence              -- result-credentialGetPersistence _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_credential_get_persistence _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data CredentialGetPersistenceMethodInfo-instance (signature ~ (m CredentialPersistence), MonadIO m) => MethodInfo CredentialGetPersistenceMethodInfo Credential signature where-    overloadedMethod _ = credentialGetPersistence---- method Credential::get_username--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_credential_get_username" webkit_credential_get_username :: -    Ptr Credential ->                       -- _obj : TInterface "WebKit2" "Credential"-    IO CString---credentialGetUsername ::-    (MonadIO m) =>-    Credential                              -- _obj-    -> m T.Text                             -- result-credentialGetUsername _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_credential_get_username _obj'-    checkUnexpectedReturnNULL "webkit_credential_get_username" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data CredentialGetUsernameMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo CredentialGetUsernameMethodInfo Credential signature where-    overloadedMethod _ = credentialGetUsername---- method Credential::has_password--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "Credential", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_credential_has_password" webkit_credential_has_password :: -    Ptr Credential ->                       -- _obj : TInterface "WebKit2" "Credential"-    IO CInt---credentialHasPassword ::-    (MonadIO m) =>-    Credential                              -- _obj-    -> m Bool                               -- result-credentialHasPassword _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_credential_has_password _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data CredentialHasPasswordMethodInfo-instance (signature ~ (m Bool), MonadIO m) => MethodInfo CredentialHasPasswordMethodInfo Credential signature where-    overloadedMethod _ = credentialHasPassword--type family ResolveCredentialMethod (t :: Symbol) (o :: *) :: * where-    ResolveCredentialMethod "copy" o = CredentialCopyMethodInfo-    ResolveCredentialMethod "free" o = CredentialFreeMethodInfo-    ResolveCredentialMethod "hasPassword" o = CredentialHasPasswordMethodInfo-    ResolveCredentialMethod "getPassword" o = CredentialGetPasswordMethodInfo-    ResolveCredentialMethod "getPersistence" o = CredentialGetPersistenceMethodInfo-    ResolveCredentialMethod "getUsername" o = CredentialGetUsernameMethodInfo-    ResolveCredentialMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveCredentialMethod t Credential, MethodInfo info Credential p) => IsLabelProxy t (Credential -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveCredentialMethod t Credential, MethodInfo info Credential p) => IsLabel t (Credential -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/WebKit2/Structs/Credential.hs-boot 
@@ -1,17 +0,0 @@-module GI.WebKit2.Structs.Credential where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Credential = Credential (ForeignPtr Credential)-instance BoxedObject Credential where-data CredentialCopyMethodInfo-data CredentialFreeMethodInfo-data CredentialGetPasswordMethodInfo-data CredentialGetPersistenceMethodInfo-data CredentialGetUsernameMethodInfo-data CredentialHasPasswordMethodInfo
− GI/WebKit2/Structs/JavascriptResult.hs 
@@ -1,196 +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.WebKit2.Structs.JavascriptResult-    ( ---- * Exported types-    JavascriptResult(..)                    ,-    noJavascriptResult                      ,--- -- * Methods--- ** javascriptResultGetGlobalContext-    JavascriptResultGetGlobalContextMethodInfo,-    javascriptResultGetGlobalContext        ,----- ** javascriptResultGetValue-    JavascriptResultGetValueMethodInfo      ,-    javascriptResultGetValue                ,----- ** javascriptResultRef-    JavascriptResultRefMethodInfo           ,-    javascriptResultRef                     ,----- ** javascriptResultUnref-    JavascriptResultUnrefMethodInfo         ,-    javascriptResultUnref                   ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.JavaScriptCore as JavaScriptCore--newtype JavascriptResult = JavascriptResult (ForeignPtr JavascriptResult)-foreign import ccall "webkit_javascript_result_get_type" c_webkit_javascript_result_get_type :: -    IO GType--instance BoxedObject JavascriptResult where-    boxedType _ = c_webkit_javascript_result_get_type--noJavascriptResult :: Maybe JavascriptResult-noJavascriptResult = Nothing---type instance AttributeList JavascriptResult = JavascriptResultAttributeList-type JavascriptResultAttributeList = ('[ ] :: [(Symbol, *)])---- method JavascriptResult::get_global_context--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "JavascriptResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "JavaScriptCore" "GlobalContext")--- throws : False--- Skip return : False--foreign import ccall "webkit_javascript_result_get_global_context" webkit_javascript_result_get_global_context :: -    Ptr JavascriptResult ->                 -- _obj : TInterface "WebKit2" "JavascriptResult"-    IO (Ptr JavaScriptCore.GlobalContext)---javascriptResultGetGlobalContext ::-    (MonadIO m) =>-    JavascriptResult                        -- _obj-    -> m JavaScriptCore.GlobalContext       -- result-javascriptResultGetGlobalContext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_javascript_result_get_global_context _obj'-    checkUnexpectedReturnNULL "webkit_javascript_result_get_global_context" result-    result' <- (wrapPtr JavaScriptCore.GlobalContext) result-    touchManagedPtr _obj-    return result'--data JavascriptResultGetGlobalContextMethodInfo-instance (signature ~ (m JavaScriptCore.GlobalContext), MonadIO m) => MethodInfo JavascriptResultGetGlobalContextMethodInfo JavascriptResult signature where-    overloadedMethod _ = javascriptResultGetGlobalContext---- method JavascriptResult::get_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "JavascriptResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "JavaScriptCore" "Value")--- throws : False--- Skip return : False--foreign import ccall "webkit_javascript_result_get_value" webkit_javascript_result_get_value :: -    Ptr JavascriptResult ->                 -- _obj : TInterface "WebKit2" "JavascriptResult"-    IO (Ptr JavaScriptCore.Value)---javascriptResultGetValue ::-    (MonadIO m) =>-    JavascriptResult                        -- _obj-    -> m JavaScriptCore.Value               -- result-javascriptResultGetValue _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_javascript_result_get_value _obj'-    checkUnexpectedReturnNULL "webkit_javascript_result_get_value" result-    result' <- (wrapPtr JavaScriptCore.Value) result-    touchManagedPtr _obj-    return result'--data JavascriptResultGetValueMethodInfo-instance (signature ~ (m JavaScriptCore.Value), MonadIO m) => MethodInfo JavascriptResultGetValueMethodInfo JavascriptResult signature where-    overloadedMethod _ = javascriptResultGetValue---- method JavascriptResult::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "JavascriptResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "JavascriptResult")--- throws : False--- Skip return : False--foreign import ccall "webkit_javascript_result_ref" webkit_javascript_result_ref :: -    Ptr JavascriptResult ->                 -- _obj : TInterface "WebKit2" "JavascriptResult"-    IO (Ptr JavascriptResult)---javascriptResultRef ::-    (MonadIO m) =>-    JavascriptResult                        -- _obj-    -> m JavascriptResult                   -- result-javascriptResultRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_javascript_result_ref _obj'-    checkUnexpectedReturnNULL "webkit_javascript_result_ref" result-    result' <- (wrapBoxed JavascriptResult) result-    touchManagedPtr _obj-    return result'--data JavascriptResultRefMethodInfo-instance (signature ~ (m JavascriptResult), MonadIO m) => MethodInfo JavascriptResultRefMethodInfo JavascriptResult signature where-    overloadedMethod _ = javascriptResultRef---- method JavascriptResult::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "JavascriptResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_javascript_result_unref" webkit_javascript_result_unref :: -    Ptr JavascriptResult ->                 -- _obj : TInterface "WebKit2" "JavascriptResult"-    IO ()---javascriptResultUnref ::-    (MonadIO m) =>-    JavascriptResult                        -- _obj-    -> m ()                                 -- result-javascriptResultUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    webkit_javascript_result_unref _obj'-    touchManagedPtr _obj-    return ()--data JavascriptResultUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo JavascriptResultUnrefMethodInfo JavascriptResult signature where-    overloadedMethod _ = javascriptResultUnref--type family ResolveJavascriptResultMethod (t :: Symbol) (o :: *) :: * where-    ResolveJavascriptResultMethod "ref" o = JavascriptResultRefMethodInfo-    ResolveJavascriptResultMethod "unref" o = JavascriptResultUnrefMethodInfo-    ResolveJavascriptResultMethod "getGlobalContext" o = JavascriptResultGetGlobalContextMethodInfo-    ResolveJavascriptResultMethod "getValue" o = JavascriptResultGetValueMethodInfo-    ResolveJavascriptResultMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveJavascriptResultMethod t JavascriptResult, MethodInfo info JavascriptResult p) => IsLabelProxy t (JavascriptResult -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveJavascriptResultMethod t JavascriptResult, MethodInfo info JavascriptResult p) => IsLabel t (JavascriptResult -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/WebKit2/Structs/JavascriptResult.hs-boot 
@@ -1,15 +0,0 @@-module GI.WebKit2.Structs.JavascriptResult where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype JavascriptResult = JavascriptResult (ForeignPtr JavascriptResult)-instance BoxedObject JavascriptResult where-data JavascriptResultGetGlobalContextMethodInfo-data JavascriptResultGetValueMethodInfo-data JavascriptResultRefMethodInfo-data JavascriptResultUnrefMethodInfo
− GI/WebKit2/Structs/MimeInfo.hs 
@@ -1,230 +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.WebKit2.Structs.MimeInfo-    ( ---- * Exported types-    MimeInfo(..)                            ,-    noMimeInfo                              ,--- -- * Methods--- ** mimeInfoGetDescription-    MimeInfoGetDescriptionMethodInfo        ,-    mimeInfoGetDescription                  ,----- ** mimeInfoGetExtensions-    MimeInfoGetExtensionsMethodInfo         ,-    mimeInfoGetExtensions                   ,----- ** mimeInfoGetMimeType-    MimeInfoGetMimeTypeMethodInfo           ,-    mimeInfoGetMimeType                     ,----- ** mimeInfoRef-    MimeInfoRefMethodInfo                   ,-    mimeInfoRef                             ,----- ** mimeInfoUnref-    MimeInfoUnrefMethodInfo                 ,-    mimeInfoUnref                           ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks--newtype MimeInfo = MimeInfo (ForeignPtr MimeInfo)-foreign import ccall "webkit_mime_info_get_type" c_webkit_mime_info_get_type :: -    IO GType--instance BoxedObject MimeInfo where-    boxedType _ = c_webkit_mime_info_get_type--noMimeInfo :: Maybe MimeInfo-noMimeInfo = Nothing---type instance AttributeList MimeInfo = MimeInfoAttributeList-type MimeInfoAttributeList = ('[ ] :: [(Symbol, *)])---- method MimeInfo::get_description--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "MimeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_mime_info_get_description" webkit_mime_info_get_description :: -    Ptr MimeInfo ->                         -- _obj : TInterface "WebKit2" "MimeInfo"-    IO CString---mimeInfoGetDescription ::-    (MonadIO m) =>-    MimeInfo                                -- _obj-    -> m T.Text                             -- result-mimeInfoGetDescription _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_mime_info_get_description _obj'-    checkUnexpectedReturnNULL "webkit_mime_info_get_description" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data MimeInfoGetDescriptionMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo MimeInfoGetDescriptionMethodInfo MimeInfo signature where-    overloadedMethod _ = mimeInfoGetDescription---- method MimeInfo::get_extensions--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "MimeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "webkit_mime_info_get_extensions" webkit_mime_info_get_extensions :: -    Ptr MimeInfo ->                         -- _obj : TInterface "WebKit2" "MimeInfo"-    IO (Ptr CString)---mimeInfoGetExtensions ::-    (MonadIO m) =>-    MimeInfo                                -- _obj-    -> m [T.Text]                           -- result-mimeInfoGetExtensions _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_mime_info_get_extensions _obj'-    checkUnexpectedReturnNULL "webkit_mime_info_get_extensions" result-    result' <- unpackZeroTerminatedUTF8CArray result-    touchManagedPtr _obj-    return result'--data MimeInfoGetExtensionsMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m) => MethodInfo MimeInfoGetExtensionsMethodInfo MimeInfo signature where-    overloadedMethod _ = mimeInfoGetExtensions---- method MimeInfo::get_mime_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "MimeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_mime_info_get_mime_type" webkit_mime_info_get_mime_type :: -    Ptr MimeInfo ->                         -- _obj : TInterface "WebKit2" "MimeInfo"-    IO CString---mimeInfoGetMimeType ::-    (MonadIO m) =>-    MimeInfo                                -- _obj-    -> m T.Text                             -- result-mimeInfoGetMimeType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_mime_info_get_mime_type _obj'-    checkUnexpectedReturnNULL "webkit_mime_info_get_mime_type" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data MimeInfoGetMimeTypeMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo MimeInfoGetMimeTypeMethodInfo MimeInfo signature where-    overloadedMethod _ = mimeInfoGetMimeType---- method MimeInfo::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "MimeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "MimeInfo")--- throws : False--- Skip return : False--foreign import ccall "webkit_mime_info_ref" webkit_mime_info_ref :: -    Ptr MimeInfo ->                         -- _obj : TInterface "WebKit2" "MimeInfo"-    IO (Ptr MimeInfo)---mimeInfoRef ::-    (MonadIO m) =>-    MimeInfo                                -- _obj-    -> m MimeInfo                           -- result-mimeInfoRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_mime_info_ref _obj'-    checkUnexpectedReturnNULL "webkit_mime_info_ref" result-    result' <- (wrapBoxed MimeInfo) result-    touchManagedPtr _obj-    return result'--data MimeInfoRefMethodInfo-instance (signature ~ (m MimeInfo), MonadIO m) => MethodInfo MimeInfoRefMethodInfo MimeInfo signature where-    overloadedMethod _ = mimeInfoRef---- method MimeInfo::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "MimeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_mime_info_unref" webkit_mime_info_unref :: -    Ptr MimeInfo ->                         -- _obj : TInterface "WebKit2" "MimeInfo"-    IO ()---mimeInfoUnref ::-    (MonadIO m) =>-    MimeInfo                                -- _obj-    -> m ()                                 -- result-mimeInfoUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    webkit_mime_info_unref _obj'-    touchManagedPtr _obj-    return ()--data MimeInfoUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo MimeInfoUnrefMethodInfo MimeInfo signature where-    overloadedMethod _ = mimeInfoUnref--type family ResolveMimeInfoMethod (t :: Symbol) (o :: *) :: * where-    ResolveMimeInfoMethod "ref" o = MimeInfoRefMethodInfo-    ResolveMimeInfoMethod "unref" o = MimeInfoUnrefMethodInfo-    ResolveMimeInfoMethod "getDescription" o = MimeInfoGetDescriptionMethodInfo-    ResolveMimeInfoMethod "getExtensions" o = MimeInfoGetExtensionsMethodInfo-    ResolveMimeInfoMethod "getMimeType" o = MimeInfoGetMimeTypeMethodInfo-    ResolveMimeInfoMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveMimeInfoMethod t MimeInfo, MethodInfo info MimeInfo p) => IsLabelProxy t (MimeInfo -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveMimeInfoMethod t MimeInfo, MethodInfo info MimeInfo p) => IsLabel t (MimeInfo -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/WebKit2/Structs/MimeInfo.hs-boot 
@@ -1,16 +0,0 @@-module GI.WebKit2.Structs.MimeInfo where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype MimeInfo = MimeInfo (ForeignPtr MimeInfo)-instance BoxedObject MimeInfo where-data MimeInfoGetDescriptionMethodInfo-data MimeInfoGetExtensionsMethodInfo-data MimeInfoGetMimeTypeMethodInfo-data MimeInfoRefMethodInfo-data MimeInfoUnrefMethodInfo
− GI/WebKit2/Structs/NavigationAction.hs 
@@ -1,294 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.WebKit2.Structs.NavigationAction-    ( ---- * Exported types-    NavigationAction(..)                    ,-    noNavigationAction                      ,--- -- * Methods--- ** navigationActionCopy-    NavigationActionCopyMethodInfo          ,-    navigationActionCopy                    ,----- ** navigationActionFree-    NavigationActionFreeMethodInfo          ,-    navigationActionFree                    ,----- ** navigationActionGetModifiers-    NavigationActionGetModifiersMethodInfo  ,-    navigationActionGetModifiers            ,----- ** navigationActionGetMouseButton-    NavigationActionGetMouseButtonMethodInfo,-    navigationActionGetMouseButton          ,----- ** navigationActionGetNavigationType-    NavigationActionGetNavigationTypeMethodInfo,-    navigationActionGetNavigationType       ,----- ** navigationActionGetRequest-    NavigationActionGetRequestMethodInfo    ,-    navigationActionGetRequest              ,----- ** navigationActionIsUserGesture-    NavigationActionIsUserGestureMethodInfo ,-    navigationActionIsUserGesture           ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks--newtype NavigationAction = NavigationAction (ForeignPtr NavigationAction)-foreign import ccall "webkit_navigation_action_get_type" c_webkit_navigation_action_get_type :: -    IO GType--instance BoxedObject NavigationAction where-    boxedType _ = c_webkit_navigation_action_get_type--noNavigationAction :: Maybe NavigationAction-noNavigationAction = Nothing---type instance AttributeList NavigationAction = NavigationActionAttributeList-type NavigationActionAttributeList = ('[ ] :: [(Symbol, *)])---- method NavigationAction::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "NavigationAction")--- throws : False--- Skip return : False--foreign import ccall "webkit_navigation_action_copy" webkit_navigation_action_copy :: -    Ptr NavigationAction ->                 -- _obj : TInterface "WebKit2" "NavigationAction"-    IO (Ptr NavigationAction)---navigationActionCopy ::-    (MonadIO m) =>-    NavigationAction                        -- _obj-    -> m NavigationAction                   -- result-navigationActionCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_navigation_action_copy _obj'-    checkUnexpectedReturnNULL "webkit_navigation_action_copy" result-    result' <- (wrapBoxed NavigationAction) result-    touchManagedPtr _obj-    return result'--data NavigationActionCopyMethodInfo-instance (signature ~ (m NavigationAction), MonadIO m) => MethodInfo NavigationActionCopyMethodInfo NavigationAction signature where-    overloadedMethod _ = navigationActionCopy---- method NavigationAction::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_navigation_action_free" webkit_navigation_action_free :: -    Ptr NavigationAction ->                 -- _obj : TInterface "WebKit2" "NavigationAction"-    IO ()---navigationActionFree ::-    (MonadIO m) =>-    NavigationAction                        -- _obj-    -> m ()                                 -- result-navigationActionFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    webkit_navigation_action_free _obj'-    touchManagedPtr _obj-    return ()--data NavigationActionFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo NavigationActionFreeMethodInfo NavigationAction signature where-    overloadedMethod _ = navigationActionFree---- method NavigationAction::get_modifiers--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "webkit_navigation_action_get_modifiers" webkit_navigation_action_get_modifiers :: -    Ptr NavigationAction ->                 -- _obj : TInterface "WebKit2" "NavigationAction"-    IO Word32---navigationActionGetModifiers ::-    (MonadIO m) =>-    NavigationAction                        -- _obj-    -> m Word32                             -- result-navigationActionGetModifiers _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_navigation_action_get_modifiers _obj'-    touchManagedPtr _obj-    return result--data NavigationActionGetModifiersMethodInfo-instance (signature ~ (m Word32), MonadIO m) => MethodInfo NavigationActionGetModifiersMethodInfo NavigationAction signature where-    overloadedMethod _ = navigationActionGetModifiers---- method NavigationAction::get_mouse_button--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "webkit_navigation_action_get_mouse_button" webkit_navigation_action_get_mouse_button :: -    Ptr NavigationAction ->                 -- _obj : TInterface "WebKit2" "NavigationAction"-    IO Word32---navigationActionGetMouseButton ::-    (MonadIO m) =>-    NavigationAction                        -- _obj-    -> m Word32                             -- result-navigationActionGetMouseButton _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_navigation_action_get_mouse_button _obj'-    touchManagedPtr _obj-    return result--data NavigationActionGetMouseButtonMethodInfo-instance (signature ~ (m Word32), MonadIO m) => MethodInfo NavigationActionGetMouseButtonMethodInfo NavigationAction signature where-    overloadedMethod _ = navigationActionGetMouseButton---- method NavigationAction::get_navigation_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "NavigationType")--- throws : False--- Skip return : False--foreign import ccall "webkit_navigation_action_get_navigation_type" webkit_navigation_action_get_navigation_type :: -    Ptr NavigationAction ->                 -- _obj : TInterface "WebKit2" "NavigationAction"-    IO CUInt---navigationActionGetNavigationType ::-    (MonadIO m) =>-    NavigationAction                        -- _obj-    -> m NavigationType                     -- result-navigationActionGetNavigationType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_navigation_action_get_navigation_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data NavigationActionGetNavigationTypeMethodInfo-instance (signature ~ (m NavigationType), MonadIO m) => MethodInfo NavigationActionGetNavigationTypeMethodInfo NavigationAction signature where-    overloadedMethod _ = navigationActionGetNavigationType---- method NavigationAction::get_request--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "URIRequest")--- throws : False--- Skip return : False--foreign import ccall "webkit_navigation_action_get_request" webkit_navigation_action_get_request :: -    Ptr NavigationAction ->                 -- _obj : TInterface "WebKit2" "NavigationAction"-    IO (Ptr URIRequest)---navigationActionGetRequest ::-    (MonadIO m) =>-    NavigationAction                        -- _obj-    -> m URIRequest                         -- result-navigationActionGetRequest _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_navigation_action_get_request _obj'-    checkUnexpectedReturnNULL "webkit_navigation_action_get_request" result-    result' <- (newObject URIRequest) result-    touchManagedPtr _obj-    return result'--data NavigationActionGetRequestMethodInfo-instance (signature ~ (m URIRequest), MonadIO m) => MethodInfo NavigationActionGetRequestMethodInfo NavigationAction signature where-    overloadedMethod _ = navigationActionGetRequest---- method NavigationAction::is_user_gesture--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "NavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "webkit_navigation_action_is_user_gesture" webkit_navigation_action_is_user_gesture :: -    Ptr NavigationAction ->                 -- _obj : TInterface "WebKit2" "NavigationAction"-    IO CInt---navigationActionIsUserGesture ::-    (MonadIO m) =>-    NavigationAction                        -- _obj-    -> m Bool                               -- result-navigationActionIsUserGesture _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_navigation_action_is_user_gesture _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data NavigationActionIsUserGestureMethodInfo-instance (signature ~ (m Bool), MonadIO m) => MethodInfo NavigationActionIsUserGestureMethodInfo NavigationAction signature where-    overloadedMethod _ = navigationActionIsUserGesture--type family ResolveNavigationActionMethod (t :: Symbol) (o :: *) :: * where-    ResolveNavigationActionMethod "copy" o = NavigationActionCopyMethodInfo-    ResolveNavigationActionMethod "free" o = NavigationActionFreeMethodInfo-    ResolveNavigationActionMethod "isUserGesture" o = NavigationActionIsUserGestureMethodInfo-    ResolveNavigationActionMethod "getModifiers" o = NavigationActionGetModifiersMethodInfo-    ResolveNavigationActionMethod "getMouseButton" o = NavigationActionGetMouseButtonMethodInfo-    ResolveNavigationActionMethod "getNavigationType" o = NavigationActionGetNavigationTypeMethodInfo-    ResolveNavigationActionMethod "getRequest" o = NavigationActionGetRequestMethodInfo-    ResolveNavigationActionMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveNavigationActionMethod t NavigationAction, MethodInfo info NavigationAction p) => IsLabelProxy t (NavigationAction -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveNavigationActionMethod t NavigationAction, MethodInfo info NavigationAction p) => IsLabel t (NavigationAction -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/WebKit2/Structs/NavigationAction.hs-boot 
@@ -1,18 +0,0 @@-module GI.WebKit2.Structs.NavigationAction where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype NavigationAction = NavigationAction (ForeignPtr NavigationAction)-instance BoxedObject NavigationAction where-data NavigationActionCopyMethodInfo-data NavigationActionFreeMethodInfo-data NavigationActionGetModifiersMethodInfo-data NavigationActionGetMouseButtonMethodInfo-data NavigationActionGetNavigationTypeMethodInfo-data NavigationActionGetRequestMethodInfo-data NavigationActionIsUserGestureMethodInfo
− GI/WebKit2/Structs/ScriptDialog.hs 
@@ -1,234 +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.WebKit2.Structs.ScriptDialog-    ( ---- * Exported types-    ScriptDialog(..)                        ,-    noScriptDialog                          ,--- -- * Methods--- ** scriptDialogConfirmSetConfirmed-    ScriptDialogConfirmSetConfirmedMethodInfo,-    scriptDialogConfirmSetConfirmed         ,----- ** scriptDialogGetDialogType-    ScriptDialogGetDialogTypeMethodInfo     ,-    scriptDialogGetDialogType               ,----- ** scriptDialogGetMessage-    ScriptDialogGetMessageMethodInfo        ,-    scriptDialogGetMessage                  ,----- ** scriptDialogPromptGetDefaultText-    ScriptDialogPromptGetDefaultTextMethodInfo,-    scriptDialogPromptGetDefaultText        ,----- ** scriptDialogPromptSetText-    ScriptDialogPromptSetTextMethodInfo     ,-    scriptDialogPromptSetText               ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks--newtype ScriptDialog = ScriptDialog (ForeignPtr ScriptDialog)-foreign import ccall "webkit_script_dialog_get_type" c_webkit_script_dialog_get_type :: -    IO GType--instance BoxedObject ScriptDialog where-    boxedType _ = c_webkit_script_dialog_get_type--noScriptDialog :: Maybe ScriptDialog-noScriptDialog = Nothing---type instance AttributeList ScriptDialog = ScriptDialogAttributeList-type ScriptDialogAttributeList = ('[ ] :: [(Symbol, *)])---- method ScriptDialog::confirm_set_confirmed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ScriptDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "confirmed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_script_dialog_confirm_set_confirmed" webkit_script_dialog_confirm_set_confirmed :: -    Ptr ScriptDialog ->                     -- _obj : TInterface "WebKit2" "ScriptDialog"-    CInt ->                                 -- confirmed : TBasicType TBoolean-    IO ()---scriptDialogConfirmSetConfirmed ::-    (MonadIO m) =>-    ScriptDialog                            -- _obj-    -> Bool                                 -- confirmed-    -> m ()                                 -- result-scriptDialogConfirmSetConfirmed _obj confirmed = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let confirmed' = (fromIntegral . fromEnum) confirmed-    webkit_script_dialog_confirm_set_confirmed _obj' confirmed'-    touchManagedPtr _obj-    return ()--data ScriptDialogConfirmSetConfirmedMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m) => MethodInfo ScriptDialogConfirmSetConfirmedMethodInfo ScriptDialog signature where-    overloadedMethod _ = scriptDialogConfirmSetConfirmed---- method ScriptDialog::get_dialog_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ScriptDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "ScriptDialogType")--- throws : False--- Skip return : False--foreign import ccall "webkit_script_dialog_get_dialog_type" webkit_script_dialog_get_dialog_type :: -    Ptr ScriptDialog ->                     -- _obj : TInterface "WebKit2" "ScriptDialog"-    IO CUInt---scriptDialogGetDialogType ::-    (MonadIO m) =>-    ScriptDialog                            -- _obj-    -> m ScriptDialogType                   -- result-scriptDialogGetDialogType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_script_dialog_get_dialog_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data ScriptDialogGetDialogTypeMethodInfo-instance (signature ~ (m ScriptDialogType), MonadIO m) => MethodInfo ScriptDialogGetDialogTypeMethodInfo ScriptDialog signature where-    overloadedMethod _ = scriptDialogGetDialogType---- method ScriptDialog::get_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ScriptDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_script_dialog_get_message" webkit_script_dialog_get_message :: -    Ptr ScriptDialog ->                     -- _obj : TInterface "WebKit2" "ScriptDialog"-    IO CString---scriptDialogGetMessage ::-    (MonadIO m) =>-    ScriptDialog                            -- _obj-    -> m T.Text                             -- result-scriptDialogGetMessage _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_script_dialog_get_message _obj'-    checkUnexpectedReturnNULL "webkit_script_dialog_get_message" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data ScriptDialogGetMessageMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo ScriptDialogGetMessageMethodInfo ScriptDialog signature where-    overloadedMethod _ = scriptDialogGetMessage---- method ScriptDialog::prompt_get_default_text--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ScriptDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "webkit_script_dialog_prompt_get_default_text" webkit_script_dialog_prompt_get_default_text :: -    Ptr ScriptDialog ->                     -- _obj : TInterface "WebKit2" "ScriptDialog"-    IO CString---scriptDialogPromptGetDefaultText ::-    (MonadIO m) =>-    ScriptDialog                            -- _obj-    -> m T.Text                             -- result-scriptDialogPromptGetDefaultText _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_script_dialog_prompt_get_default_text _obj'-    checkUnexpectedReturnNULL "webkit_script_dialog_prompt_get_default_text" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data ScriptDialogPromptGetDefaultTextMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo ScriptDialogPromptGetDefaultTextMethodInfo ScriptDialog signature where-    overloadedMethod _ = scriptDialogPromptGetDefaultText---- method ScriptDialog::prompt_set_text--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "ScriptDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_script_dialog_prompt_set_text" webkit_script_dialog_prompt_set_text :: -    Ptr ScriptDialog ->                     -- _obj : TInterface "WebKit2" "ScriptDialog"-    CString ->                              -- text : TBasicType TUTF8-    IO ()---scriptDialogPromptSetText ::-    (MonadIO m) =>-    ScriptDialog                            -- _obj-    -> T.Text                               -- text-    -> m ()                                 -- result-scriptDialogPromptSetText _obj text = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    text' <- textToCString text-    webkit_script_dialog_prompt_set_text _obj' text'-    touchManagedPtr _obj-    freeMem text'-    return ()--data ScriptDialogPromptSetTextMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo ScriptDialogPromptSetTextMethodInfo ScriptDialog signature where-    overloadedMethod _ = scriptDialogPromptSetText--type family ResolveScriptDialogMethod (t :: Symbol) (o :: *) :: * where-    ResolveScriptDialogMethod "confirmSetConfirmed" o = ScriptDialogConfirmSetConfirmedMethodInfo-    ResolveScriptDialogMethod "promptGetDefaultText" o = ScriptDialogPromptGetDefaultTextMethodInfo-    ResolveScriptDialogMethod "promptSetText" o = ScriptDialogPromptSetTextMethodInfo-    ResolveScriptDialogMethod "getDialogType" o = ScriptDialogGetDialogTypeMethodInfo-    ResolveScriptDialogMethod "getMessage" o = ScriptDialogGetMessageMethodInfo-    ResolveScriptDialogMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveScriptDialogMethod t ScriptDialog, MethodInfo info ScriptDialog p) => IsLabelProxy t (ScriptDialog -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveScriptDialogMethod t ScriptDialog, MethodInfo info ScriptDialog p) => IsLabel t (ScriptDialog -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/WebKit2/Structs/ScriptDialog.hs-boot 
@@ -1,16 +0,0 @@-module GI.WebKit2.Structs.ScriptDialog where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ScriptDialog = ScriptDialog (ForeignPtr ScriptDialog)-instance BoxedObject ScriptDialog where-data ScriptDialogConfirmSetConfirmedMethodInfo-data ScriptDialogGetDialogTypeMethodInfo-data ScriptDialogGetMessageMethodInfo-data ScriptDialogPromptGetDefaultTextMethodInfo-data ScriptDialogPromptSetTextMethodInfo
− GI/WebKit2/Structs/UserScript.hs 
@@ -1,178 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.WebKit2.Structs.UserScript-    ( ---- * Exported types-    UserScript(..)                          ,-    noUserScript                            ,--- -- * Methods--- ** userScriptNew-    userScriptNew                           ,----- ** userScriptRef-    UserScriptRefMethodInfo                 ,-    userScriptRef                           ,----- ** userScriptUnref-    UserScriptUnrefMethodInfo               ,-    userScriptUnref                         ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks--newtype UserScript = UserScript (ForeignPtr UserScript)-foreign import ccall "webkit_user_script_get_type" c_webkit_user_script_get_type :: -    IO GType--instance BoxedObject UserScript where-    boxedType _ = c_webkit_user_script_get_type--noUserScript :: Maybe UserScript-noUserScript = Nothing---type instance AttributeList UserScript = UserScriptAttributeList-type UserScriptAttributeList = ('[ ] :: [(Symbol, *)])---- method UserScript::new--- method type : Constructor--- Args : [Arg {argCName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "injected_frames", argType = TInterface "WebKit2" "UserContentInjectedFrames", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "injection_time", argType = TInterface "WebKit2" "UserScriptInjectionTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "whitelist", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blacklist", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "UserScript")--- throws : False--- Skip return : False--foreign import ccall "webkit_user_script_new" webkit_user_script_new :: -    CString ->                              -- source : TBasicType TUTF8-    CUInt ->                                -- injected_frames : TInterface "WebKit2" "UserContentInjectedFrames"-    CUInt ->                                -- injection_time : TInterface "WebKit2" "UserScriptInjectionTime"-    Ptr CString ->                          -- whitelist : TCArray True (-1) (-1) (TBasicType TUTF8)-    Ptr CString ->                          -- blacklist : TCArray True (-1) (-1) (TBasicType TUTF8)-    IO (Ptr UserScript)---userScriptNew ::-    (MonadIO m) =>-    T.Text                                  -- source-    -> UserContentInjectedFrames            -- injectedFrames-    -> UserScriptInjectionTime              -- injectionTime-    -> Maybe ([T.Text])                     -- whitelist-    -> Maybe ([T.Text])                     -- blacklist-    -> m UserScript                         -- result-userScriptNew source injectedFrames injectionTime whitelist blacklist = liftIO $ do-    source' <- textToCString source-    let injectedFrames' = (fromIntegral . fromEnum) injectedFrames-    let injectionTime' = (fromIntegral . fromEnum) injectionTime-    maybeWhitelist <- case whitelist of-        Nothing -> return nullPtr-        Just jWhitelist -> do-            jWhitelist' <- packZeroTerminatedUTF8CArray jWhitelist-            return jWhitelist'-    maybeBlacklist <- case blacklist of-        Nothing -> return nullPtr-        Just jBlacklist -> do-            jBlacklist' <- packZeroTerminatedUTF8CArray jBlacklist-            return jBlacklist'-    result <- webkit_user_script_new source' injectedFrames' injectionTime' maybeWhitelist maybeBlacklist-    checkUnexpectedReturnNULL "webkit_user_script_new" result-    result' <- (wrapBoxed UserScript) result-    freeMem source'-    mapZeroTerminatedCArray freeMem maybeWhitelist-    freeMem maybeWhitelist-    mapZeroTerminatedCArray freeMem maybeBlacklist-    freeMem maybeBlacklist-    return result'---- method UserScript::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "UserScript", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "UserScript")--- throws : False--- Skip return : False--foreign import ccall "webkit_user_script_ref" webkit_user_script_ref :: -    Ptr UserScript ->                       -- _obj : TInterface "WebKit2" "UserScript"-    IO (Ptr UserScript)---userScriptRef ::-    (MonadIO m) =>-    UserScript                              -- _obj-    -> m UserScript                         -- result-userScriptRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_user_script_ref _obj'-    checkUnexpectedReturnNULL "webkit_user_script_ref" result-    result' <- (wrapBoxed UserScript) result-    touchManagedPtr _obj-    return result'--data UserScriptRefMethodInfo-instance (signature ~ (m UserScript), MonadIO m) => MethodInfo UserScriptRefMethodInfo UserScript signature where-    overloadedMethod _ = userScriptRef---- method UserScript::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "UserScript", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_user_script_unref" webkit_user_script_unref :: -    Ptr UserScript ->                       -- _obj : TInterface "WebKit2" "UserScript"-    IO ()---userScriptUnref ::-    (MonadIO m) =>-    UserScript                              -- _obj-    -> m ()                                 -- result-userScriptUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    webkit_user_script_unref _obj'-    touchManagedPtr _obj-    return ()--data UserScriptUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo UserScriptUnrefMethodInfo UserScript signature where-    overloadedMethod _ = userScriptUnref--type family ResolveUserScriptMethod (t :: Symbol) (o :: *) :: * where-    ResolveUserScriptMethod "ref" o = UserScriptRefMethodInfo-    ResolveUserScriptMethod "unref" o = UserScriptUnrefMethodInfo-    ResolveUserScriptMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveUserScriptMethod t UserScript, MethodInfo info UserScript p) => IsLabelProxy t (UserScript -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveUserScriptMethod t UserScript, MethodInfo info UserScript p) => IsLabel t (UserScript -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/WebKit2/Structs/UserScript.hs-boot 
@@ -1,13 +0,0 @@-module GI.WebKit2.Structs.UserScript where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype UserScript = UserScript (ForeignPtr UserScript)-instance BoxedObject UserScript where-data UserScriptRefMethodInfo-data UserScriptUnrefMethodInfo
− GI/WebKit2/Structs/UserStyleSheet.hs 
@@ -1,178 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.WebKit2.Structs.UserStyleSheet-    ( ---- * Exported types-    UserStyleSheet(..)                      ,-    noUserStyleSheet                        ,--- -- * Methods--- ** userStyleSheetNew-    userStyleSheetNew                       ,----- ** userStyleSheetRef-    UserStyleSheetRefMethodInfo             ,-    userStyleSheetRef                       ,----- ** userStyleSheetUnref-    UserStyleSheetUnrefMethodInfo           ,-    userStyleSheetUnref                     ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks--newtype UserStyleSheet = UserStyleSheet (ForeignPtr UserStyleSheet)-foreign import ccall "webkit_user_style_sheet_get_type" c_webkit_user_style_sheet_get_type :: -    IO GType--instance BoxedObject UserStyleSheet where-    boxedType _ = c_webkit_user_style_sheet_get_type--noUserStyleSheet :: Maybe UserStyleSheet-noUserStyleSheet = Nothing---type instance AttributeList UserStyleSheet = UserStyleSheetAttributeList-type UserStyleSheetAttributeList = ('[ ] :: [(Symbol, *)])---- method UserStyleSheet::new--- method type : Constructor--- Args : [Arg {argCName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "injected_frames", argType = TInterface "WebKit2" "UserContentInjectedFrames", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "level", argType = TInterface "WebKit2" "UserStyleLevel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "whitelist", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blacklist", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "UserStyleSheet")--- throws : False--- Skip return : False--foreign import ccall "webkit_user_style_sheet_new" webkit_user_style_sheet_new :: -    CString ->                              -- source : TBasicType TUTF8-    CUInt ->                                -- injected_frames : TInterface "WebKit2" "UserContentInjectedFrames"-    CUInt ->                                -- level : TInterface "WebKit2" "UserStyleLevel"-    Ptr CString ->                          -- whitelist : TCArray True (-1) (-1) (TBasicType TUTF8)-    Ptr CString ->                          -- blacklist : TCArray True (-1) (-1) (TBasicType TUTF8)-    IO (Ptr UserStyleSheet)---userStyleSheetNew ::-    (MonadIO m) =>-    T.Text                                  -- source-    -> UserContentInjectedFrames            -- injectedFrames-    -> UserStyleLevel                       -- level-    -> Maybe ([T.Text])                     -- whitelist-    -> Maybe ([T.Text])                     -- blacklist-    -> m UserStyleSheet                     -- result-userStyleSheetNew source injectedFrames level whitelist blacklist = liftIO $ do-    source' <- textToCString source-    let injectedFrames' = (fromIntegral . fromEnum) injectedFrames-    let level' = (fromIntegral . fromEnum) level-    maybeWhitelist <- case whitelist of-        Nothing -> return nullPtr-        Just jWhitelist -> do-            jWhitelist' <- packZeroTerminatedUTF8CArray jWhitelist-            return jWhitelist'-    maybeBlacklist <- case blacklist of-        Nothing -> return nullPtr-        Just jBlacklist -> do-            jBlacklist' <- packZeroTerminatedUTF8CArray jBlacklist-            return jBlacklist'-    result <- webkit_user_style_sheet_new source' injectedFrames' level' maybeWhitelist maybeBlacklist-    checkUnexpectedReturnNULL "webkit_user_style_sheet_new" result-    result' <- (wrapBoxed UserStyleSheet) result-    freeMem source'-    mapZeroTerminatedCArray freeMem maybeWhitelist-    freeMem maybeWhitelist-    mapZeroTerminatedCArray freeMem maybeBlacklist-    freeMem maybeBlacklist-    return result'---- method UserStyleSheet::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "UserStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "UserStyleSheet")--- throws : False--- Skip return : False--foreign import ccall "webkit_user_style_sheet_ref" webkit_user_style_sheet_ref :: -    Ptr UserStyleSheet ->                   -- _obj : TInterface "WebKit2" "UserStyleSheet"-    IO (Ptr UserStyleSheet)---userStyleSheetRef ::-    (MonadIO m) =>-    UserStyleSheet                          -- _obj-    -> m UserStyleSheet                     -- result-userStyleSheetRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_user_style_sheet_ref _obj'-    checkUnexpectedReturnNULL "webkit_user_style_sheet_ref" result-    result' <- (wrapBoxed UserStyleSheet) result-    touchManagedPtr _obj-    return result'--data UserStyleSheetRefMethodInfo-instance (signature ~ (m UserStyleSheet), MonadIO m) => MethodInfo UserStyleSheetRefMethodInfo UserStyleSheet signature where-    overloadedMethod _ = userStyleSheetRef---- method UserStyleSheet::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "UserStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_user_style_sheet_unref" webkit_user_style_sheet_unref :: -    Ptr UserStyleSheet ->                   -- _obj : TInterface "WebKit2" "UserStyleSheet"-    IO ()---userStyleSheetUnref ::-    (MonadIO m) =>-    UserStyleSheet                          -- _obj-    -> m ()                                 -- result-userStyleSheetUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    webkit_user_style_sheet_unref _obj'-    touchManagedPtr _obj-    return ()--data UserStyleSheetUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo UserStyleSheetUnrefMethodInfo UserStyleSheet signature where-    overloadedMethod _ = userStyleSheetUnref--type family ResolveUserStyleSheetMethod (t :: Symbol) (o :: *) :: * where-    ResolveUserStyleSheetMethod "ref" o = UserStyleSheetRefMethodInfo-    ResolveUserStyleSheetMethod "unref" o = UserStyleSheetUnrefMethodInfo-    ResolveUserStyleSheetMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveUserStyleSheetMethod t UserStyleSheet, MethodInfo info UserStyleSheet p) => IsLabelProxy t (UserStyleSheet -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveUserStyleSheetMethod t UserStyleSheet, MethodInfo info UserStyleSheet p) => IsLabel t (UserStyleSheet -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/WebKit2/Structs/UserStyleSheet.hs-boot 
@@ -1,13 +0,0 @@-module GI.WebKit2.Structs.UserStyleSheet where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype UserStyleSheet = UserStyleSheet (ForeignPtr UserStyleSheet)-instance BoxedObject UserStyleSheet where-data UserStyleSheetRefMethodInfo-data UserStyleSheetUnrefMethodInfo
− GI/WebKit2/Structs/WebViewSessionState.hs 
@@ -1,190 +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.WebKit2.Structs.WebViewSessionState-    ( ---- * Exported types-    WebViewSessionState(..)                 ,-    noWebViewSessionState                   ,--- -- * Methods--- ** webViewSessionStateNew-    webViewSessionStateNew                  ,----- ** webViewSessionStateRef-    WebViewSessionStateRefMethodInfo        ,-    webViewSessionStateRef                  ,----- ** webViewSessionStateSerialize-    WebViewSessionStateSerializeMethodInfo  ,-    webViewSessionStateSerialize            ,----- ** webViewSessionStateUnref-    WebViewSessionStateUnrefMethodInfo      ,-    webViewSessionStateUnref                ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.WebKit2.Types-import GI.WebKit2.Callbacks-import qualified GI.GLib as GLib--newtype WebViewSessionState = WebViewSessionState (ForeignPtr WebViewSessionState)-foreign import ccall "webkit_web_view_session_state_get_type" c_webkit_web_view_session_state_get_type :: -    IO GType--instance BoxedObject WebViewSessionState where-    boxedType _ = c_webkit_web_view_session_state_get_type--noWebViewSessionState :: Maybe WebViewSessionState-noWebViewSessionState = Nothing---type instance AttributeList WebViewSessionState = WebViewSessionStateAttributeList-type WebViewSessionStateAttributeList = ('[ ] :: [(Symbol, *)])---- method WebViewSessionState::new--- method type : Constructor--- Args : [Arg {argCName = "data", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "WebViewSessionState")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_session_state_new" webkit_web_view_session_state_new :: -    Ptr GLib.Bytes ->                       -- data : TInterface "GLib" "Bytes"-    IO (Ptr WebViewSessionState)---webViewSessionStateNew ::-    (MonadIO m) =>-    GLib.Bytes                              -- data_-    -> m WebViewSessionState                -- result-webViewSessionStateNew data_ = liftIO $ do-    let data_' = unsafeManagedPtrGetPtr data_-    result <- webkit_web_view_session_state_new data_'-    checkUnexpectedReturnNULL "webkit_web_view_session_state_new" result-    result' <- (wrapBoxed WebViewSessionState) result-    touchManagedPtr data_-    return result'---- method WebViewSessionState::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebViewSessionState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "WebKit2" "WebViewSessionState")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_session_state_ref" webkit_web_view_session_state_ref :: -    Ptr WebViewSessionState ->              -- _obj : TInterface "WebKit2" "WebViewSessionState"-    IO (Ptr WebViewSessionState)---webViewSessionStateRef ::-    (MonadIO m) =>-    WebViewSessionState                     -- _obj-    -> m WebViewSessionState                -- result-webViewSessionStateRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_web_view_session_state_ref _obj'-    checkUnexpectedReturnNULL "webkit_web_view_session_state_ref" result-    result' <- (wrapBoxed WebViewSessionState) result-    touchManagedPtr _obj-    return result'--data WebViewSessionStateRefMethodInfo-instance (signature ~ (m WebViewSessionState), MonadIO m) => MethodInfo WebViewSessionStateRefMethodInfo WebViewSessionState signature where-    overloadedMethod _ = webViewSessionStateRef---- method WebViewSessionState::serialize--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebViewSessionState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GLib" "Bytes")--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_session_state_serialize" webkit_web_view_session_state_serialize :: -    Ptr WebViewSessionState ->              -- _obj : TInterface "WebKit2" "WebViewSessionState"-    IO (Ptr GLib.Bytes)---webViewSessionStateSerialize ::-    (MonadIO m) =>-    WebViewSessionState                     -- _obj-    -> m GLib.Bytes                         -- result-webViewSessionStateSerialize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- webkit_web_view_session_state_serialize _obj'-    checkUnexpectedReturnNULL "webkit_web_view_session_state_serialize" result-    result' <- (wrapBoxed GLib.Bytes) result-    touchManagedPtr _obj-    return result'--data WebViewSessionStateSerializeMethodInfo-instance (signature ~ (m GLib.Bytes), MonadIO m) => MethodInfo WebViewSessionStateSerializeMethodInfo WebViewSessionState signature where-    overloadedMethod _ = webViewSessionStateSerialize---- method WebViewSessionState::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2" "WebViewSessionState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "webkit_web_view_session_state_unref" webkit_web_view_session_state_unref :: -    Ptr WebViewSessionState ->              -- _obj : TInterface "WebKit2" "WebViewSessionState"-    IO ()---webViewSessionStateUnref ::-    (MonadIO m) =>-    WebViewSessionState                     -- _obj-    -> m ()                                 -- result-webViewSessionStateUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    webkit_web_view_session_state_unref _obj'-    touchManagedPtr _obj-    return ()--data WebViewSessionStateUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo WebViewSessionStateUnrefMethodInfo WebViewSessionState signature where-    overloadedMethod _ = webViewSessionStateUnref--type family ResolveWebViewSessionStateMethod (t :: Symbol) (o :: *) :: * where-    ResolveWebViewSessionStateMethod "ref" o = WebViewSessionStateRefMethodInfo-    ResolveWebViewSessionStateMethod "serialize" o = WebViewSessionStateSerializeMethodInfo-    ResolveWebViewSessionStateMethod "unref" o = WebViewSessionStateUnrefMethodInfo-    ResolveWebViewSessionStateMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveWebViewSessionStateMethod t WebViewSessionState, MethodInfo info WebViewSessionState p) => IsLabelProxy t (WebViewSessionState -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveWebViewSessionStateMethod t WebViewSessionState, MethodInfo info WebViewSessionState p) => IsLabel t (WebViewSessionState -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/WebKit2/Structs/WebViewSessionState.hs-boot 
@@ -1,14 +0,0 @@-module GI.WebKit2.Structs.WebViewSessionState where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype WebViewSessionState = WebViewSessionState (ForeignPtr WebViewSessionState)-instance BoxedObject WebViewSessionState where-data WebViewSessionStateRefMethodInfo-data WebViewSessionStateSerializeMethodInfo-data WebViewSessionStateUnrefMethodInfo
− GI/WebKit2/Types.hs 
@@ -1,104 +0,0 @@-module GI.WebKit2.Types-    (     module GI.WebKit2.Interfaces.PermissionRequest,-    module GI.WebKit2.Objects.AuthenticationRequest,-    module GI.WebKit2.Objects.BackForwardList,-    module GI.WebKit2.Objects.BackForwardListItem,-    module GI.WebKit2.Objects.ColorChooserRequest,-    module GI.WebKit2.Objects.ContextMenu   ,-    module GI.WebKit2.Objects.ContextMenuItem,-    module GI.WebKit2.Objects.CookieManager ,-    module GI.WebKit2.Objects.Download      ,-    module GI.WebKit2.Objects.EditorState   ,-    module GI.WebKit2.Objects.FaviconDatabase,-    module GI.WebKit2.Objects.FileChooserRequest,-    module GI.WebKit2.Objects.FindController,-    module GI.WebKit2.Objects.FormSubmissionRequest,-    module GI.WebKit2.Objects.GeolocationPermissionRequest,-    module GI.WebKit2.Objects.HitTestResult ,-    module GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest,-    module GI.WebKit2.Objects.NavigationPolicyDecision,-    module GI.WebKit2.Objects.Notification  ,-    module GI.WebKit2.Objects.NotificationPermissionRequest,-    module GI.WebKit2.Objects.Plugin        ,-    module GI.WebKit2.Objects.PolicyDecision,-    module GI.WebKit2.Objects.PrintOperation,-    module GI.WebKit2.Objects.ResponsePolicyDecision,-    module GI.WebKit2.Objects.SecurityManager,-    module GI.WebKit2.Objects.Settings      ,-    module GI.WebKit2.Objects.URIRequest    ,-    module GI.WebKit2.Objects.URIResponse   ,-    module GI.WebKit2.Objects.URISchemeRequest,-    module GI.WebKit2.Objects.UserContentManager,-    module GI.WebKit2.Objects.UserMediaPermissionRequest,-    module GI.WebKit2.Objects.WebContext    ,-    module GI.WebKit2.Objects.WebInspector  ,-    module GI.WebKit2.Objects.WebResource   ,-    module GI.WebKit2.Objects.WebView       ,-    module GI.WebKit2.Objects.WebViewBase   ,-    module GI.WebKit2.Objects.WebsiteDataManager,-    module GI.WebKit2.Objects.WindowProperties,-    module GI.WebKit2.Structs.Credential    ,-    module GI.WebKit2.Structs.JavascriptResult,-    module GI.WebKit2.Structs.MimeInfo      ,-    module GI.WebKit2.Structs.NavigationAction,-    module GI.WebKit2.Structs.ScriptDialog  ,-    module GI.WebKit2.Structs.UserScript    ,-    module GI.WebKit2.Structs.UserStyleSheet,-    module GI.WebKit2.Structs.WebViewSessionState,-    module GI.WebKit2.Enums                 ,-    module GI.WebKit2.Flags                 ,---    ) where---import {-# SOURCE #-} GI.WebKit2.Interfaces.PermissionRequest-import {-# SOURCE #-} GI.WebKit2.Objects.AuthenticationRequest-import {-# SOURCE #-} GI.WebKit2.Objects.BackForwardList-import {-# SOURCE #-} GI.WebKit2.Objects.BackForwardListItem-import {-# SOURCE #-} GI.WebKit2.Objects.ColorChooserRequest-import {-# SOURCE #-} GI.WebKit2.Objects.ContextMenu-import {-# SOURCE #-} GI.WebKit2.Objects.ContextMenuItem-import {-# SOURCE #-} GI.WebKit2.Objects.CookieManager-import {-# SOURCE #-} GI.WebKit2.Objects.Download-import {-# SOURCE #-} GI.WebKit2.Objects.EditorState-import {-# SOURCE #-} GI.WebKit2.Objects.FaviconDatabase-import {-# SOURCE #-} GI.WebKit2.Objects.FileChooserRequest-import {-# SOURCE #-} GI.WebKit2.Objects.FindController-import {-# SOURCE #-} GI.WebKit2.Objects.FormSubmissionRequest-import {-# SOURCE #-} GI.WebKit2.Objects.GeolocationPermissionRequest-import {-# SOURCE #-} GI.WebKit2.Objects.HitTestResult-import {-# SOURCE #-} GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest-import {-# SOURCE #-} GI.WebKit2.Objects.NavigationPolicyDecision-import {-# SOURCE #-} GI.WebKit2.Objects.Notification-import {-# SOURCE #-} GI.WebKit2.Objects.NotificationPermissionRequest-import {-# SOURCE #-} GI.WebKit2.Objects.Plugin-import {-# SOURCE #-} GI.WebKit2.Objects.PolicyDecision-import {-# SOURCE #-} GI.WebKit2.Objects.PrintOperation-import {-# SOURCE #-} GI.WebKit2.Objects.ResponsePolicyDecision-import {-# SOURCE #-} GI.WebKit2.Objects.SecurityManager-import {-# SOURCE #-} GI.WebKit2.Objects.Settings-import {-# SOURCE #-} GI.WebKit2.Objects.URIRequest-import {-# SOURCE #-} GI.WebKit2.Objects.URIResponse-import {-# SOURCE #-} GI.WebKit2.Objects.URISchemeRequest-import {-# SOURCE #-} GI.WebKit2.Objects.UserContentManager-import {-# SOURCE #-} GI.WebKit2.Objects.UserMediaPermissionRequest-import {-# SOURCE #-} GI.WebKit2.Objects.WebContext-import {-# SOURCE #-} GI.WebKit2.Objects.WebInspector-import {-# SOURCE #-} GI.WebKit2.Objects.WebResource-import {-# SOURCE #-} GI.WebKit2.Objects.WebView-import {-# SOURCE #-} GI.WebKit2.Objects.WebViewBase-import {-# SOURCE #-} GI.WebKit2.Objects.WebsiteDataManager-import {-# SOURCE #-} GI.WebKit2.Objects.WindowProperties-import {-# SOURCE #-} GI.WebKit2.Structs.Credential-import {-# SOURCE #-} GI.WebKit2.Structs.JavascriptResult-import {-# SOURCE #-} GI.WebKit2.Structs.MimeInfo-import {-# SOURCE #-} GI.WebKit2.Structs.NavigationAction-import {-# SOURCE #-} GI.WebKit2.Structs.ScriptDialog-import {-# SOURCE #-} GI.WebKit2.Structs.UserScript-import {-# SOURCE #-} GI.WebKit2.Structs.UserStyleSheet-import {-# SOURCE #-} GI.WebKit2.Structs.WebViewSessionState--import GI.WebKit2.Enums-import GI.WebKit2.Flags-
Setup.hs view
@@ -1,3 +1,12 @@-#!/usr/bin/env runhaskell-import Distribution.Simple-main = defaultMain+{-# LANGUAGE OverloadedStrings #-}++import Distribution.Simple (defaultMainWithHooks)+import Data.GI.CodeGen.CabalHooks (simpleHaskellGIHooks)++main = defaultMainWithHooks (simpleHaskellGIHooks name version verbose+                             overridesFile outputDir)+    where name = "WebKit2"+          version = "4.0"+          verbose = False+          overridesFile = Just "WebKit2.overrides"+          outputDir = Nothing
+ WebKit2.overrides view
@@ -0,0 +1,5 @@+# PkgConfig names are slightly different to the GI namespaces+pkg-config-name JavaScriptCore javascriptcoregtk++# https://bugs.webkit.org/show_bug.cgi?id=152826+set-attr WebKit2/WebView/get_uri/@return-value nullable 1
gi-webkit2.cabal view
@@ -1,6 +1,5 @@--- Autogenerated, do not edit. name:               gi-webkit2-version:            0.2.12.15+version:            4.0.1 synopsis:           WebKit2 bindings description:        Bindings for WebKit2, autogenerated by haskell-gi. homepage:           https://github.com/haskell-gi/haskell-gi@@ -9,83 +8,35 @@ author:             Will Thompson, Iñaki García Etxebarria and Jonas Platte maintainer:         Iñaki García Etxebarria (garetxe@gmail.com) category:           Bindings-build-type:         Simple-cabal-version:      >=1.10+build-type:         Custom+cabal-version:      >= 1.24 +extra-source-files: WebKit2.overrides++custom-setup+  setup-depends: base >= 4.7,+                 Cabal >= 1.24,+                 haskell-gi >= 0.15+ library     default-language:   Haskell2010     default-extensions: NoImplicitPrelude, ScopedTypeVariables, CPP, OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts     other-extensions:   PatternSynonyms ViewPatterns     ghc-options:        -fno-warn-unused-imports -fno-warn-warnings-deprecations-    exposed-modules:    GI.WebKit2.Types-                        GI.WebKit2-                        GI.WebKit2.Callbacks-                        GI.WebKit2.Constants-                        GI.WebKit2.Enums-                        GI.WebKit2.Flags-                        GI.WebKit2.Functions-                        GI.WebKit2.Interfaces-                        GI.WebKit2.Interfaces.PermissionRequest-                        GI.WebKit2.Objects-                        GI.WebKit2.Objects.AuthenticationRequest-                        GI.WebKit2.Objects.BackForwardList-                        GI.WebKit2.Objects.BackForwardListItem-                        GI.WebKit2.Objects.ColorChooserRequest-                        GI.WebKit2.Objects.ContextMenu-                        GI.WebKit2.Objects.ContextMenuItem-                        GI.WebKit2.Objects.CookieManager-                        GI.WebKit2.Objects.Download-                        GI.WebKit2.Objects.EditorState-                        GI.WebKit2.Objects.FaviconDatabase-                        GI.WebKit2.Objects.FileChooserRequest-                        GI.WebKit2.Objects.FindController-                        GI.WebKit2.Objects.FormSubmissionRequest-                        GI.WebKit2.Objects.GeolocationPermissionRequest-                        GI.WebKit2.Objects.HitTestResult-                        GI.WebKit2.Objects.InstallMissingMediaPluginsPermissionRequest-                        GI.WebKit2.Objects.NavigationPolicyDecision-                        GI.WebKit2.Objects.Notification-                        GI.WebKit2.Objects.NotificationPermissionRequest-                        GI.WebKit2.Objects.Plugin-                        GI.WebKit2.Objects.PolicyDecision-                        GI.WebKit2.Objects.PrintOperation-                        GI.WebKit2.Objects.ResponsePolicyDecision-                        GI.WebKit2.Objects.SecurityManager-                        GI.WebKit2.Objects.Settings-                        GI.WebKit2.Objects.URIRequest-                        GI.WebKit2.Objects.URIResponse-                        GI.WebKit2.Objects.URISchemeRequest-                        GI.WebKit2.Objects.UserContentManager-                        GI.WebKit2.Objects.UserMediaPermissionRequest-                        GI.WebKit2.Objects.WebContext-                        GI.WebKit2.Objects.WebInspector-                        GI.WebKit2.Objects.WebResource-                        GI.WebKit2.Objects.WebView-                        GI.WebKit2.Objects.WebViewBase-                        GI.WebKit2.Objects.WebsiteDataManager-                        GI.WebKit2.Objects.WindowProperties-                        GI.WebKit2.Structs-                        GI.WebKit2.Structs.Credential-                        GI.WebKit2.Structs.JavascriptResult-                        GI.WebKit2.Structs.MimeInfo-                        GI.WebKit2.Structs.NavigationAction-                        GI.WebKit2.Structs.ScriptDialog-                        GI.WebKit2.Structs.UserScript-                        GI.WebKit2.Structs.UserStyleSheet-                        GI.WebKit2.Structs.WebViewSessionState-    pkgconfig-depends:  webkit2gtk-4.0 >= 2.12++    pkgconfig-depends:  webkit2gtk-4.0     build-depends: base >= 4.7 && <5,         haskell-gi-base >= 0.15 && < 1,-        gi-atk >= 0.2.18.15 && < 0.2.19,-        gi-glib >= 0.2.46.15 && < 0.2.47,-        gi-gobject >= 0.2.46.15 && < 0.2.47,-        gi-gdk >= 0.3.18.15 && < 0.3.19,-        gi-gio >= 0.2.46.15 && < 0.2.47,-        gi-gtk >= 0.3.18.15 && < 0.3.19,-        gi-javascriptcore >= 0.2.12.15 && < 0.2.13,-        gi-soup >= 0.2.52.15 && < 0.2.53,-        gi-cairo >= 0.1.14.15 && < 0.1.15,+        gi-atk == 2.0.*,+        gi-glib == 2.0.*,+        gi-gobject == 2.0.*,+        gi-gdk == 3.0.*,+        gi-gio == 2.0.*,+        gi-gtk == 3.0.*,+        gi-javascriptcore == 4.0.*,+        gi-soup == 2.4.*,+        gi-cairo == 1.0.*,         bytestring >= 0.10,         containers >= 0.5,         text >= 1.0,-        transformers >= 0.3+        transformers >= 0.5