From 0d45d42336fee49deb566eafd5d95cf067f37951 Mon Sep 17 00:00:00 2001 From: Norbert Litkowski Date: Wed, 7 Apr 2021 14:38:47 +0200 Subject: [PATCH] Simplify return types of records extract --- app/ZborBielawa.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/app/ZborBielawa.hs b/app/ZborBielawa.hs index d039e87..a551f3c 100644 --- a/app/ZborBielawa.hs +++ b/app/ZborBielawa.hs @@ -37,11 +37,11 @@ extractRecords = proc startUrl -> do -- (collUrl, collText) <- (extractLinksWithText "//aside[@class='widget widget_maxmegamenu']//a[@class='mega-menu-link']") -< catUrl -- pobieramy podstronę kategorii i kolejne podstrony z menu (relUrl, relText) <- (extractNestedLinksWithText "(//big[a[contains(@href,'.pdf')]])[1]") -< collUrl -- pobieramy stronę z wydaniami z danej kolekcji i linki do PDFów -- (relUrl, relText) <- (extractNestedLinksWithText "//big[a[contains(@href,'.pdf')]]") -< collUrl -- pobieramy stronę z wydaniami z danej kolekcji i linki do PDFów - returnA -< (((relUrl, relText), collText), catText) -- ostatecznie wyjdą krotki (((adres URL PDFa wydania, tytuł wydania), tytuł zbioru), tytuł kategorii) + returnA -< (relUrl, relText, collText, catText) -- ostatecznie wyjdą krotki (adres URL PDFa wydania, tytuł wydania, tytuł zbioru, tytuł kategorii) -- ... a tutaj te krotki przerabiamy do docelowej struktury ShadowItem -toShadowItem :: (((String, String), String), String) -> ShadowItem -toShadowItem (((url, releaseTitle), collectionTitle), categoryTitle) = +toShadowItem :: (String, String, String, String) -> ShadowItem +toShadowItem (url, releaseTitle, collectionTitle, categoryTitle) = (defaultShadowItem url title) { originalDate = T.unpack <$> date, itype = "periodical",