small tweak

This commit is contained in:
Łukasz Jędyk 2021-04-12 16:00:07 +02:00
parent 9027097319
commit 974098d4ec

View File

@ -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