filipg/twilight-library
1
0
Fork 51
Code Issues Pull Requests Releases Wiki Activity

Simplify return types of records extract

Browse Source
This commit is contained in:
Norbert Litkowski 2021-04-07 14:38:47 +02:00
parent 67344b3d61
commit 0d45d42336
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
app/ZborBielawa.hs
View File

@ -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 -- (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')]])[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 -- (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 -- ... a tutaj te krotki przerabiamy do docelowej struktury ShadowItem
toShadowItem :: (((String, String), String), String) -> ShadowItem toShadowItem :: (String, String, String, String) -> ShadowItem
toShadowItem (((url, releaseTitle), collectionTitle), categoryTitle) = toShadowItem (url, releaseTitle, collectionTitle, categoryTitle) =
(defaultShadowItem url title) { (defaultShadowItem url title) {
originalDate = T.unpack <$> date, originalDate = T.unpack <$> date,
itype = "periodical", itype = "periodical",