From be9828e447c4ba5952a775f7a8909f1261a4584e Mon Sep 17 00:00:00 2001 From: Andrzej Preibisz Date: Thu, 5 May 2022 21:24:26 +0200 Subject: [PATCH] Fix tabulation --- app/zadanie.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/app/zadanie.hs b/app/zadanie.hs index 15dce1f..1c723df 100755 --- a/app/zadanie.hs +++ b/app/zadanie.hs @@ -12,7 +12,7 @@ import Text.Printf extractNestedRecords = extractLinksWithText "//a[@class='archiveVolume' and not(contains(@href, '.PDF')) and not(contains(@href, '.pdf'))]" -- pary adres-tytuł - >>> second (arr $ replace "\r\n\t\t\t\t" "") -- czyścimy drugi element pary, czyli tytuł z niepotrzebnych białych znaków + >>> second (arr $ replace "%09" "") -- czyścimy drugi element pary, czyli tytuł z niepotrzebnych białych znaków >>> 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) @@ -28,7 +28,7 @@ toShadowItem ((url, articleTitle), yearlyTitle) = format = Just "pdf", finalUrl = url } - where title = "Zagadnienia ekonomiki rolnej " ++ yearlyTitle ++ " " ++ (replace "\r\n" "" (replace "\r\n " "" articleTitle)) + where title = "Zagadnienia ekonomiki rolnej " ++ (replace "\t" "" (replace "\r\n" "" yearlyTitle)) ++ " " ++ (replace "\t" "" (replace "\r\n" "" (replace " " "" articleTitle))) date = getDate yearlyTitle toShadowItemTop :: (String, String) -> ShadowItem @@ -39,7 +39,7 @@ toShadowItemTop (url, articleTitle) = format = Just "pdf", finalUrl = url } - where title = "Zagadnienia ekonomiki rolnej " ++ " " ++ (replace "\r\n" "" (replace "\r\n " "" articleTitle)) + where title = "Zagadnienia ekonomiki rolnej " ++ " " ++ (replace "\t" "" (replace "\r\n " "" articleTitle)) date = getDateTop url