makeElement :: Text -> Markup p a -> Markup p a
makeElement name m =
  Markup $ \i attr -> case runM i m of
    (cs, j, a) -> MarkupStep
      { msGlobalId = j
      , msChildren = (:) (Node name (V.fromList attr) cs)
      , msResult = a
      }


makeElement :: Text -> Markup p a -> Markup p a
makeElement name m =
  Markup $ \i attr -> case runM i m of
    (cs, j, a) -> MarkupStep
      { msGlobalId = j
      , msChildren = (:) (Node name (V.fromList attr) cs)
      , msResult = a
      }


makeElement name m =
  Markup $ \i attr -> case runM i m of
    (cs, j, a) -> MarkupStep
      { msGlobalId = j
      , msChildren = (:) (Node name (V.fromList attr) cs)
      , msResult = a
      }

