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

small tweak

Browse Source
This commit is contained in:
Łukasz Jędyk 2021-04-12 16:00:07 +02:00
parent 9027097319
commit 974098d4ec
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/archiwapilsudski.hs
View File

@ -39,7 +39,7 @@ getDate = proc doc -> do
getUrls = proc doc -> do getUrls = proc doc -> do
xpathTrees <- getXPathTrees "//div[@style='padding: 4px 7px;float:left;']/a" -< doc 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 returnA -< urlList
extractRecordData = proc recordUrl -> do extractRecordData = proc recordUrl -> do