diff --git a/app/archiwumharcerskie.hs b/app/archiwumharcerskie.hs index 6759e46..34bfd5b 100644 --- a/app/archiwumharcerskie.hs +++ b/app/archiwumharcerskie.hs @@ -15,6 +15,7 @@ import Text.Printf extractRecords = extractLinksWithText "//nav//a[contains(@href,'title=Kategoria:')]" >>> first (extractLinksWithText "//a[contains(@href,'title=Plik') and contains(@href,'pdf')]") >>> first (first (extractLinksGeneralized "//div[@id='file']//iframe" "src")) + >>> first (first (arr $ replace "#page=1" "")) -- proby pobrania pdf i jpg --extractRecords = extractLinksWithText "//nav//a[contains(@href,'title=Kategoria:14_WDH')]"