From 78e11f7e702d645699195beee7c168caaac45a98 Mon Sep 17 00:00:00 2001 From: Kacper Date: Wed, 25 May 2022 21:02:59 +0200 Subject: [PATCH] title formatting fix --- app/inspektoratpracy.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/app/inspektoratpracy.hs b/app/inspektoratpracy.hs index 0e32591..0c20f03 100644 --- a/app/inspektoratpracy.hs +++ b/app/inspektoratpracy.hs @@ -20,7 +20,7 @@ toShadowItem (url, monthlytitle) = format = Just "pdf", 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 getDate :: String -> String