#define ENABLE_OVERLOADING \
(!defined(__HADDOCK_VERSION__))
module GI.GLib.Structs.MarkupParser
(
MarkupParser(..) ,
newZeroMarkupParser ,
noMarkupParser ,
clearMarkupParserEndElement ,
getMarkupParserEndElement ,
#if ENABLE_OVERLOADING
markupParser_endElement ,
#endif
setMarkupParserEndElement ,
clearMarkupParserError ,
getMarkupParserError ,
#if ENABLE_OVERLOADING
markupParser_error ,
#endif
setMarkupParserError ,
clearMarkupParserPassthrough ,
getMarkupParserPassthrough ,
#if ENABLE_OVERLOADING
markupParser_passthrough ,
#endif
setMarkupParserPassthrough ,
clearMarkupParserStartElement ,
getMarkupParserStartElement ,
#if ENABLE_OVERLOADING
markupParser_startElement ,
#endif
setMarkupParserStartElement ,
clearMarkupParserText ,
getMarkupParserText ,
#if ENABLE_OVERLOADING
markupParser_text ,
#endif
setMarkupParserText ,
) 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
newtype MarkupParser = MarkupParser (ManagedPtr MarkupParser)
instance WrappedPtr MarkupParser where
wrappedPtrCalloc :: IO (Ptr MarkupParser)
wrappedPtrCalloc = Int -> IO (Ptr MarkupParser)
forall a. Int -> IO (Ptr a)
callocBytes 40
wrappedPtrCopy :: MarkupParser -> IO MarkupParser
wrappedPtrCopy = \p :: MarkupParser
p -> MarkupParser
-> (Ptr MarkupParser -> IO MarkupParser) -> IO MarkupParser
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr MarkupParser
p (Int -> Ptr MarkupParser -> IO (Ptr MarkupParser)
forall a. WrappedPtr a => Int -> Ptr a -> IO (Ptr a)
copyBytes 40 (Ptr MarkupParser -> IO (Ptr MarkupParser))
-> (Ptr MarkupParser -> IO MarkupParser)
-> Ptr MarkupParser
-> IO MarkupParser
forall (m :: * -> *) a b c.
Monad m =>
(a -> m b) -> (b -> m c) -> a -> m c
>=> (ManagedPtr MarkupParser -> MarkupParser)
-> Ptr MarkupParser -> IO MarkupParser
forall a.
(HasCallStack, WrappedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr MarkupParser -> MarkupParser
MarkupParser)
wrappedPtrFree :: Maybe (FunPtr (Ptr MarkupParser -> IO ()))
wrappedPtrFree = FunPtr (Ptr MarkupParser -> IO ())
-> Maybe (FunPtr (Ptr MarkupParser -> IO ()))
forall a. a -> Maybe a
Just FunPtr (Ptr MarkupParser -> IO ())
forall a. FunPtr (Ptr a -> IO ())
ptr_to_g_free
newZeroMarkupParser :: MonadIO m => m MarkupParser
newZeroMarkupParser :: m MarkupParser
newZeroMarkupParser = IO MarkupParser -> m MarkupParser
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO MarkupParser -> m MarkupParser)
-> IO MarkupParser -> m MarkupParser
forall a b. (a -> b) -> a -> b
$ IO (Ptr MarkupParser)
forall a. WrappedPtr a => IO (Ptr a)
wrappedPtrCalloc IO (Ptr MarkupParser)
-> (Ptr MarkupParser -> IO MarkupParser) -> IO MarkupParser
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (ManagedPtr MarkupParser -> MarkupParser)
-> Ptr MarkupParser -> IO MarkupParser
forall a.
(HasCallStack, WrappedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr MarkupParser -> MarkupParser
MarkupParser
instance tag ~ 'AttrSet => Constructible MarkupParser tag where
new :: (ManagedPtr MarkupParser -> MarkupParser)
-> [AttrOp MarkupParser tag] -> m MarkupParser
new _ attrs :: [AttrOp MarkupParser tag]
attrs = do
MarkupParser
o <- m MarkupParser
forall (m :: * -> *). MonadIO m => m MarkupParser
newZeroMarkupParser
MarkupParser -> [AttrOp MarkupParser 'AttrSet] -> m ()
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set MarkupParser
o [AttrOp MarkupParser tag]
[AttrOp MarkupParser 'AttrSet]
attrs
MarkupParser -> m MarkupParser
forall (m :: * -> *) a. Monad m => a -> m a
return MarkupParser
o
noMarkupParser :: Maybe MarkupParser
noMarkupParser :: Maybe MarkupParser
noMarkupParser = Maybe MarkupParser
forall a. Maybe a
Nothing
getMarkupParserStartElement :: MonadIO m => MarkupParser -> m (Maybe GLib.Callbacks.MarkupParserStartElementFieldCallback_WithClosures)
getMarkupParserStartElement :: MarkupParser
-> m (Maybe MarkupParserStartElementFieldCallback_WithClosures)
getMarkupParserStartElement s :: MarkupParser
s = IO (Maybe MarkupParserStartElementFieldCallback_WithClosures)
-> m (Maybe MarkupParserStartElementFieldCallback_WithClosures)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe MarkupParserStartElementFieldCallback_WithClosures)
-> m (Maybe MarkupParserStartElementFieldCallback_WithClosures))
-> IO (Maybe MarkupParserStartElementFieldCallback_WithClosures)
-> m (Maybe MarkupParserStartElementFieldCallback_WithClosures)
forall a b. (a -> b) -> a -> b
$ MarkupParser
-> (Ptr MarkupParser
-> IO (Maybe MarkupParserStartElementFieldCallback_WithClosures))
-> IO (Maybe MarkupParserStartElementFieldCallback_WithClosures)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr MarkupParser
s ((Ptr MarkupParser
-> IO (Maybe MarkupParserStartElementFieldCallback_WithClosures))
-> IO (Maybe MarkupParserStartElementFieldCallback_WithClosures))
-> (Ptr MarkupParser
-> IO (Maybe MarkupParserStartElementFieldCallback_WithClosures))
-> IO (Maybe MarkupParserStartElementFieldCallback_WithClosures)
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr MarkupParser
ptr -> do
FunPtr C_MarkupParserStartElementFieldCallback
val <- Ptr (FunPtr C_MarkupParserStartElementFieldCallback)
-> IO (FunPtr C_MarkupParserStartElementFieldCallback)
forall a. Storable a => Ptr a -> IO a
peek (Ptr MarkupParser
ptr Ptr MarkupParser
-> Int -> Ptr (FunPtr C_MarkupParserStartElementFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) :: IO (FunPtr GLib.Callbacks.C_MarkupParserStartElementFieldCallback)
Maybe MarkupParserStartElementFieldCallback_WithClosures
result <- FunPtr C_MarkupParserStartElementFieldCallback
-> (FunPtr C_MarkupParserStartElementFieldCallback
-> IO MarkupParserStartElementFieldCallback_WithClosures)
-> IO (Maybe MarkupParserStartElementFieldCallback_WithClosures)
forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_MarkupParserStartElementFieldCallback
val ((FunPtr C_MarkupParserStartElementFieldCallback
-> IO MarkupParserStartElementFieldCallback_WithClosures)
-> IO (Maybe MarkupParserStartElementFieldCallback_WithClosures))
-> (FunPtr C_MarkupParserStartElementFieldCallback
-> IO MarkupParserStartElementFieldCallback_WithClosures)
-> IO (Maybe MarkupParserStartElementFieldCallback_WithClosures)
forall a b. (a -> b) -> a -> b
$ \val' :: FunPtr C_MarkupParserStartElementFieldCallback
val' -> do
let val'' :: MarkupParserStartElementFieldCallback_WithClosures
val'' = FunPtr C_MarkupParserStartElementFieldCallback
-> MarkupParserStartElementFieldCallback_WithClosures
forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_MarkupParserStartElementFieldCallback
-> MarkupParseContext -> Text -> Text -> Text -> Ptr () -> m ()
GLib.Callbacks.dynamic_MarkupParserStartElementFieldCallback FunPtr C_MarkupParserStartElementFieldCallback
val'
MarkupParserStartElementFieldCallback_WithClosures
-> IO MarkupParserStartElementFieldCallback_WithClosures
forall (m :: * -> *) a. Monad m => a -> m a
return MarkupParserStartElementFieldCallback_WithClosures
val''
Maybe MarkupParserStartElementFieldCallback_WithClosures
-> IO (Maybe MarkupParserStartElementFieldCallback_WithClosures)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe MarkupParserStartElementFieldCallback_WithClosures
result
setMarkupParserStartElement :: MonadIO m => MarkupParser -> FunPtr GLib.Callbacks.C_MarkupParserStartElementFieldCallback -> m ()
setMarkupParserStartElement :: MarkupParser
-> FunPtr C_MarkupParserStartElementFieldCallback -> m ()
setMarkupParserStartElement s :: MarkupParser
s val :: FunPtr C_MarkupParserStartElementFieldCallback
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ MarkupParser -> (Ptr MarkupParser -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr MarkupParser
s ((Ptr MarkupParser -> IO ()) -> IO ())
-> (Ptr MarkupParser -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr MarkupParser
ptr -> do
Ptr (FunPtr C_MarkupParserStartElementFieldCallback)
-> FunPtr C_MarkupParserStartElementFieldCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr MarkupParser
ptr Ptr MarkupParser
-> Int -> Ptr (FunPtr C_MarkupParserStartElementFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) (FunPtr C_MarkupParserStartElementFieldCallback
val :: FunPtr GLib.Callbacks.C_MarkupParserStartElementFieldCallback)
clearMarkupParserStartElement :: MonadIO m => MarkupParser -> m ()
clearMarkupParserStartElement :: MarkupParser -> m ()
clearMarkupParserStartElement s :: MarkupParser
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ MarkupParser -> (Ptr MarkupParser -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr MarkupParser
s ((Ptr MarkupParser -> IO ()) -> IO ())
-> (Ptr MarkupParser -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr MarkupParser
ptr -> do
Ptr (FunPtr C_MarkupParserStartElementFieldCallback)
-> FunPtr C_MarkupParserStartElementFieldCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr MarkupParser
ptr Ptr MarkupParser
-> Int -> Ptr (FunPtr C_MarkupParserStartElementFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) (FunPtr C_MarkupParserStartElementFieldCallback
forall a. FunPtr a
FP.nullFunPtr :: FunPtr GLib.Callbacks.C_MarkupParserStartElementFieldCallback)
#if ENABLE_OVERLOADING
data MarkupParserStartElementFieldInfo
instance AttrInfo MarkupParserStartElementFieldInfo where
type AttrAllowedOps MarkupParserStartElementFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint MarkupParserStartElementFieldInfo = (~) (FunPtr GLib.Callbacks.C_MarkupParserStartElementFieldCallback)
type AttrBaseTypeConstraint MarkupParserStartElementFieldInfo = (~) MarkupParser
type AttrGetType MarkupParserStartElementFieldInfo = Maybe GLib.Callbacks.MarkupParserStartElementFieldCallback_WithClosures
type AttrLabel MarkupParserStartElementFieldInfo = "start_element"
type AttrOrigin MarkupParserStartElementFieldInfo = MarkupParser
attrGet _ = getMarkupParserStartElement
attrSet _ = setMarkupParserStartElement
attrConstruct = undefined
attrClear _ = clearMarkupParserStartElement
markupParser_startElement :: AttrLabelProxy "startElement"
markupParser_startElement = AttrLabelProxy
#endif
getMarkupParserEndElement :: MonadIO m => MarkupParser -> m (Maybe GLib.Callbacks.MarkupParserEndElementFieldCallback_WithClosures)
getMarkupParserEndElement :: MarkupParser
-> m (Maybe MarkupParserEndElementFieldCallback_WithClosures)
getMarkupParserEndElement s :: MarkupParser
s = IO (Maybe MarkupParserEndElementFieldCallback_WithClosures)
-> m (Maybe MarkupParserEndElementFieldCallback_WithClosures)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe MarkupParserEndElementFieldCallback_WithClosures)
-> m (Maybe MarkupParserEndElementFieldCallback_WithClosures))
-> IO (Maybe MarkupParserEndElementFieldCallback_WithClosures)
-> m (Maybe MarkupParserEndElementFieldCallback_WithClosures)
forall a b. (a -> b) -> a -> b
$ MarkupParser
-> (Ptr MarkupParser
-> IO (Maybe MarkupParserEndElementFieldCallback_WithClosures))
-> IO (Maybe MarkupParserEndElementFieldCallback_WithClosures)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr MarkupParser
s ((Ptr MarkupParser
-> IO (Maybe MarkupParserEndElementFieldCallback_WithClosures))
-> IO (Maybe MarkupParserEndElementFieldCallback_WithClosures))
-> (Ptr MarkupParser
-> IO (Maybe MarkupParserEndElementFieldCallback_WithClosures))
-> IO (Maybe MarkupParserEndElementFieldCallback_WithClosures)
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr MarkupParser
ptr -> do
FunPtr C_MarkupParserEndElementFieldCallback
val <- Ptr (FunPtr C_MarkupParserEndElementFieldCallback)
-> IO (FunPtr C_MarkupParserEndElementFieldCallback)
forall a. Storable a => Ptr a -> IO a
peek (Ptr MarkupParser
ptr Ptr MarkupParser
-> Int -> Ptr (FunPtr C_MarkupParserEndElementFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 8) :: IO (FunPtr GLib.Callbacks.C_MarkupParserEndElementFieldCallback)
Maybe MarkupParserEndElementFieldCallback_WithClosures
result <- FunPtr C_MarkupParserEndElementFieldCallback
-> (FunPtr C_MarkupParserEndElementFieldCallback
-> IO MarkupParserEndElementFieldCallback_WithClosures)
-> IO (Maybe MarkupParserEndElementFieldCallback_WithClosures)
forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_MarkupParserEndElementFieldCallback
val ((FunPtr C_MarkupParserEndElementFieldCallback
-> IO MarkupParserEndElementFieldCallback_WithClosures)
-> IO (Maybe MarkupParserEndElementFieldCallback_WithClosures))
-> (FunPtr C_MarkupParserEndElementFieldCallback
-> IO MarkupParserEndElementFieldCallback_WithClosures)
-> IO (Maybe MarkupParserEndElementFieldCallback_WithClosures)
forall a b. (a -> b) -> a -> b
$ \val' :: FunPtr C_MarkupParserEndElementFieldCallback
val' -> do
let val'' :: MarkupParserEndElementFieldCallback_WithClosures
val'' = FunPtr C_MarkupParserEndElementFieldCallback
-> MarkupParserEndElementFieldCallback_WithClosures
forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_MarkupParserEndElementFieldCallback
-> MarkupParseContext -> Text -> Ptr () -> m ()
GLib.Callbacks.dynamic_MarkupParserEndElementFieldCallback FunPtr C_MarkupParserEndElementFieldCallback
val'
MarkupParserEndElementFieldCallback_WithClosures
-> IO MarkupParserEndElementFieldCallback_WithClosures
forall (m :: * -> *) a. Monad m => a -> m a
return MarkupParserEndElementFieldCallback_WithClosures
val''
Maybe MarkupParserEndElementFieldCallback_WithClosures
-> IO (Maybe MarkupParserEndElementFieldCallback_WithClosures)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe MarkupParserEndElementFieldCallback_WithClosures
result
setMarkupParserEndElement :: MonadIO m => MarkupParser -> FunPtr GLib.Callbacks.C_MarkupParserEndElementFieldCallback -> m ()
setMarkupParserEndElement :: MarkupParser
-> FunPtr C_MarkupParserEndElementFieldCallback -> m ()
setMarkupParserEndElement s :: MarkupParser
s val :: FunPtr C_MarkupParserEndElementFieldCallback
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ MarkupParser -> (Ptr MarkupParser -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr MarkupParser
s ((Ptr MarkupParser -> IO ()) -> IO ())
-> (Ptr MarkupParser -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr MarkupParser
ptr -> do
Ptr (FunPtr C_MarkupParserEndElementFieldCallback)
-> FunPtr C_MarkupParserEndElementFieldCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr MarkupParser
ptr Ptr MarkupParser
-> Int -> Ptr (FunPtr C_MarkupParserEndElementFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 8) (FunPtr C_MarkupParserEndElementFieldCallback
val :: FunPtr GLib.Callbacks.C_MarkupParserEndElementFieldCallback)
clearMarkupParserEndElement :: MonadIO m => MarkupParser -> m ()
clearMarkupParserEndElement :: MarkupParser -> m ()
clearMarkupParserEndElement s :: MarkupParser
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ MarkupParser -> (Ptr MarkupParser -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr MarkupParser
s ((Ptr MarkupParser -> IO ()) -> IO ())
-> (Ptr MarkupParser -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr MarkupParser
ptr -> do
Ptr (FunPtr C_MarkupParserEndElementFieldCallback)
-> FunPtr C_MarkupParserEndElementFieldCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr MarkupParser
ptr Ptr MarkupParser
-> Int -> Ptr (FunPtr C_MarkupParserEndElementFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 8) (FunPtr C_MarkupParserEndElementFieldCallback
forall a. FunPtr a
FP.nullFunPtr :: FunPtr GLib.Callbacks.C_MarkupParserEndElementFieldCallback)
#if ENABLE_OVERLOADING
data MarkupParserEndElementFieldInfo
instance AttrInfo MarkupParserEndElementFieldInfo where
type AttrAllowedOps MarkupParserEndElementFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint MarkupParserEndElementFieldInfo = (~) (FunPtr GLib.Callbacks.C_MarkupParserEndElementFieldCallback)
type AttrBaseTypeConstraint MarkupParserEndElementFieldInfo = (~) MarkupParser
type AttrGetType MarkupParserEndElementFieldInfo = Maybe GLib.Callbacks.MarkupParserEndElementFieldCallback_WithClosures
type AttrLabel MarkupParserEndElementFieldInfo = "end_element"
type AttrOrigin MarkupParserEndElementFieldInfo = MarkupParser
attrGet _ = getMarkupParserEndElement
attrSet _ = setMarkupParserEndElement
attrConstruct = undefined
attrClear _ = clearMarkupParserEndElement
markupParser_endElement :: AttrLabelProxy "endElement"
markupParser_endElement = AttrLabelProxy
#endif
getMarkupParserText :: MonadIO m => MarkupParser -> m (Maybe GLib.Callbacks.MarkupParserTextFieldCallback_WithClosures)
getMarkupParserText :: MarkupParser
-> m (Maybe MarkupParserTextFieldCallback_WithClosures)
getMarkupParserText s :: MarkupParser
s = IO (Maybe MarkupParserTextFieldCallback_WithClosures)
-> m (Maybe MarkupParserTextFieldCallback_WithClosures)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe MarkupParserTextFieldCallback_WithClosures)
-> m (Maybe MarkupParserTextFieldCallback_WithClosures))
-> IO (Maybe MarkupParserTextFieldCallback_WithClosures)
-> m (Maybe MarkupParserTextFieldCallback_WithClosures)
forall a b. (a -> b) -> a -> b
$ MarkupParser
-> (Ptr MarkupParser
-> IO (Maybe MarkupParserTextFieldCallback_WithClosures))
-> IO (Maybe MarkupParserTextFieldCallback_WithClosures)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr MarkupParser
s ((Ptr MarkupParser
-> IO (Maybe MarkupParserTextFieldCallback_WithClosures))
-> IO (Maybe MarkupParserTextFieldCallback_WithClosures))
-> (Ptr MarkupParser
-> IO (Maybe MarkupParserTextFieldCallback_WithClosures))
-> IO (Maybe MarkupParserTextFieldCallback_WithClosures)
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr MarkupParser
ptr -> do
FunPtr C_MarkupParserTextFieldCallback
val <- Ptr (FunPtr C_MarkupParserTextFieldCallback)
-> IO (FunPtr C_MarkupParserTextFieldCallback)
forall a. Storable a => Ptr a -> IO a
peek (Ptr MarkupParser
ptr Ptr MarkupParser
-> Int -> Ptr (FunPtr C_MarkupParserTextFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 16) :: IO (FunPtr GLib.Callbacks.C_MarkupParserTextFieldCallback)
Maybe MarkupParserTextFieldCallback_WithClosures
result <- FunPtr C_MarkupParserTextFieldCallback
-> (FunPtr C_MarkupParserTextFieldCallback
-> IO MarkupParserTextFieldCallback_WithClosures)
-> IO (Maybe MarkupParserTextFieldCallback_WithClosures)
forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_MarkupParserTextFieldCallback
val ((FunPtr C_MarkupParserTextFieldCallback
-> IO MarkupParserTextFieldCallback_WithClosures)
-> IO (Maybe MarkupParserTextFieldCallback_WithClosures))
-> (FunPtr C_MarkupParserTextFieldCallback
-> IO MarkupParserTextFieldCallback_WithClosures)
-> IO (Maybe MarkupParserTextFieldCallback_WithClosures)
forall a b. (a -> b) -> a -> b
$ \val' :: FunPtr C_MarkupParserTextFieldCallback
val' -> do
let val'' :: MarkupParserTextFieldCallback_WithClosures
val'' = FunPtr C_MarkupParserTextFieldCallback
-> MarkupParserTextFieldCallback_WithClosures
forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_MarkupParserTextFieldCallback
-> MarkupParseContext -> Text -> Word64 -> Ptr () -> m ()
GLib.Callbacks.dynamic_MarkupParserTextFieldCallback FunPtr C_MarkupParserTextFieldCallback
val'
MarkupParserTextFieldCallback_WithClosures
-> IO MarkupParserTextFieldCallback_WithClosures
forall (m :: * -> *) a. Monad m => a -> m a
return MarkupParserTextFieldCallback_WithClosures
val''
Maybe MarkupParserTextFieldCallback_WithClosures
-> IO (Maybe MarkupParserTextFieldCallback_WithClosures)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe MarkupParserTextFieldCallback_WithClosures
result
setMarkupParserText :: MonadIO m => MarkupParser -> FunPtr GLib.Callbacks.C_MarkupParserTextFieldCallback -> m ()
setMarkupParserText :: MarkupParser -> FunPtr C_MarkupParserTextFieldCallback -> m ()
setMarkupParserText s :: MarkupParser
s val :: FunPtr C_MarkupParserTextFieldCallback
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ MarkupParser -> (Ptr MarkupParser -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr MarkupParser
s ((Ptr MarkupParser -> IO ()) -> IO ())
-> (Ptr MarkupParser -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr MarkupParser
ptr -> do
Ptr (FunPtr C_MarkupParserTextFieldCallback)
-> FunPtr C_MarkupParserTextFieldCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr MarkupParser
ptr Ptr MarkupParser
-> Int -> Ptr (FunPtr C_MarkupParserTextFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 16) (FunPtr C_MarkupParserTextFieldCallback
val :: FunPtr GLib.Callbacks.C_MarkupParserTextFieldCallback)
clearMarkupParserText :: MonadIO m => MarkupParser -> m ()
clearMarkupParserText :: MarkupParser -> m ()
clearMarkupParserText s :: MarkupParser
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ MarkupParser -> (Ptr MarkupParser -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr MarkupParser
s ((Ptr MarkupParser -> IO ()) -> IO ())
-> (Ptr MarkupParser -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr MarkupParser
ptr -> do
Ptr (FunPtr C_MarkupParserTextFieldCallback)
-> FunPtr C_MarkupParserTextFieldCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr MarkupParser
ptr Ptr MarkupParser
-> Int -> Ptr (FunPtr C_MarkupParserTextFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 16) (FunPtr C_MarkupParserTextFieldCallback
forall a. FunPtr a
FP.nullFunPtr :: FunPtr GLib.Callbacks.C_MarkupParserTextFieldCallback)
#if ENABLE_OVERLOADING
data MarkupParserTextFieldInfo
instance AttrInfo MarkupParserTextFieldInfo where
type AttrAllowedOps MarkupParserTextFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint MarkupParserTextFieldInfo = (~) (FunPtr GLib.Callbacks.C_MarkupParserTextFieldCallback)
type AttrBaseTypeConstraint MarkupParserTextFieldInfo = (~) MarkupParser
type AttrGetType MarkupParserTextFieldInfo = Maybe GLib.Callbacks.MarkupParserTextFieldCallback_WithClosures
type AttrLabel MarkupParserTextFieldInfo = "text"
type AttrOrigin MarkupParserTextFieldInfo = MarkupParser
attrGet _ = getMarkupParserText
attrSet _ = setMarkupParserText
attrConstruct = undefined
attrClear _ = clearMarkupParserText
markupParser_text :: AttrLabelProxy "text"
markupParser_text = AttrLabelProxy
#endif
getMarkupParserPassthrough :: MonadIO m => MarkupParser -> m (Maybe GLib.Callbacks.MarkupParserPassthroughFieldCallback_WithClosures)
getMarkupParserPassthrough :: MarkupParser
-> m (Maybe MarkupParserTextFieldCallback_WithClosures)
getMarkupParserPassthrough s :: MarkupParser
s = IO (Maybe MarkupParserTextFieldCallback_WithClosures)
-> m (Maybe MarkupParserTextFieldCallback_WithClosures)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe MarkupParserTextFieldCallback_WithClosures)
-> m (Maybe MarkupParserTextFieldCallback_WithClosures))
-> IO (Maybe MarkupParserTextFieldCallback_WithClosures)
-> m (Maybe MarkupParserTextFieldCallback_WithClosures)
forall a b. (a -> b) -> a -> b
$ MarkupParser
-> (Ptr MarkupParser
-> IO (Maybe MarkupParserTextFieldCallback_WithClosures))
-> IO (Maybe MarkupParserTextFieldCallback_WithClosures)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr MarkupParser
s ((Ptr MarkupParser
-> IO (Maybe MarkupParserTextFieldCallback_WithClosures))
-> IO (Maybe MarkupParserTextFieldCallback_WithClosures))
-> (Ptr MarkupParser
-> IO (Maybe MarkupParserTextFieldCallback_WithClosures))
-> IO (Maybe MarkupParserTextFieldCallback_WithClosures)
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr MarkupParser
ptr -> do
FunPtr C_MarkupParserTextFieldCallback
val <- Ptr (FunPtr C_MarkupParserTextFieldCallback)
-> IO (FunPtr C_MarkupParserTextFieldCallback)
forall a. Storable a => Ptr a -> IO a
peek (Ptr MarkupParser
ptr Ptr MarkupParser
-> Int -> Ptr (FunPtr C_MarkupParserTextFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 24) :: IO (FunPtr GLib.Callbacks.C_MarkupParserPassthroughFieldCallback)
Maybe MarkupParserTextFieldCallback_WithClosures
result <- FunPtr C_MarkupParserTextFieldCallback
-> (FunPtr C_MarkupParserTextFieldCallback
-> IO MarkupParserTextFieldCallback_WithClosures)
-> IO (Maybe MarkupParserTextFieldCallback_WithClosures)
forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_MarkupParserTextFieldCallback
val ((FunPtr C_MarkupParserTextFieldCallback
-> IO MarkupParserTextFieldCallback_WithClosures)
-> IO (Maybe MarkupParserTextFieldCallback_WithClosures))
-> (FunPtr C_MarkupParserTextFieldCallback
-> IO MarkupParserTextFieldCallback_WithClosures)
-> IO (Maybe MarkupParserTextFieldCallback_WithClosures)
forall a b. (a -> b) -> a -> b
$ \val' :: FunPtr C_MarkupParserTextFieldCallback
val' -> do
let val'' :: MarkupParserTextFieldCallback_WithClosures
val'' = FunPtr C_MarkupParserTextFieldCallback
-> MarkupParserTextFieldCallback_WithClosures
forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_MarkupParserTextFieldCallback
-> MarkupParseContext -> Text -> Word64 -> Ptr () -> m ()
GLib.Callbacks.dynamic_MarkupParserPassthroughFieldCallback FunPtr C_MarkupParserTextFieldCallback
val'
MarkupParserTextFieldCallback_WithClosures
-> IO MarkupParserTextFieldCallback_WithClosures
forall (m :: * -> *) a. Monad m => a -> m a
return MarkupParserTextFieldCallback_WithClosures
val''
Maybe MarkupParserTextFieldCallback_WithClosures
-> IO (Maybe MarkupParserTextFieldCallback_WithClosures)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe MarkupParserTextFieldCallback_WithClosures
result
setMarkupParserPassthrough :: MonadIO m => MarkupParser -> FunPtr GLib.Callbacks.C_MarkupParserPassthroughFieldCallback -> m ()
setMarkupParserPassthrough :: MarkupParser -> FunPtr C_MarkupParserTextFieldCallback -> m ()
setMarkupParserPassthrough s :: MarkupParser
s val :: FunPtr C_MarkupParserTextFieldCallback
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ MarkupParser -> (Ptr MarkupParser -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr MarkupParser
s ((Ptr MarkupParser -> IO ()) -> IO ())
-> (Ptr MarkupParser -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr MarkupParser
ptr -> do
Ptr (FunPtr C_MarkupParserTextFieldCallback)
-> FunPtr C_MarkupParserTextFieldCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr MarkupParser
ptr Ptr MarkupParser
-> Int -> Ptr (FunPtr C_MarkupParserTextFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 24) (FunPtr C_MarkupParserTextFieldCallback
val :: FunPtr GLib.Callbacks.C_MarkupParserPassthroughFieldCallback)
clearMarkupParserPassthrough :: MonadIO m => MarkupParser -> m ()
clearMarkupParserPassthrough :: MarkupParser -> m ()
clearMarkupParserPassthrough s :: MarkupParser
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ MarkupParser -> (Ptr MarkupParser -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr MarkupParser
s ((Ptr MarkupParser -> IO ()) -> IO ())
-> (Ptr MarkupParser -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr MarkupParser
ptr -> do
Ptr (FunPtr C_MarkupParserTextFieldCallback)
-> FunPtr C_MarkupParserTextFieldCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr MarkupParser
ptr Ptr MarkupParser
-> Int -> Ptr (FunPtr C_MarkupParserTextFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 24) (FunPtr C_MarkupParserTextFieldCallback
forall a. FunPtr a
FP.nullFunPtr :: FunPtr GLib.Callbacks.C_MarkupParserPassthroughFieldCallback)
#if ENABLE_OVERLOADING
data MarkupParserPassthroughFieldInfo
instance AttrInfo MarkupParserPassthroughFieldInfo where
type AttrAllowedOps MarkupParserPassthroughFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint MarkupParserPassthroughFieldInfo = (~) (FunPtr GLib.Callbacks.C_MarkupParserPassthroughFieldCallback)
type AttrBaseTypeConstraint MarkupParserPassthroughFieldInfo = (~) MarkupParser
type AttrGetType MarkupParserPassthroughFieldInfo = Maybe GLib.Callbacks.MarkupParserPassthroughFieldCallback_WithClosures
type AttrLabel MarkupParserPassthroughFieldInfo = "passthrough"
type AttrOrigin MarkupParserPassthroughFieldInfo = MarkupParser
attrGet _ = getMarkupParserPassthrough
attrSet _ = setMarkupParserPassthrough
attrConstruct = undefined
attrClear _ = clearMarkupParserPassthrough
markupParser_passthrough :: AttrLabelProxy "passthrough"
markupParser_passthrough = AttrLabelProxy
#endif
getMarkupParserError :: MonadIO m => MarkupParser -> m (Maybe GLib.Callbacks.MarkupParserErrorFieldCallback_WithClosures)
getMarkupParserError :: MarkupParser
-> m (Maybe MarkupParserErrorFieldCallback_WithClosures)
getMarkupParserError s :: MarkupParser
s = IO (Maybe MarkupParserErrorFieldCallback_WithClosures)
-> m (Maybe MarkupParserErrorFieldCallback_WithClosures)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe MarkupParserErrorFieldCallback_WithClosures)
-> m (Maybe MarkupParserErrorFieldCallback_WithClosures))
-> IO (Maybe MarkupParserErrorFieldCallback_WithClosures)
-> m (Maybe MarkupParserErrorFieldCallback_WithClosures)
forall a b. (a -> b) -> a -> b
$ MarkupParser
-> (Ptr MarkupParser
-> IO (Maybe MarkupParserErrorFieldCallback_WithClosures))
-> IO (Maybe MarkupParserErrorFieldCallback_WithClosures)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr MarkupParser
s ((Ptr MarkupParser
-> IO (Maybe MarkupParserErrorFieldCallback_WithClosures))
-> IO (Maybe MarkupParserErrorFieldCallback_WithClosures))
-> (Ptr MarkupParser
-> IO (Maybe MarkupParserErrorFieldCallback_WithClosures))
-> IO (Maybe MarkupParserErrorFieldCallback_WithClosures)
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr MarkupParser
ptr -> do
FunPtr C_MarkupParserErrorFieldCallback
val <- Ptr (FunPtr C_MarkupParserErrorFieldCallback)
-> IO (FunPtr C_MarkupParserErrorFieldCallback)
forall a. Storable a => Ptr a -> IO a
peek (Ptr MarkupParser
ptr Ptr MarkupParser
-> Int -> Ptr (FunPtr C_MarkupParserErrorFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 32) :: IO (FunPtr GLib.Callbacks.C_MarkupParserErrorFieldCallback)
Maybe MarkupParserErrorFieldCallback_WithClosures
result <- FunPtr C_MarkupParserErrorFieldCallback
-> (FunPtr C_MarkupParserErrorFieldCallback
-> IO MarkupParserErrorFieldCallback_WithClosures)
-> IO (Maybe MarkupParserErrorFieldCallback_WithClosures)
forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_MarkupParserErrorFieldCallback
val ((FunPtr C_MarkupParserErrorFieldCallback
-> IO MarkupParserErrorFieldCallback_WithClosures)
-> IO (Maybe MarkupParserErrorFieldCallback_WithClosures))
-> (FunPtr C_MarkupParserErrorFieldCallback
-> IO MarkupParserErrorFieldCallback_WithClosures)
-> IO (Maybe MarkupParserErrorFieldCallback_WithClosures)
forall a b. (a -> b) -> a -> b
$ \val' :: FunPtr C_MarkupParserErrorFieldCallback
val' -> do
let val'' :: MarkupParserErrorFieldCallback_WithClosures
val'' = FunPtr C_MarkupParserErrorFieldCallback
-> MarkupParserErrorFieldCallback_WithClosures
forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_MarkupParserErrorFieldCallback
-> MarkupParseContext -> GError -> Ptr () -> m ()
GLib.Callbacks.dynamic_MarkupParserErrorFieldCallback FunPtr C_MarkupParserErrorFieldCallback
val'
MarkupParserErrorFieldCallback_WithClosures
-> IO MarkupParserErrorFieldCallback_WithClosures
forall (m :: * -> *) a. Monad m => a -> m a
return MarkupParserErrorFieldCallback_WithClosures
val''
Maybe MarkupParserErrorFieldCallback_WithClosures
-> IO (Maybe MarkupParserErrorFieldCallback_WithClosures)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe MarkupParserErrorFieldCallback_WithClosures
result
setMarkupParserError :: MonadIO m => MarkupParser -> FunPtr GLib.Callbacks.C_MarkupParserErrorFieldCallback -> m ()
setMarkupParserError :: MarkupParser -> FunPtr C_MarkupParserErrorFieldCallback -> m ()
setMarkupParserError s :: MarkupParser
s val :: FunPtr C_MarkupParserErrorFieldCallback
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ MarkupParser -> (Ptr MarkupParser -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr MarkupParser
s ((Ptr MarkupParser -> IO ()) -> IO ())
-> (Ptr MarkupParser -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr MarkupParser
ptr -> do
Ptr (FunPtr C_MarkupParserErrorFieldCallback)
-> FunPtr C_MarkupParserErrorFieldCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr MarkupParser
ptr Ptr MarkupParser
-> Int -> Ptr (FunPtr C_MarkupParserErrorFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 32) (FunPtr C_MarkupParserErrorFieldCallback
val :: FunPtr GLib.Callbacks.C_MarkupParserErrorFieldCallback)
clearMarkupParserError :: MonadIO m => MarkupParser -> m ()
clearMarkupParserError :: MarkupParser -> m ()
clearMarkupParserError s :: MarkupParser
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ MarkupParser -> (Ptr MarkupParser -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr MarkupParser
s ((Ptr MarkupParser -> IO ()) -> IO ())
-> (Ptr MarkupParser -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr MarkupParser
ptr -> do
Ptr (FunPtr C_MarkupParserErrorFieldCallback)
-> FunPtr C_MarkupParserErrorFieldCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr MarkupParser
ptr Ptr MarkupParser
-> Int -> Ptr (FunPtr C_MarkupParserErrorFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 32) (FunPtr C_MarkupParserErrorFieldCallback
forall a. FunPtr a
FP.nullFunPtr :: FunPtr GLib.Callbacks.C_MarkupParserErrorFieldCallback)
#if ENABLE_OVERLOADING
data MarkupParserErrorFieldInfo
instance AttrInfo MarkupParserErrorFieldInfo where
type AttrAllowedOps MarkupParserErrorFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint MarkupParserErrorFieldInfo = (~) (FunPtr GLib.Callbacks.C_MarkupParserErrorFieldCallback)
type AttrBaseTypeConstraint MarkupParserErrorFieldInfo = (~) MarkupParser
type AttrGetType MarkupParserErrorFieldInfo = Maybe GLib.Callbacks.MarkupParserErrorFieldCallback_WithClosures
type AttrLabel MarkupParserErrorFieldInfo = "error"
type AttrOrigin MarkupParserErrorFieldInfo = MarkupParser
attrGet _ = getMarkupParserError
attrSet _ = setMarkupParserError
attrConstruct = undefined
attrClear _ = clearMarkupParserError
markupParser_error :: AttrLabelProxy "error"
markupParser_error = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList MarkupParser
type instance O.AttributeList MarkupParser = MarkupParserAttributeList
type MarkupParserAttributeList = ('[ '("startElement", MarkupParserStartElementFieldInfo), '("endElement", MarkupParserEndElementFieldInfo), '("text", MarkupParserTextFieldInfo), '("passthrough", MarkupParserPassthroughFieldInfo), '("error", MarkupParserErrorFieldInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
type family ResolveMarkupParserMethod (t :: Symbol) (o :: *) :: * where
ResolveMarkupParserMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveMarkupParserMethod t MarkupParser, O.MethodInfo info MarkupParser p) => O.IsLabelProxy t (MarkupParser -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveMarkupParserMethod t MarkupParser, O.MethodInfo info MarkupParser p) => O.IsLabel t (MarkupParser -> 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