runMarkup :: Markup t a -> (a, FastMarkup t)
runMarkup m = case runM 0 m of (m', _, a) -> (a, compile_ m')

--------------------------------------------------------------------------------
-- Internals
runMarkup :: Markup t a -> (a, FastMarkup t)
runMarkup m = case runM 0 m of (m', _, a) -> (a, compile_ m')

--------------------------------------------------------------------------------
-- Internals
runMarkup m = case runM 0 m of (m', _, a) -> (a, compile_ m')

--------------------------------------------------------------------------------
-- Internals