diff --git a/app/elektronikapraktyczna.hs b/app/elektronikapraktyczna.hs
index 8a18531..0322803 100644
--- a/app/elektronikapraktyczna.hs
+++ b/app/elektronikapraktyczna.hs
@@ -33,7 +33,7 @@ mToString n
 extractMonth :: String -> String
 extractMonth n =
   case n =~~ ("[A-za-z]+" :: String) of
-    Just month -> mToString (baseMonthNameToNumber (toLowerString month))
+    Just month -> eliminate (baseMonthNameToNumber (toLowerString month))
     otherwise -> ""
 
 mExtractYear :: String -> String
@@ -43,7 +43,7 @@ mExtractYear n =
     otherwise -> ""
 
 changeDate :: String -> String
-changeDate a = mExtractYear a ++ "-" ++ extractMonth a
+changeDate a = eliminate (extractYear a) ++ "-" ++ extractMonth a
   
 
 extractRecords = extractLinksWithText "(//a[@class='magazine-list__year-item'])[last()]"  -- pary adres-tytuł