diff --git a/app/podkarpacki.hs b/app/podkarpacki.hs index bb5ad7d..3e93c89 100644 --- a/app/podkarpacki.hs +++ b/app/podkarpacki.hs @@ -15,7 +15,8 @@ import Text.Printf -- TODO : czyscic \n\t z tytulu extractRecords = extractLinksWithText "//a[contains(@href, '.pdf')]" -- pary adres-tytuł -- >>> first (extractLinksWithText "//li/a[contains(@href,'.pdf')]") -- pobieramy stronę z adresu URL i wyciągamy linki z tej strony pasujące do wyrażenia XPathowego - -- >>> second (arr $ replace "\r\n " " ") -- czyścimy drugi element pary, czyli tytuł z niepotrzebnych białych znaków + >>> second (arr $ replace "\n\t\t\t\t\t\t\t\t\t\t\t" "") + >>> second (arr $ replace "\n\t\t\t\t\t\t\t\t\t\t" "") -- czyścimy drugi element pary, czyli tytuł z niepotrzebnych białych znaków -- >>> first (arr ((++"tr") . init)) -- modyfikujemy pierwszy element pary, czyli adres URL -- ostatecznie wyjdą trójki ((adres URL, tytuł artykułu), tytuł rocznika)