From 6955823107d652922d9fd51da325c6cbae4784ce Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 22 Nov 2016 09:18:04 -0800 Subject: [PATCH] wikipedia: need to use string>xml since we do xml traversal. --- extra/wikipedia/wikipedia.factor | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/extra/wikipedia/wikipedia.factor b/extra/wikipedia/wikipedia.factor index 57335c444a..14d33dda2f 100644 --- a/extra/wikipedia/wikipedia.factor +++ b/extra/wikipedia/wikipedia.factor @@ -3,9 +3,8 @@ USING: accessors ascii assocs calendar colors.constants formatting html.entities html.parser html.parser.analyzer -html.parser.printer http.client io io.streams.string io.styles -kernel make namespaces regexp sequences splitting urls -wrap.strings xml xml.data xml.traversal ; +html.parser.printer http.client io io.styles kernel namespaces +sequences splitting urls wrap.strings xml xml.data xml.traversal ; FROM: xml.data => tag? ; IN: wikipedia @@ -48,7 +47,7 @@ SYMBOL: language [ month-name ] [ day>> ] bi "%s_%s" sprintf wikipedia-url ; : (historical-events) ( timestamp -- seq ) - historical-url scrape-html nip "ul" deep-tags-named ; + historical-url http-get nip string>xml "ul" deep-tags-named ; : items>sequence ( tag -- seq ) children-tags [ deep-children>string ] map ;