title formatting fix

This commit is contained in:
Kacper 2022-05-25 21:02:59 +02:00
parent cca2ef59d3
commit 78e11f7e70

View File

@ -20,7 +20,7 @@ toShadowItem (url, monthlytitle) =
format = Just "pdf", format = Just "pdf",
finalUrl = url finalUrl = url
} }
where title = (replace "\r" "" (replace "\n" "" (replace "\t" "" monthlytitle))) where title = "IP" ++ date ++ " " ++ (replace "\r" "" (replace "\n" "" (replace "\t" "" monthlytitle)))
date = getDate $ replace "%20" " " url date = getDate $ replace "%20" " " url
getDate :: String -> String getDate :: String -> String