#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2.Structs.JavascriptResult
(
JavascriptResult(..) ,
noJavascriptResult ,
#if ENABLE_OVERLOADING
JavascriptResultGetJsValueMethodInfo ,
#endif
javascriptResultGetJsValue ,
#if ENABLE_OVERLOADING
JavascriptResultRefMethodInfo ,
#endif
javascriptResultRef ,
#if ENABLE_OVERLOADING
JavascriptResultUnrefMethodInfo ,
#endif
javascriptResultUnref ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.JavaScriptCore.Objects.Value as JavaScriptCore.Value
newtype JavascriptResult = JavascriptResult (ManagedPtr 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
#if ENABLE_OVERLOADING
instance O.HasAttributeList JavascriptResult
type instance O.AttributeList JavascriptResult = JavascriptResultAttributeList
type JavascriptResultAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_javascript_result_get_js_value" webkit_javascript_result_get_js_value ::
Ptr JavascriptResult ->
IO (Ptr JavaScriptCore.Value.Value)
javascriptResultGetJsValue ::
(B.CallStack.HasCallStack, MonadIO m) =>
JavascriptResult
-> m JavaScriptCore.Value.Value
javascriptResultGetJsValue jsResult = liftIO $ do
jsResult' <- unsafeManagedPtrGetPtr jsResult
result <- webkit_javascript_result_get_js_value jsResult'
checkUnexpectedReturnNULL "javascriptResultGetJsValue" result
result' <- (newObject JavaScriptCore.Value.Value) result
touchManagedPtr jsResult
return result'
#if ENABLE_OVERLOADING
data JavascriptResultGetJsValueMethodInfo
instance (signature ~ (m JavaScriptCore.Value.Value), MonadIO m) => O.MethodInfo JavascriptResultGetJsValueMethodInfo JavascriptResult signature where
overloadedMethod _ = javascriptResultGetJsValue
#endif
foreign import ccall "webkit_javascript_result_ref" webkit_javascript_result_ref ::
Ptr JavascriptResult ->
IO (Ptr JavascriptResult)
javascriptResultRef ::
(B.CallStack.HasCallStack, MonadIO m) =>
JavascriptResult
-> m JavascriptResult
javascriptResultRef jsResult = liftIO $ do
jsResult' <- unsafeManagedPtrGetPtr jsResult
result <- webkit_javascript_result_ref jsResult'
checkUnexpectedReturnNULL "javascriptResultRef" result
result' <- (wrapBoxed JavascriptResult) result
touchManagedPtr jsResult
return result'
#if ENABLE_OVERLOADING
data JavascriptResultRefMethodInfo
instance (signature ~ (m JavascriptResult), MonadIO m) => O.MethodInfo JavascriptResultRefMethodInfo JavascriptResult signature where
overloadedMethod _ = javascriptResultRef
#endif
foreign import ccall "webkit_javascript_result_unref" webkit_javascript_result_unref ::
Ptr JavascriptResult ->
IO ()
javascriptResultUnref ::
(B.CallStack.HasCallStack, MonadIO m) =>
JavascriptResult
-> m ()
javascriptResultUnref jsResult = liftIO $ do
jsResult' <- unsafeManagedPtrGetPtr jsResult
webkit_javascript_result_unref jsResult'
touchManagedPtr jsResult
return ()
#if ENABLE_OVERLOADING
data JavascriptResultUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo JavascriptResultUnrefMethodInfo JavascriptResult signature where
overloadedMethod _ = javascriptResultUnref
#endif
#if ENABLE_OVERLOADING
type family ResolveJavascriptResultMethod (t :: Symbol) (o :: *) :: * where
ResolveJavascriptResultMethod "ref" o = JavascriptResultRefMethodInfo
ResolveJavascriptResultMethod "unref" o = JavascriptResultUnrefMethodInfo
ResolveJavascriptResultMethod "getJsValue" o = JavascriptResultGetJsValueMethodInfo
ResolveJavascriptResultMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveJavascriptResultMethod t JavascriptResult, O.MethodInfo info JavascriptResult p) => OL.IsLabel t (JavascriptResult -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif