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)