direct download links

This commit is contained in:
Dominik Zaleśny 2022-05-25 14:54:54 +02:00
parent 423e221f7d
commit 2ff5b49ed1

View File

@ -16,8 +16,8 @@ extractRecords = extractLinksWithText "//h3[@class='media-heading']/a"
>>> first (arr (++"/issue/archive")) >>> first (arr (++"/issue/archive"))
>>> first (extractLinksWithText "//*[@class='media-heading']/a" >>> first (extractLinksWithText "//*[@class='media-heading']/a"
>>> first (extractLinksWithText "//*[@class='media-heading']/a" >>> first (extractLinksWithText "//*[@class='media-heading']/a"
>>> first (extractLinks "//div[@class='download']/a"))) >>> first (extractLinks "//div[@class='download']/a"
>>> extractLinks "//a[@class='download']")))
toShadowItem :: (((String, String), String), String) -> ShadowItem toShadowItem :: (((String, String), String), String) -> ShadowItem
toShadowItem (((url, articleTitle), yearlyTitle), journalTitle) = toShadowItem (((url, articleTitle), yearlyTitle), journalTitle) =