From 8b42a3d6ccc245560a376f1b9a733f43055157f5 Mon Sep 17 00:00:00 2001 From: Vojtaz Date: Mon, 5 Apr 2021 22:48:16 +0200 Subject: [PATCH] fin --- app/almanachmuszyny.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/app/almanachmuszyny.hs b/app/almanachmuszyny.hs index 775ff27..408f0cf 100644 --- a/app/almanachmuszyny.hs +++ b/app/almanachmuszyny.hs @@ -13,9 +13,9 @@ import Text.Printf extractRecords = extractLinksWithText "//a[@class='roczniki']" -- pary adres-tytuł - -- >>> second (arr $ replace "\r\n " " ") -- czyścimy drugi element pary, czyli tytuł z niepotrzebnych białych znaków - -- >>> first (arr ((++"tr") . init)) -- modyfikujemy pierwszy element pary, czyli adres URL - -- >>> 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 + >>> first (arr ((++"tr") . init)) -- modyfikujemy pierwszy element pary, czyli adres URL + >>> 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 -- ostatecznie wyjdą trójki ((adres URL, tytuł artykułu), tytuł rocznika) -- ... a tutaj te trójki przerabiamy do docelowej struktury ShadowItem @@ -43,4 +43,4 @@ main = do abbrev="AlmMusz", lLevel=0, webpage=start} - extractItemsStartingFromUrl shadowLibrary start (extractRecords)-- >>> arr toShadowItem) + extractItemsStartingFromUrl shadowLibrary start (extractRecords >>> arr toShadowItem)