{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2.Objects.FormSubmissionRequest
(
FormSubmissionRequest(..) ,
IsFormSubmissionRequest ,
toFormSubmissionRequest ,
#if defined(ENABLE_OVERLOADING)
ResolveFormSubmissionRequestMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
FormSubmissionRequestGetTextFieldsMethodInfo,
#endif
formSubmissionRequestGetTextFields ,
#if defined(ENABLE_OVERLOADING)
FormSubmissionRequestListTextFieldsMethodInfo,
#endif
formSubmissionRequestListTextFields ,
#if defined(ENABLE_OVERLOADING)
FormSubmissionRequestSubmitMethodInfo ,
#endif
formSubmissionRequestSubmit ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
newtype FormSubmissionRequest = FormSubmissionRequest (SP.ManagedPtr FormSubmissionRequest)
deriving (FormSubmissionRequest -> FormSubmissionRequest -> Bool
(FormSubmissionRequest -> FormSubmissionRequest -> Bool)
-> (FormSubmissionRequest -> FormSubmissionRequest -> Bool)
-> Eq FormSubmissionRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FormSubmissionRequest -> FormSubmissionRequest -> Bool
$c/= :: FormSubmissionRequest -> FormSubmissionRequest -> Bool
== :: FormSubmissionRequest -> FormSubmissionRequest -> Bool
$c== :: FormSubmissionRequest -> FormSubmissionRequest -> Bool
Eq)
instance SP.ManagedPtrNewtype FormSubmissionRequest where
toManagedPtr :: FormSubmissionRequest -> ManagedPtr FormSubmissionRequest
toManagedPtr (FormSubmissionRequest ManagedPtr FormSubmissionRequest
p) = ManagedPtr FormSubmissionRequest
p
foreign import ccall "webkit_form_submission_request_get_type"
c_webkit_form_submission_request_get_type :: IO B.Types.GType
instance B.Types.TypedObject FormSubmissionRequest where
glibType :: IO GType
glibType = IO GType
c_webkit_form_submission_request_get_type
instance B.Types.GObject FormSubmissionRequest
class (SP.GObject o, O.IsDescendantOf FormSubmissionRequest o) => IsFormSubmissionRequest o
instance (SP.GObject o, O.IsDescendantOf FormSubmissionRequest o) => IsFormSubmissionRequest o
instance O.HasParentTypes FormSubmissionRequest
type instance O.ParentTypes FormSubmissionRequest = '[GObject.Object.Object]
toFormSubmissionRequest :: (MIO.MonadIO m, IsFormSubmissionRequest o) => o -> m FormSubmissionRequest
toFormSubmissionRequest :: forall (m :: * -> *) o.
(MonadIO m, IsFormSubmissionRequest o) =>
o -> m FormSubmissionRequest
toFormSubmissionRequest = IO FormSubmissionRequest -> m FormSubmissionRequest
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO FormSubmissionRequest -> m FormSubmissionRequest)
-> (o -> IO FormSubmissionRequest) -> o -> m FormSubmissionRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr FormSubmissionRequest -> FormSubmissionRequest)
-> o -> IO FormSubmissionRequest
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr FormSubmissionRequest -> FormSubmissionRequest
FormSubmissionRequest
instance B.GValue.IsGValue (Maybe FormSubmissionRequest) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_form_submission_request_get_type
gvalueSet_ :: Ptr GValue -> Maybe FormSubmissionRequest -> IO ()
gvalueSet_ Ptr GValue
gv Maybe FormSubmissionRequest
P.Nothing = Ptr GValue -> Ptr FormSubmissionRequest -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr FormSubmissionRequest
forall a. Ptr a
FP.nullPtr :: FP.Ptr FormSubmissionRequest)
gvalueSet_ Ptr GValue
gv (P.Just FormSubmissionRequest
obj) = FormSubmissionRequest
-> (Ptr FormSubmissionRequest -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr FormSubmissionRequest
obj (Ptr GValue -> Ptr FormSubmissionRequest -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe FormSubmissionRequest)
gvalueGet_ Ptr GValue
gv = do
Ptr FormSubmissionRequest
ptr <- Ptr GValue -> IO (Ptr FormSubmissionRequest)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr FormSubmissionRequest)
if Ptr FormSubmissionRequest
ptr Ptr FormSubmissionRequest -> Ptr FormSubmissionRequest -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr FormSubmissionRequest
forall a. Ptr a
FP.nullPtr
then FormSubmissionRequest -> Maybe FormSubmissionRequest
forall a. a -> Maybe a
P.Just (FormSubmissionRequest -> Maybe FormSubmissionRequest)
-> IO FormSubmissionRequest -> IO (Maybe FormSubmissionRequest)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr FormSubmissionRequest -> FormSubmissionRequest)
-> Ptr FormSubmissionRequest -> IO FormSubmissionRequest
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr FormSubmissionRequest -> FormSubmissionRequest
FormSubmissionRequest Ptr FormSubmissionRequest
ptr
else Maybe FormSubmissionRequest -> IO (Maybe FormSubmissionRequest)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe FormSubmissionRequest
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveFormSubmissionRequestMethod (t :: Symbol) (o :: *) :: * where
ResolveFormSubmissionRequestMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveFormSubmissionRequestMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveFormSubmissionRequestMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveFormSubmissionRequestMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveFormSubmissionRequestMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveFormSubmissionRequestMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveFormSubmissionRequestMethod "listTextFields" o = FormSubmissionRequestListTextFieldsMethodInfo
ResolveFormSubmissionRequestMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveFormSubmissionRequestMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveFormSubmissionRequestMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveFormSubmissionRequestMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveFormSubmissionRequestMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveFormSubmissionRequestMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveFormSubmissionRequestMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveFormSubmissionRequestMethod "submit" o = FormSubmissionRequestSubmitMethodInfo
ResolveFormSubmissionRequestMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveFormSubmissionRequestMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveFormSubmissionRequestMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveFormSubmissionRequestMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveFormSubmissionRequestMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveFormSubmissionRequestMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveFormSubmissionRequestMethod "getTextFields" o = FormSubmissionRequestGetTextFieldsMethodInfo
ResolveFormSubmissionRequestMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveFormSubmissionRequestMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveFormSubmissionRequestMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveFormSubmissionRequestMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveFormSubmissionRequestMethod t FormSubmissionRequest, O.OverloadedMethod info FormSubmissionRequest p) => OL.IsLabel t (FormSubmissionRequest -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveFormSubmissionRequestMethod t FormSubmissionRequest, O.OverloadedMethod info FormSubmissionRequest p, R.HasField t FormSubmissionRequest p) => R.HasField t FormSubmissionRequest p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveFormSubmissionRequestMethod t FormSubmissionRequest, O.OverloadedMethodInfo info FormSubmissionRequest) => OL.IsLabel t (O.MethodProxy info FormSubmissionRequest) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList FormSubmissionRequest
type instance O.AttributeList FormSubmissionRequest = FormSubmissionRequestAttributeList
type FormSubmissionRequestAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList FormSubmissionRequest = FormSubmissionRequestSignalList
type FormSubmissionRequestSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_form_submission_request_get_text_fields" webkit_form_submission_request_get_text_fields ::
Ptr FormSubmissionRequest ->
IO (Ptr (GHashTable (Ptr ()) (Ptr ())))
{-# DEPRECATED formSubmissionRequestGetTextFields ["(Since version 2.20.)","Use 'GI.WebKit2.Objects.FormSubmissionRequest.formSubmissionRequestListTextFields' instead."] #-}
formSubmissionRequestGetTextFields ::
(B.CallStack.HasCallStack, MonadIO m, IsFormSubmissionRequest a) =>
a
-> m (Maybe (Map.Map (Ptr ()) (Ptr ())))
formSubmissionRequestGetTextFields :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFormSubmissionRequest a) =>
a -> m (Maybe (Map (Ptr ()) (Ptr ())))
formSubmissionRequestGetTextFields a
request = IO (Maybe (Map (Ptr ()) (Ptr ())))
-> m (Maybe (Map (Ptr ()) (Ptr ())))
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe (Map (Ptr ()) (Ptr ())))
-> m (Maybe (Map (Ptr ()) (Ptr ()))))
-> IO (Maybe (Map (Ptr ()) (Ptr ())))
-> m (Maybe (Map (Ptr ()) (Ptr ())))
forall a b. (a -> b) -> a -> b
$ do
Ptr FormSubmissionRequest
request' <- a -> IO (Ptr FormSubmissionRequest)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
request
Ptr (GHashTable (Ptr ()) (Ptr ()))
result <- Ptr FormSubmissionRequest
-> IO (Ptr (GHashTable (Ptr ()) (Ptr ())))
webkit_form_submission_request_get_text_fields Ptr FormSubmissionRequest
request'
Maybe (Map (Ptr ()) (Ptr ()))
maybeResult <- Ptr (GHashTable (Ptr ()) (Ptr ()))
-> (Ptr (GHashTable (Ptr ()) (Ptr ()))
-> IO (Map (Ptr ()) (Ptr ())))
-> IO (Maybe (Map (Ptr ()) (Ptr ())))
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr (GHashTable (Ptr ()) (Ptr ()))
result ((Ptr (GHashTable (Ptr ()) (Ptr ())) -> IO (Map (Ptr ()) (Ptr ())))
-> IO (Maybe (Map (Ptr ()) (Ptr ()))))
-> (Ptr (GHashTable (Ptr ()) (Ptr ()))
-> IO (Map (Ptr ()) (Ptr ())))
-> IO (Maybe (Map (Ptr ()) (Ptr ())))
forall a b. (a -> b) -> a -> b
$ \Ptr (GHashTable (Ptr ()) (Ptr ()))
result' -> do
[(PtrWrapped (Ptr ()), PtrWrapped (Ptr ()))]
result'' <- Ptr (GHashTable (Ptr ()) (Ptr ()))
-> IO [(PtrWrapped (Ptr ()), PtrWrapped (Ptr ()))]
forall a b.
Ptr (GHashTable a b) -> IO [(PtrWrapped a, PtrWrapped b)]
unpackGHashTable Ptr (GHashTable (Ptr ()) (Ptr ()))
result'
let result''' :: [(Ptr (), PtrWrapped (Ptr ()))]
result''' = (PtrWrapped (Ptr ()) -> Ptr ())
-> [(PtrWrapped (Ptr ()), PtrWrapped (Ptr ()))]
-> [(Ptr (), PtrWrapped (Ptr ()))]
forall a c b. (a -> c) -> [(a, b)] -> [(c, b)]
mapFirst PtrWrapped (Ptr ()) -> Ptr ()
forall a. PtrWrapped (Ptr a) -> Ptr a
ptrUnpackPtr [(PtrWrapped (Ptr ()), PtrWrapped (Ptr ()))]
result''
let result'''' :: [(Ptr (), Ptr ())]
result'''' = (PtrWrapped (Ptr ()) -> Ptr ())
-> [(Ptr (), PtrWrapped (Ptr ()))] -> [(Ptr (), Ptr ())]
forall b c a. (b -> c) -> [(a, b)] -> [(a, c)]
mapSecond PtrWrapped (Ptr ()) -> Ptr ()
forall a. PtrWrapped (Ptr a) -> Ptr a
ptrUnpackPtr [(Ptr (), PtrWrapped (Ptr ()))]
result'''
let result''''' :: Map (Ptr ()) (Ptr ())
result''''' = [(Ptr (), Ptr ())] -> Map (Ptr ()) (Ptr ())
forall k a. Ord k => [(k, a)] -> Map k a
Map.fromList [(Ptr (), Ptr ())]
result''''
Map (Ptr ()) (Ptr ()) -> IO (Map (Ptr ()) (Ptr ()))
forall (m :: * -> *) a. Monad m => a -> m a
return Map (Ptr ()) (Ptr ())
result'''''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
request
Maybe (Map (Ptr ()) (Ptr ())) -> IO (Maybe (Map (Ptr ()) (Ptr ())))
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe (Map (Ptr ()) (Ptr ()))
maybeResult
#if defined(ENABLE_OVERLOADING)
data FormSubmissionRequestGetTextFieldsMethodInfo
instance (signature ~ (m (Maybe (Map.Map (Ptr ()) (Ptr ())))), MonadIO m, IsFormSubmissionRequest a) => O.OverloadedMethod FormSubmissionRequestGetTextFieldsMethodInfo a signature where
overloadedMethod = formSubmissionRequestGetTextFields
instance O.OverloadedMethodInfo FormSubmissionRequestGetTextFieldsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.FormSubmissionRequest.formSubmissionRequestGetTextFields",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-FormSubmissionRequest.html#v:formSubmissionRequestGetTextFields"
}
#endif
foreign import ccall "webkit_form_submission_request_list_text_fields" webkit_form_submission_request_list_text_fields ::
Ptr FormSubmissionRequest ->
Ptr (Ptr (GPtrArray CString)) ->
Ptr (Ptr (GPtrArray CString)) ->
IO CInt
formSubmissionRequestListTextFields ::
(B.CallStack.HasCallStack, MonadIO m, IsFormSubmissionRequest a) =>
a
-> m ((Bool, [T.Text], [T.Text]))
formSubmissionRequestListTextFields :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFormSubmissionRequest a) =>
a -> m (Bool, [Text], [Text])
formSubmissionRequestListTextFields a
request = IO (Bool, [Text], [Text]) -> m (Bool, [Text], [Text])
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, [Text], [Text]) -> m (Bool, [Text], [Text]))
-> IO (Bool, [Text], [Text]) -> m (Bool, [Text], [Text])
forall a b. (a -> b) -> a -> b
$ do
Ptr FormSubmissionRequest
request' <- a -> IO (Ptr FormSubmissionRequest)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
request
Ptr (Ptr (GPtrArray CString))
fieldNames <- IO (Ptr (Ptr (GPtrArray CString)))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (Ptr (GPtrArray CString)))
Ptr (Ptr (GPtrArray CString))
fieldValues <- IO (Ptr (Ptr (GPtrArray CString)))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (Ptr (GPtrArray CString)))
CInt
result <- Ptr FormSubmissionRequest
-> Ptr (Ptr (GPtrArray CString))
-> Ptr (Ptr (GPtrArray CString))
-> IO CInt
webkit_form_submission_request_list_text_fields Ptr FormSubmissionRequest
request' Ptr (Ptr (GPtrArray CString))
fieldNames Ptr (Ptr (GPtrArray CString))
fieldValues
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Ptr (GPtrArray CString)
fieldNames' <- Ptr (Ptr (GPtrArray CString)) -> IO (Ptr (GPtrArray CString))
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr (GPtrArray CString))
fieldNames
[CString]
fieldNames'' <- Ptr (GPtrArray CString) -> IO [CString]
forall a. Ptr (GPtrArray (Ptr a)) -> IO [Ptr a]
unpackGPtrArray Ptr (GPtrArray CString)
fieldNames'
[Text]
fieldNames''' <- (CString -> IO Text) -> [CString] -> IO [Text]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText [CString]
fieldNames''
Ptr (GPtrArray CString)
fieldValues' <- Ptr (Ptr (GPtrArray CString)) -> IO (Ptr (GPtrArray CString))
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr (GPtrArray CString))
fieldValues
[CString]
fieldValues'' <- Ptr (GPtrArray CString) -> IO [CString]
forall a. Ptr (GPtrArray (Ptr a)) -> IO [Ptr a]
unpackGPtrArray Ptr (GPtrArray CString)
fieldValues'
[Text]
fieldValues''' <- (CString -> IO Text) -> [CString] -> IO [Text]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText [CString]
fieldValues''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
request
Ptr (Ptr (GPtrArray CString)) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr (GPtrArray CString))
fieldNames
Ptr (Ptr (GPtrArray CString)) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr (GPtrArray CString))
fieldValues
(Bool, [Text], [Text]) -> IO (Bool, [Text], [Text])
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', [Text]
fieldNames''', [Text]
fieldValues''')
#if defined(ENABLE_OVERLOADING)
data FormSubmissionRequestListTextFieldsMethodInfo
instance (signature ~ (m ((Bool, [T.Text], [T.Text]))), MonadIO m, IsFormSubmissionRequest a) => O.OverloadedMethod FormSubmissionRequestListTextFieldsMethodInfo a signature where
overloadedMethod = formSubmissionRequestListTextFields
instance O.OverloadedMethodInfo FormSubmissionRequestListTextFieldsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.FormSubmissionRequest.formSubmissionRequestListTextFields",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-FormSubmissionRequest.html#v:formSubmissionRequestListTextFields"
}
#endif
foreign import ccall "webkit_form_submission_request_submit" webkit_form_submission_request_submit ::
Ptr FormSubmissionRequest ->
IO ()
formSubmissionRequestSubmit ::
(B.CallStack.HasCallStack, MonadIO m, IsFormSubmissionRequest a) =>
a
-> m ()
formSubmissionRequestSubmit :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFormSubmissionRequest a) =>
a -> m ()
formSubmissionRequestSubmit a
request = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr FormSubmissionRequest
request' <- a -> IO (Ptr FormSubmissionRequest)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
request
Ptr FormSubmissionRequest -> IO ()
webkit_form_submission_request_submit Ptr FormSubmissionRequest
request'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
request
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data FormSubmissionRequestSubmitMethodInfo
instance (signature ~ (m ()), MonadIO m, IsFormSubmissionRequest a) => O.OverloadedMethod FormSubmissionRequestSubmitMethodInfo a signature where
overloadedMethod = formSubmissionRequestSubmit
instance O.OverloadedMethodInfo FormSubmissionRequestSubmitMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Objects.FormSubmissionRequest.formSubmissionRequestSubmit",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Objects-FormSubmissionRequest.html#v:formSubmissionRequestSubmit"
}
#endif