forked from filipg/twilight-library
small tweak
This commit is contained in:
parent
9027097319
commit
974098d4ec
@ -39,7 +39,7 @@ getDate = proc doc -> do
|
||||
|
||||
getUrls = proc doc -> do
|
||||
xpathTrees <- getXPathTrees "//div[@style='padding: 4px 7px;float:left;']/a" -< doc
|
||||
urlList <- (getAttrValue "href" >>> intercalate "//") -< xpathTrees
|
||||
urlList <- (getAttrValue "href" >>> arr ("http://archiwa.pilsudski.org/" ++ ) >>> intercalate "//") -< xpathTrees
|
||||
returnA -< urlList
|
||||
|
||||
extractRecordData = proc recordUrl -> do
|
||||
|
Loading…
Reference in New Issue
Block a user