s440054/twilight-library
1
0
Fork 0
forked from filipg/twilight-library
Code Issues Pull Requests Releases Wiki Activity

WIP

Browse Source
This commit is contained in:
nlitkowski 2021-04-07 02:41:21 +02:00
parent e4458b5780
commit 3314561a8a
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
app/ZborBielawa.hs
View File

@ -30,12 +30,11 @@ getLinkAndText xpathCondition = proc doc -> do
returnA -< (href, txt) returnA -< (href, txt)
extractNestedLinksWithText2 xpathCondition = proc x -> do extractNestedLinksWithText2 xpathCondition = proc url -> do
doc <- downloadDocument -< x doc <- downloadDocument -< url
thisValue <- this -< x (link, text) <- getLinkAndText xpathCondition -< doc
(a,b) <- getLinkAndText xpathCondition -< doc uriFixed <- expandURIFixed -< (link, url)
uriFixed <- expandURIFixed -< (a,thisValue) returnA -< (uriFixed, text)
returnA -< (uriFixed, b)
extractRecords = extractLinksWithText "(//aside[@class='widget widget_maxmegamenu']//a[@class='mega-menu-link'])[1]" -- pary adres-tytuł podstrony extractRecords = extractLinksWithText "(//aside[@class='widget widget_maxmegamenu']//a[@class='mega-menu-link'])[1]" -- pary adres-tytuł podstrony