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

Merge branch 'dev' of https://git.wmi.amu.edu.pl/s440054/twilight-library into dev

Browse Source
This commit is contained in:
nlitkowski 2021-04-07 12:04:43 +02:00
commit 1b7e1281f9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/ZborBielawa.hs
View File

@ -17,7 +17,7 @@ getLinkAndText xpathCondition = proc doc -> do
name <- getElemName -< xpathTrees name <- getElemName -< xpathTrees
txt <- (listA (deep isText >>> getText) >>> arr (intercalate " ")) -< xpathTrees txt <- (listA (deep isText >>> getText) >>> arr (intercalate " ")) -< xpathTrees
href <- (getXPathTrees "//a" >>> getAttrValue "href") -< xpathTrees href <- (getXPathTrees "//a" >>> getAttrValue "href") -< xpathTrees
returnA -< href, txt returnA -< (href, txt)
extractNestedLinksWithText xpathCondition = proc url -> do extractNestedLinksWithText xpathCondition = proc url -> do