From 4d516a38fdb80f3bc45b718688763d3757d61971 Mon Sep 17 00:00:00 2001 From: Aleksy Wroblewski Date: Thu, 18 Mar 2021 18:18:14 +0100 Subject: [PATCH] Remove newline and tabs from the result titles --- app/podkarpacki.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)