#define ENABLE_OVERLOADING \
(!defined(__HADDOCK_VERSION__))
module GI.GLib.Structs.MarkupParseContext
(
MarkupParseContext(..) ,
noMarkupParseContext ,
#if ENABLE_OVERLOADING
MarkupParseContextEndParseMethodInfo ,
#endif
markupParseContextEndParse ,
#if ENABLE_OVERLOADING
MarkupParseContextFreeMethodInfo ,
#endif
markupParseContextFree ,
#if ENABLE_OVERLOADING
MarkupParseContextGetElementMethodInfo ,
#endif
markupParseContextGetElement ,
#if ENABLE_OVERLOADING
MarkupParseContextGetUserDataMethodInfo ,
#endif
markupParseContextGetUserData ,
markupParseContextNew ,
#if ENABLE_OVERLOADING
MarkupParseContextParseMethodInfo ,
#endif
markupParseContextParse ,
#if ENABLE_OVERLOADING
MarkupParseContextPopMethodInfo ,
#endif
markupParseContextPop ,
#if ENABLE_OVERLOADING
MarkupParseContextPushMethodInfo ,
#endif
markupParseContextPush ,
#if ENABLE_OVERLOADING
MarkupParseContextRefMethodInfo ,
#endif
markupParseContextRef ,
#if ENABLE_OVERLOADING
MarkupParseContextUnrefMethodInfo ,
#endif
markupParseContextUnref ,
) 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.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GLib.Callbacks as GLib.Callbacks
import {-# SOURCE #-} qualified GI.GLib.Flags as GLib.Flags
import {-# SOURCE #-} qualified GI.GLib.Structs.MarkupParser as GLib.MarkupParser
newtype MarkupParseContext = MarkupParseContext (ManagedPtr MarkupParseContext)
foreign import ccall "g_markup_parse_context_get_type" c_g_markup_parse_context_get_type ::
IO GType
instance BoxedObject MarkupParseContext where
boxedType :: MarkupParseContext -> IO GType
boxedType _ = IO GType
c_g_markup_parse_context_get_type
noMarkupParseContext :: Maybe MarkupParseContext
noMarkupParseContext :: Maybe MarkupParseContext
noMarkupParseContext = Maybe MarkupParseContext
forall a. Maybe a
Nothing
#if ENABLE_OVERLOADING
instance O.HasAttributeList MarkupParseContext
type instance O.AttributeList MarkupParseContext = MarkupParseContextAttributeList
type MarkupParseContextAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "g_markup_parse_context_new" g_markup_parse_context_new ::
Ptr GLib.MarkupParser.MarkupParser ->
CUInt ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO (Ptr MarkupParseContext)
markupParseContextNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
GLib.MarkupParser.MarkupParser
-> [GLib.Flags.MarkupParseFlags]
-> Ptr ()
-> GLib.Callbacks.DestroyNotify
-> m MarkupParseContext
markupParseContextNew :: MarkupParser
-> [MarkupParseFlags]
-> Ptr ()
-> DestroyNotify
-> m MarkupParseContext
markupParseContextNew parser :: MarkupParser
parser flags :: [MarkupParseFlags]
flags userData :: Ptr ()
userData userDataDnotify :: DestroyNotify
userDataDnotify = IO MarkupParseContext -> m MarkupParseContext
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO MarkupParseContext -> m MarkupParseContext)
-> IO MarkupParseContext -> m MarkupParseContext
forall a b. (a -> b) -> a -> b
$ do
Ptr MarkupParser
parser' <- MarkupParser -> IO (Ptr MarkupParser)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MarkupParser
parser
let flags' :: CUInt
flags' = [MarkupParseFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [MarkupParseFlags]
flags
Ptr (FunPtr DestroyNotify)
ptruserDataDnotify <- IO (Ptr (FunPtr DestroyNotify))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr GLib.Callbacks.C_DestroyNotify))
FunPtr DestroyNotify
userDataDnotify' <- DestroyNotify -> IO (FunPtr DestroyNotify)
GLib.Callbacks.mk_DestroyNotify (Maybe (Ptr (FunPtr DestroyNotify))
-> DestroyNotify -> DestroyNotify
GLib.Callbacks.wrap_DestroyNotify (Ptr (FunPtr DestroyNotify) -> Maybe (Ptr (FunPtr DestroyNotify))
forall a. a -> Maybe a
Just Ptr (FunPtr DestroyNotify)
ptruserDataDnotify) DestroyNotify
userDataDnotify)
Ptr (FunPtr DestroyNotify) -> FunPtr DestroyNotify -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr DestroyNotify)
ptruserDataDnotify FunPtr DestroyNotify
userDataDnotify'
Ptr MarkupParseContext
result <- Ptr MarkupParser
-> CUInt
-> Ptr ()
-> FunPtr DestroyNotify
-> IO (Ptr MarkupParseContext)
g_markup_parse_context_new Ptr MarkupParser
parser' CUInt
flags' Ptr ()
userData FunPtr DestroyNotify
userDataDnotify'
Text -> Ptr MarkupParseContext -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "markupParseContextNew" Ptr MarkupParseContext
result
MarkupParseContext
result' <- ((ManagedPtr MarkupParseContext -> MarkupParseContext)
-> Ptr MarkupParseContext -> IO MarkupParseContext
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr MarkupParseContext -> MarkupParseContext
MarkupParseContext) Ptr MarkupParseContext
result
MarkupParser -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MarkupParser
parser
MarkupParseContext -> IO MarkupParseContext
forall (m :: * -> *) a. Monad m => a -> m a
return MarkupParseContext
result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "g_markup_parse_context_end_parse" g_markup_parse_context_end_parse ::
Ptr MarkupParseContext ->
Ptr (Ptr GError) ->
IO CInt
markupParseContextEndParse ::
(B.CallStack.HasCallStack, MonadIO m) =>
MarkupParseContext
-> m ()
markupParseContextEndParse :: MarkupParseContext -> m ()
markupParseContextEndParse context :: MarkupParseContext
context = 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 MarkupParseContext
context' <- MarkupParseContext -> IO (Ptr MarkupParseContext)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MarkupParseContext
context
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr MarkupParseContext -> Ptr (Ptr GError) -> IO CInt
g_markup_parse_context_end_parse Ptr MarkupParseContext
context'
MarkupParseContext -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MarkupParseContext
context
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if ENABLE_OVERLOADING
data MarkupParseContextEndParseMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo MarkupParseContextEndParseMethodInfo MarkupParseContext signature where
overloadedMethod _ = markupParseContextEndParse
#endif
foreign import ccall "g_markup_parse_context_free" g_markup_parse_context_free ::
Ptr MarkupParseContext ->
IO ()
markupParseContextFree ::
(B.CallStack.HasCallStack, MonadIO m) =>
MarkupParseContext
-> m ()
markupParseContextFree :: MarkupParseContext -> m ()
markupParseContextFree context :: MarkupParseContext
context = 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 MarkupParseContext
context' <- MarkupParseContext -> IO (Ptr MarkupParseContext)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MarkupParseContext
context
Ptr MarkupParseContext -> IO ()
g_markup_parse_context_free Ptr MarkupParseContext
context'
MarkupParseContext -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MarkupParseContext
context
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data MarkupParseContextFreeMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo MarkupParseContextFreeMethodInfo MarkupParseContext signature where
overloadedMethod _ = markupParseContextFree
#endif
foreign import ccall "g_markup_parse_context_get_element" g_markup_parse_context_get_element ::
Ptr MarkupParseContext ->
IO CString
markupParseContextGetElement ::
(B.CallStack.HasCallStack, MonadIO m) =>
MarkupParseContext
-> m T.Text
markupParseContextGetElement :: MarkupParseContext -> m Text
markupParseContextGetElement context :: MarkupParseContext
context = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr MarkupParseContext
context' <- MarkupParseContext -> IO (Ptr MarkupParseContext)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MarkupParseContext
context
CString
result <- Ptr MarkupParseContext -> IO CString
g_markup_parse_context_get_element Ptr MarkupParseContext
context'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "markupParseContextGetElement" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
MarkupParseContext -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MarkupParseContext
context
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if ENABLE_OVERLOADING
data MarkupParseContextGetElementMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo MarkupParseContextGetElementMethodInfo MarkupParseContext signature where
overloadedMethod _ = markupParseContextGetElement
#endif
foreign import ccall "g_markup_parse_context_get_user_data" g_markup_parse_context_get_user_data ::
Ptr MarkupParseContext ->
IO (Ptr ())
markupParseContextGetUserData ::
(B.CallStack.HasCallStack, MonadIO m) =>
MarkupParseContext
-> m (Ptr ())
markupParseContextGetUserData :: MarkupParseContext -> m (Ptr ())
markupParseContextGetUserData context :: MarkupParseContext
context = IO (Ptr ()) -> m (Ptr ())
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Ptr ()) -> m (Ptr ())) -> IO (Ptr ()) -> m (Ptr ())
forall a b. (a -> b) -> a -> b
$ do
Ptr MarkupParseContext
context' <- MarkupParseContext -> IO (Ptr MarkupParseContext)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MarkupParseContext
context
Ptr ()
result <- Ptr MarkupParseContext -> IO (Ptr ())
g_markup_parse_context_get_user_data Ptr MarkupParseContext
context'
MarkupParseContext -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MarkupParseContext
context
Ptr () -> IO (Ptr ())
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ()
result
#if ENABLE_OVERLOADING
data MarkupParseContextGetUserDataMethodInfo
instance (signature ~ (m (Ptr ())), MonadIO m) => O.MethodInfo MarkupParseContextGetUserDataMethodInfo MarkupParseContext signature where
overloadedMethod _ = markupParseContextGetUserData
#endif
foreign import ccall "g_markup_parse_context_parse" g_markup_parse_context_parse ::
Ptr MarkupParseContext ->
CString ->
Int64 ->
Ptr (Ptr GError) ->
IO CInt
markupParseContextParse ::
(B.CallStack.HasCallStack, MonadIO m) =>
MarkupParseContext
-> T.Text
-> Int64
-> m ()
markupParseContextParse :: MarkupParseContext -> Text -> Int64 -> m ()
markupParseContextParse context :: MarkupParseContext
context text :: Text
text textLen :: Int64
textLen = 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 MarkupParseContext
context' <- MarkupParseContext -> IO (Ptr MarkupParseContext)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MarkupParseContext
context
CString
text' <- Text -> IO CString
textToCString Text
text
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr MarkupParseContext
-> CString -> Int64 -> Ptr (Ptr GError) -> IO CInt
g_markup_parse_context_parse Ptr MarkupParseContext
context' CString
text' Int64
textLen
MarkupParseContext -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MarkupParseContext
context
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
text'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
text'
)
#if ENABLE_OVERLOADING
data MarkupParseContextParseMethodInfo
instance (signature ~ (T.Text -> Int64 -> m ()), MonadIO m) => O.MethodInfo MarkupParseContextParseMethodInfo MarkupParseContext signature where
overloadedMethod _ = markupParseContextParse
#endif
foreign import ccall "g_markup_parse_context_pop" g_markup_parse_context_pop ::
Ptr MarkupParseContext ->
IO (Ptr ())
markupParseContextPop ::
(B.CallStack.HasCallStack, MonadIO m) =>
MarkupParseContext
-> m (Ptr ())
markupParseContextPop :: MarkupParseContext -> m (Ptr ())
markupParseContextPop context :: MarkupParseContext
context = IO (Ptr ()) -> m (Ptr ())
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Ptr ()) -> m (Ptr ())) -> IO (Ptr ()) -> m (Ptr ())
forall a b. (a -> b) -> a -> b
$ do
Ptr MarkupParseContext
context' <- MarkupParseContext -> IO (Ptr MarkupParseContext)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MarkupParseContext
context
Ptr ()
result <- Ptr MarkupParseContext -> IO (Ptr ())
g_markup_parse_context_pop Ptr MarkupParseContext
context'
MarkupParseContext -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MarkupParseContext
context
Ptr () -> IO (Ptr ())
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ()
result
#if ENABLE_OVERLOADING
data MarkupParseContextPopMethodInfo
instance (signature ~ (m (Ptr ())), MonadIO m) => O.MethodInfo MarkupParseContextPopMethodInfo MarkupParseContext signature where
overloadedMethod _ = markupParseContextPop
#endif
foreign import ccall "g_markup_parse_context_push" g_markup_parse_context_push ::
Ptr MarkupParseContext ->
Ptr GLib.MarkupParser.MarkupParser ->
Ptr () ->
IO ()
markupParseContextPush ::
(B.CallStack.HasCallStack, MonadIO m) =>
MarkupParseContext
-> GLib.MarkupParser.MarkupParser
-> Ptr ()
-> m ()
markupParseContextPush :: MarkupParseContext -> MarkupParser -> Ptr () -> m ()
markupParseContextPush context :: MarkupParseContext
context parser :: MarkupParser
parser userData :: Ptr ()
userData = 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 MarkupParseContext
context' <- MarkupParseContext -> IO (Ptr MarkupParseContext)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MarkupParseContext
context
Ptr MarkupParser
parser' <- MarkupParser -> IO (Ptr MarkupParser)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MarkupParser
parser
Ptr MarkupParseContext -> Ptr MarkupParser -> DestroyNotify
g_markup_parse_context_push Ptr MarkupParseContext
context' Ptr MarkupParser
parser' Ptr ()
userData
MarkupParseContext -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MarkupParseContext
context
MarkupParser -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MarkupParser
parser
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data MarkupParseContextPushMethodInfo
instance (signature ~ (GLib.MarkupParser.MarkupParser -> Ptr () -> m ()), MonadIO m) => O.MethodInfo MarkupParseContextPushMethodInfo MarkupParseContext signature where
overloadedMethod _ = markupParseContextPush
#endif
foreign import ccall "g_markup_parse_context_ref" g_markup_parse_context_ref ::
Ptr MarkupParseContext ->
IO (Ptr MarkupParseContext)
markupParseContextRef ::
(B.CallStack.HasCallStack, MonadIO m) =>
MarkupParseContext
-> m MarkupParseContext
markupParseContextRef :: MarkupParseContext -> m MarkupParseContext
markupParseContextRef context :: MarkupParseContext
context = IO MarkupParseContext -> m MarkupParseContext
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO MarkupParseContext -> m MarkupParseContext)
-> IO MarkupParseContext -> m MarkupParseContext
forall a b. (a -> b) -> a -> b
$ do
Ptr MarkupParseContext
context' <- MarkupParseContext -> IO (Ptr MarkupParseContext)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MarkupParseContext
context
Ptr MarkupParseContext
result <- Ptr MarkupParseContext -> IO (Ptr MarkupParseContext)
g_markup_parse_context_ref Ptr MarkupParseContext
context'
Text -> Ptr MarkupParseContext -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "markupParseContextRef" Ptr MarkupParseContext
result
MarkupParseContext
result' <- ((ManagedPtr MarkupParseContext -> MarkupParseContext)
-> Ptr MarkupParseContext -> IO MarkupParseContext
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr MarkupParseContext -> MarkupParseContext
MarkupParseContext) Ptr MarkupParseContext
result
MarkupParseContext -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MarkupParseContext
context
MarkupParseContext -> IO MarkupParseContext
forall (m :: * -> *) a. Monad m => a -> m a
return MarkupParseContext
result'
#if ENABLE_OVERLOADING
data MarkupParseContextRefMethodInfo
instance (signature ~ (m MarkupParseContext), MonadIO m) => O.MethodInfo MarkupParseContextRefMethodInfo MarkupParseContext signature where
overloadedMethod _ = markupParseContextRef
#endif
foreign import ccall "g_markup_parse_context_unref" g_markup_parse_context_unref ::
Ptr MarkupParseContext ->
IO ()
markupParseContextUnref ::
(B.CallStack.HasCallStack, MonadIO m) =>
MarkupParseContext
-> m ()
markupParseContextUnref :: MarkupParseContext -> m ()
markupParseContextUnref context :: MarkupParseContext
context = 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 MarkupParseContext
context' <- MarkupParseContext -> IO (Ptr MarkupParseContext)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MarkupParseContext
context
Ptr MarkupParseContext -> IO ()
g_markup_parse_context_unref Ptr MarkupParseContext
context'
MarkupParseContext -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MarkupParseContext
context
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data MarkupParseContextUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo MarkupParseContextUnrefMethodInfo MarkupParseContext signature where
overloadedMethod _ = markupParseContextUnref
#endif
#if ENABLE_OVERLOADING
type family ResolveMarkupParseContextMethod (t :: Symbol) (o :: *) :: * where
ResolveMarkupParseContextMethod "endParse" o = MarkupParseContextEndParseMethodInfo
ResolveMarkupParseContextMethod "free" o = MarkupParseContextFreeMethodInfo
ResolveMarkupParseContextMethod "parse" o = MarkupParseContextParseMethodInfo
ResolveMarkupParseContextMethod "pop" o = MarkupParseContextPopMethodInfo
ResolveMarkupParseContextMethod "push" o = MarkupParseContextPushMethodInfo
ResolveMarkupParseContextMethod "ref" o = MarkupParseContextRefMethodInfo
ResolveMarkupParseContextMethod "unref" o = MarkupParseContextUnrefMethodInfo
ResolveMarkupParseContextMethod "getElement" o = MarkupParseContextGetElementMethodInfo
ResolveMarkupParseContextMethod "getUserData" o = MarkupParseContextGetUserDataMethodInfo
ResolveMarkupParseContextMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveMarkupParseContextMethod t MarkupParseContext, O.MethodInfo info MarkupParseContext p) => O.IsLabelProxy t (MarkupParseContext -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveMarkupParseContextMethod t MarkupParseContext, O.MethodInfo info MarkupParseContext p) => O.IsLabel t (MarkupParseContext -> 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
#endif