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:39:02 +02:00
parent 141728f14f
commit e4458b5780
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/ZborBielawa.hs
View File

@ -33,8 +33,8 @@ getLinkAndText xpathCondition = proc doc -> do
extractNestedLinksWithText2 xpathCondition = proc x -> do extractNestedLinksWithText2 xpathCondition = proc x -> do
doc <- downloadDocument -< x doc <- downloadDocument -< x
thisValue <- this -< x thisValue <- this -< x
((a,b),c) <- getLinkAndText xpathCondition -< doc (a,b) <- getLinkAndText xpathCondition -< doc
uriFixed <- expandURIFixed -< (a,c) uriFixed <- expandURIFixed -< (a,thisValue)
returnA -< (uriFixed, b) returnA -< (uriFixed, b)