#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2WebExtension.Structs.ConsoleMessage
(
ConsoleMessage(..) ,
noConsoleMessage ,
#if ENABLE_OVERLOADING
ConsoleMessageCopyMethodInfo ,
#endif
consoleMessageCopy ,
#if ENABLE_OVERLOADING
ConsoleMessageFreeMethodInfo ,
#endif
consoleMessageFree ,
#if ENABLE_OVERLOADING
ConsoleMessageGetLevelMethodInfo ,
#endif
consoleMessageGetLevel ,
#if ENABLE_OVERLOADING
ConsoleMessageGetLineMethodInfo ,
#endif
consoleMessageGetLine ,
#if ENABLE_OVERLOADING
ConsoleMessageGetSourceMethodInfo ,
#endif
consoleMessageGetSource ,
#if ENABLE_OVERLOADING
ConsoleMessageGetSourceIdMethodInfo ,
#endif
consoleMessageGetSourceId ,
#if ENABLE_OVERLOADING
ConsoleMessageGetTextMethodInfo ,
#endif
consoleMessageGetText ,
) 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 {-# SOURCE #-} qualified GI.WebKit2WebExtension.Enums as WebKit2WebExtension.Enums
newtype ConsoleMessage = ConsoleMessage (ManagedPtr ConsoleMessage)
foreign import ccall "webkit_console_message_get_type" c_webkit_console_message_get_type ::
IO GType
instance BoxedObject ConsoleMessage where
boxedType _ = c_webkit_console_message_get_type
noConsoleMessage :: Maybe ConsoleMessage
noConsoleMessage = Nothing
#if ENABLE_OVERLOADING
instance O.HasAttributeList ConsoleMessage
type instance O.AttributeList ConsoleMessage = ConsoleMessageAttributeList
type ConsoleMessageAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_console_message_copy" webkit_console_message_copy ::
Ptr ConsoleMessage ->
IO (Ptr ConsoleMessage)
consoleMessageCopy ::
(B.CallStack.HasCallStack, MonadIO m) =>
ConsoleMessage
-> m ConsoleMessage
consoleMessageCopy consoleMessage = liftIO $ do
consoleMessage' <- unsafeManagedPtrGetPtr consoleMessage
result <- webkit_console_message_copy consoleMessage'
checkUnexpectedReturnNULL "consoleMessageCopy" result
result' <- (wrapBoxed ConsoleMessage) result
touchManagedPtr consoleMessage
return result'
#if ENABLE_OVERLOADING
data ConsoleMessageCopyMethodInfo
instance (signature ~ (m ConsoleMessage), MonadIO m) => O.MethodInfo ConsoleMessageCopyMethodInfo ConsoleMessage signature where
overloadedMethod _ = consoleMessageCopy
#endif
foreign import ccall "webkit_console_message_free" webkit_console_message_free ::
Ptr ConsoleMessage ->
IO ()
consoleMessageFree ::
(B.CallStack.HasCallStack, MonadIO m) =>
ConsoleMessage
-> m ()
consoleMessageFree consoleMessage = liftIO $ do
consoleMessage' <- unsafeManagedPtrGetPtr consoleMessage
webkit_console_message_free consoleMessage'
touchManagedPtr consoleMessage
return ()
#if ENABLE_OVERLOADING
data ConsoleMessageFreeMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo ConsoleMessageFreeMethodInfo ConsoleMessage signature where
overloadedMethod _ = consoleMessageFree
#endif
foreign import ccall "webkit_console_message_get_level" webkit_console_message_get_level ::
Ptr ConsoleMessage ->
IO CUInt
consoleMessageGetLevel ::
(B.CallStack.HasCallStack, MonadIO m) =>
ConsoleMessage
-> m WebKit2WebExtension.Enums.ConsoleMessageLevel
consoleMessageGetLevel consoleMessage = liftIO $ do
consoleMessage' <- unsafeManagedPtrGetPtr consoleMessage
result <- webkit_console_message_get_level consoleMessage'
let result' = (toEnum . fromIntegral) result
touchManagedPtr consoleMessage
return result'
#if ENABLE_OVERLOADING
data ConsoleMessageGetLevelMethodInfo
instance (signature ~ (m WebKit2WebExtension.Enums.ConsoleMessageLevel), MonadIO m) => O.MethodInfo ConsoleMessageGetLevelMethodInfo ConsoleMessage signature where
overloadedMethod _ = consoleMessageGetLevel
#endif
foreign import ccall "webkit_console_message_get_line" webkit_console_message_get_line ::
Ptr ConsoleMessage ->
IO Word32
consoleMessageGetLine ::
(B.CallStack.HasCallStack, MonadIO m) =>
ConsoleMessage
-> m Word32
consoleMessageGetLine consoleMessage = liftIO $ do
consoleMessage' <- unsafeManagedPtrGetPtr consoleMessage
result <- webkit_console_message_get_line consoleMessage'
touchManagedPtr consoleMessage
return result
#if ENABLE_OVERLOADING
data ConsoleMessageGetLineMethodInfo
instance (signature ~ (m Word32), MonadIO m) => O.MethodInfo ConsoleMessageGetLineMethodInfo ConsoleMessage signature where
overloadedMethod _ = consoleMessageGetLine
#endif
foreign import ccall "webkit_console_message_get_source" webkit_console_message_get_source ::
Ptr ConsoleMessage ->
IO CUInt
consoleMessageGetSource ::
(B.CallStack.HasCallStack, MonadIO m) =>
ConsoleMessage
-> m WebKit2WebExtension.Enums.ConsoleMessageSource
consoleMessageGetSource consoleMessage = liftIO $ do
consoleMessage' <- unsafeManagedPtrGetPtr consoleMessage
result <- webkit_console_message_get_source consoleMessage'
let result' = (toEnum . fromIntegral) result
touchManagedPtr consoleMessage
return result'
#if ENABLE_OVERLOADING
data ConsoleMessageGetSourceMethodInfo
instance (signature ~ (m WebKit2WebExtension.Enums.ConsoleMessageSource), MonadIO m) => O.MethodInfo ConsoleMessageGetSourceMethodInfo ConsoleMessage signature where
overloadedMethod _ = consoleMessageGetSource
#endif
foreign import ccall "webkit_console_message_get_source_id" webkit_console_message_get_source_id ::
Ptr ConsoleMessage ->
IO CString
consoleMessageGetSourceId ::
(B.CallStack.HasCallStack, MonadIO m) =>
ConsoleMessage
-> m T.Text
consoleMessageGetSourceId consoleMessage = liftIO $ do
consoleMessage' <- unsafeManagedPtrGetPtr consoleMessage
result <- webkit_console_message_get_source_id consoleMessage'
checkUnexpectedReturnNULL "consoleMessageGetSourceId" result
result' <- cstringToText result
touchManagedPtr consoleMessage
return result'
#if ENABLE_OVERLOADING
data ConsoleMessageGetSourceIdMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo ConsoleMessageGetSourceIdMethodInfo ConsoleMessage signature where
overloadedMethod _ = consoleMessageGetSourceId
#endif
foreign import ccall "webkit_console_message_get_text" webkit_console_message_get_text ::
Ptr ConsoleMessage ->
IO CString
consoleMessageGetText ::
(B.CallStack.HasCallStack, MonadIO m) =>
ConsoleMessage
-> m T.Text
consoleMessageGetText consoleMessage = liftIO $ do
consoleMessage' <- unsafeManagedPtrGetPtr consoleMessage
result <- webkit_console_message_get_text consoleMessage'
checkUnexpectedReturnNULL "consoleMessageGetText" result
result' <- cstringToText result
touchManagedPtr consoleMessage
return result'
#if ENABLE_OVERLOADING
data ConsoleMessageGetTextMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo ConsoleMessageGetTextMethodInfo ConsoleMessage signature where
overloadedMethod _ = consoleMessageGetText
#endif
#if ENABLE_OVERLOADING
type family ResolveConsoleMessageMethod (t :: Symbol) (o :: *) :: * where
ResolveConsoleMessageMethod "copy" o = ConsoleMessageCopyMethodInfo
ResolveConsoleMessageMethod "free" o = ConsoleMessageFreeMethodInfo
ResolveConsoleMessageMethod "getLevel" o = ConsoleMessageGetLevelMethodInfo
ResolveConsoleMessageMethod "getLine" o = ConsoleMessageGetLineMethodInfo
ResolveConsoleMessageMethod "getSource" o = ConsoleMessageGetSourceMethodInfo
ResolveConsoleMessageMethod "getSourceId" o = ConsoleMessageGetSourceIdMethodInfo
ResolveConsoleMessageMethod "getText" o = ConsoleMessageGetTextMethodInfo
ResolveConsoleMessageMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveConsoleMessageMethod t ConsoleMessage, O.MethodInfo info ConsoleMessage p) => OL.IsLabel t (ConsoleMessage -> 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