-------------------------------------------------------------------------------
-- Parser
-------------------------------------------------------------------------------

ptag
  :: C.MonadThrow m
  => Name
  -> Pipe Event Event o u m a
  -> Pipe Event Event o u m (Maybe a)
ptag name p = tagNoAttr name p
ptag
  :: C.MonadThrow m
  => Name
  -> Pipe Event Event o u m a
  -> Pipe Event Event o u m (Maybe a)
ptag name p = tagNoAttr name p
ptag name p = tagNoAttr name p