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