diff --git a/soprano/scraping.scm b/soprano/scraping.scm index 239f1ee..a616ac2 100644 --- a/soprano/scraping.scm +++ b/soprano/scraping.scm @@ -29,7 +29,7 @@ (let ((pref "/html/body/div/div/div[3]/div/div[1]")) (list (get-xpath-string (string-append pref "/h1/text()") d #f) - (get-xpath-string (string-append pref "/div[2]/div/div/div/div/img/@src") + (get-xpath-string (string-append pref "/div[1]/div/div/div/div/img/@src") d #t)))) (define (get-search d)