#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2.Structs.UserContentFilter
(
UserContentFilter(..) ,
noUserContentFilter ,
#if ENABLE_OVERLOADING
UserContentFilterGetIdentifierMethodInfo,
#endif
userContentFilterGetIdentifier ,
#if ENABLE_OVERLOADING
UserContentFilterRefMethodInfo ,
#endif
userContentFilterRef ,
#if ENABLE_OVERLOADING
UserContentFilterUnrefMethodInfo ,
#endif
userContentFilterUnref ,
) 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
newtype UserContentFilter = UserContentFilter (ManagedPtr UserContentFilter)
foreign import ccall "webkit_user_content_filter_get_type" c_webkit_user_content_filter_get_type ::
IO GType
instance BoxedObject UserContentFilter where
boxedType _ = c_webkit_user_content_filter_get_type
noUserContentFilter :: Maybe UserContentFilter
noUserContentFilter = Nothing
#if ENABLE_OVERLOADING
instance O.HasAttributeList UserContentFilter
type instance O.AttributeList UserContentFilter = UserContentFilterAttributeList
type UserContentFilterAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_user_content_filter_get_identifier" webkit_user_content_filter_get_identifier ::
Ptr UserContentFilter ->
IO CString
userContentFilterGetIdentifier ::
(B.CallStack.HasCallStack, MonadIO m) =>
UserContentFilter
-> m T.Text
userContentFilterGetIdentifier userContentFilter = liftIO $ do
userContentFilter' <- unsafeManagedPtrGetPtr userContentFilter
result <- webkit_user_content_filter_get_identifier userContentFilter'
checkUnexpectedReturnNULL "userContentFilterGetIdentifier" result
result' <- cstringToText result
touchManagedPtr userContentFilter
return result'
#if ENABLE_OVERLOADING
data UserContentFilterGetIdentifierMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo UserContentFilterGetIdentifierMethodInfo UserContentFilter signature where
overloadedMethod _ = userContentFilterGetIdentifier
#endif
foreign import ccall "webkit_user_content_filter_ref" webkit_user_content_filter_ref ::
Ptr UserContentFilter ->
IO (Ptr UserContentFilter)
userContentFilterRef ::
(B.CallStack.HasCallStack, MonadIO m) =>
UserContentFilter
-> m UserContentFilter
userContentFilterRef userContentFilter = liftIO $ do
userContentFilter' <- unsafeManagedPtrGetPtr userContentFilter
result <- webkit_user_content_filter_ref userContentFilter'
checkUnexpectedReturnNULL "userContentFilterRef" result
result' <- (wrapBoxed UserContentFilter) result
touchManagedPtr userContentFilter
return result'
#if ENABLE_OVERLOADING
data UserContentFilterRefMethodInfo
instance (signature ~ (m UserContentFilter), MonadIO m) => O.MethodInfo UserContentFilterRefMethodInfo UserContentFilter signature where
overloadedMethod _ = userContentFilterRef
#endif
foreign import ccall "webkit_user_content_filter_unref" webkit_user_content_filter_unref ::
Ptr UserContentFilter ->
IO ()
userContentFilterUnref ::
(B.CallStack.HasCallStack, MonadIO m) =>
UserContentFilter
-> m ()
userContentFilterUnref userContentFilter = liftIO $ do
userContentFilter' <- unsafeManagedPtrGetPtr userContentFilter
webkit_user_content_filter_unref userContentFilter'
touchManagedPtr userContentFilter
return ()
#if ENABLE_OVERLOADING
data UserContentFilterUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo UserContentFilterUnrefMethodInfo UserContentFilter signature where
overloadedMethod _ = userContentFilterUnref
#endif
#if ENABLE_OVERLOADING
type family ResolveUserContentFilterMethod (t :: Symbol) (o :: *) :: * where
ResolveUserContentFilterMethod "ref" o = UserContentFilterRefMethodInfo
ResolveUserContentFilterMethod "unref" o = UserContentFilterUnrefMethodInfo
ResolveUserContentFilterMethod "getIdentifier" o = UserContentFilterGetIdentifierMethodInfo
ResolveUserContentFilterMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveUserContentFilterMethod t UserContentFilter, O.MethodInfo info UserContentFilter p) => OL.IsLabel t (UserContentFilter -> 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