This commit is contained in:
nlitkowski 2021-04-07 12:04:43 +02:00
commit 1b7e1281f9

View File

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