From ce0342076da9f74d349ca3fa185905ea8ee5da5e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Maciej=20=C5=9Acigacz?= Date: Thu, 5 May 2022 20:30:14 +0200 Subject: [PATCH] fix chelmek --- app/chelmek.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/app/chelmek.hs b/app/chelmek.hs index 8eb2e0a..b0dcaa5 100644 --- a/app/chelmek.hs +++ b/app/chelmek.hs @@ -12,7 +12,7 @@ import Text.Regex.Posix import Text.Printf -extractRecords = extractLinksWithText "//div[@class='span4']//a[contains(@href,'o-nas')]" -- pary adres-tytuł +extractRecords = extractLinksWithText "//div[@class='span4']//h2[@itemprop='name']/a[contains(@href,'o-nas')]" -- pary adres-tytuł >>> first (extractLinksWithText "//a[contains(@href,'.pdf')]") -- pobieramy stronę z adresu URL i wyciągamy linki z tej strony pasujące do wyrażenia XPathowego -- ostatecznie wyjdą trójki ((adres URL, tytuł artykułu), tytuł rocznika) @@ -24,8 +24,8 @@ toShadowItem ((url, articleTitle), yearlyTitle) = itype = "periodical", format = Just "pdf", finalUrl = url - } - where title = "yearlyTitle: " ++ replace "\"" "'" (replace "\t\t\t\t\t" "" (replace "\n" "" yearlyTitle)) ++ " articleTitle: " ++ articleTitle + } + where title = replace "\"" "'" articleTitle date = getDate yearlyTitle getDate yearlyTitle =