From bf137cf60ac77833356f159cba3ad91568654fa4 Mon Sep 17 00:00:00 2001
From: Jan Nowak <jannow2@st.amu.edu.pl>
Date: Sat, 17 Apr 2021 18:13:05 +0200
Subject: [PATCH] Optymalizacje

---
 app/elektronikapraktyczna.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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ł