Zaktualizuj 'app/best_robot.hs'

app/best_robot.hs

@@ -12,13 +12,11 @@ import Text.Regex.Posix
 import Text.Printf
 
 
-
 extractRecords = extractLinksWithText "//a[@class='title']"  -- pary adres-tytuł
                  >>> second (arr $ replace "\r\n              " "")-- czyścimy drugi element pary, czyli tytuł z niepotrzebnych białych znaków
                  >>> first (extractLinksWithText "//a[@class='obj_galley_link 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
 
 toShadowItem :: ((String, String), String) -> ShadowItem
 toShadowItem ((url, articleTitle), yearlyTitle) =