Mercurial > feed
changeset 13:7eea7ff1904c
Handle case of finish on self-closing tag.
author | Karn Kallio <kkallio@eka> |
---|---|
date | Sun, 24 Jul 2011 03:36:07 -0430 |
parents | a40cf9c8d615 |
children | f641cfcd5153 |
files | src/ur/feed.ur |
diffstat | 1 files changed, 5 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ur/feed.ur Tue Jul 19 09:29:34 2011 -0400 +++ b/src/ur/feed.ur Sun Jul 24 03:36:07 2011 -0430 @@ -373,6 +373,11 @@ recur xml acc (if cont then state else p.Initial)) | Some (data, cont) => acc <- f data acc; + state <- return (if ended then + Option.get p.Initial (p.ExitTag state) + else + state); + recur xml acc (if cont then state else p.Initial) end in