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

title fix

Browse Source
This commit is contained in:
Kacper 2022-05-25 13:06:30 +02:00
parent aa45331cf7
commit cca2ef59d3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
app/inspektoratpracy.hs
View File

@ -13,15 +13,15 @@ import Text.Printf
extractRecords = extractLinksWithText "//td/a[contains(@href,'.pdf')]" extractRecords = extractLinksWithText "//td/a[contains(@href,'.pdf')]"
toShadowItem :: (String, String) -> ShadowItem toShadowItem :: (String, String) -> ShadowItem
toShadowItem (url, title) = toShadowItem (url, monthlytitle) =
(defaultShadowItem url title) { (defaultShadowItem url title) {
originalDate = Just date, originalDate = Just date,
itype = "periodical", itype = "periodical",
format = Just "pdf", format = Just "pdf",
finalUrl = url finalUrl = url
} }
where title = "title" where title = (replace "\r" "" (replace "\n" "" (replace "\t" "" monthlytitle)))
date = getDate $ replace "%20" " " url date = getDate $ replace "%20" " " url
getDate :: String -> String getDate :: String -> String
getDate url = date where getDate url = date where