This commit is contained in:
Natalia Gawron 2021-04-03 21:31:03 +02:00
parent a5d9f23ca8
commit 4430f3a593
2 changed files with 21 additions and 22 deletions

View File

@ -38,7 +38,7 @@ extractDate url =
extractOtherDate :: String -> Maybe String extractOtherDate :: String -> Maybe String
extractOtherDate url = extractOtherDate url =
case url =~~ ("[0-9]{4}_[0-9]{2}" :: String) of case url =~~ ("[0-9]{4}_[0-9]{2}" :: String) of
Just date -> Just date Just date -> Just (replace "_" "-" date)
otherwise -> Just url otherwise -> Just url

View File

@ -34,24 +34,23 @@ ShadowItem {url = Just "https://www.smpopowice.pl/gazeta/2010_03_nasze-popowice-
ShadowItem {url = Just "https://www.smpopowice.pl/gazeta/2010_05_nasze-popowice-nr_22.pdf", title = "Maj 2010 \"Nasze popowice\" nr 22", itype = "periodical", originalDate = Just "Maj 2010", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "https://www.smpopowice.pl/gazeta/2010_05_nasze-popowice-nr_22.pdf", description = Nothing} ShadowItem {url = Just "https://www.smpopowice.pl/gazeta/2010_05_nasze-popowice-nr_22.pdf", title = "Maj 2010 \"Nasze popowice\" nr 22", itype = "periodical", originalDate = Just "Maj 2010", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "https://www.smpopowice.pl/gazeta/2010_05_nasze-popowice-nr_22.pdf", description = Nothing}
ShadowItem {url = Just "https://www.smpopowice.pl/gazeta/2010_09_nasze-popowice-nr_23.pdf", title = "Wrzesien 2010 \"Nasze popowice\" nr 23", itype = "periodical", originalDate = Just "Wrzesien 2010", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "https://www.smpopowice.pl/gazeta/2010_09_nasze-popowice-nr_23.pdf", description = Nothing} ShadowItem {url = Just "https://www.smpopowice.pl/gazeta/2010_09_nasze-popowice-nr_23.pdf", title = "Wrzesien 2010 \"Nasze popowice\" nr 23", itype = "periodical", originalDate = Just "Wrzesien 2010", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "https://www.smpopowice.pl/gazeta/2010_09_nasze-popowice-nr_23.pdf", description = Nothing}
ShadowItem {url = Just "https://www.smpopowice.pl/gazeta/2010_12_nasze-popowice-nr_24.pdf", title = "Grudzien 2010 \"Nasze popowice\" nr 24", itype = "periodical", originalDate = Just "Grudzien 2010", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "https://www.smpopowice.pl/gazeta/2010_12_nasze-popowice-nr_24.pdf", description = Nothing} ShadowItem {url = Just "https://www.smpopowice.pl/gazeta/2010_12_nasze-popowice-nr_24.pdf", title = "Grudzien 2010 \"Nasze popowice\" nr 24", itype = "periodical", originalDate = Just "Grudzien 2010", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "https://www.smpopowice.pl/gazeta/2010_12_nasze-popowice-nr_24.pdf", description = Nothing}
ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2009_03_nasze-popowice-nr_16.pdf", title = "2009_03_nasze-popowice-nr_16.pdf", itype = "periodical", originalDate = Just "2009_03", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2009_03_nasze-popowice-nr_16.pdf", description = Nothing} ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2009_03_nasze-popowice-nr_16.pdf", title = "2009_03_nasze-popowice-nr_16.pdf", itype = "periodical", originalDate = Just "2009-03", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2009_03_nasze-popowice-nr_16.pdf", description = Nothing}
ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2009_05_nasze-popowice-nr_17.pdf", title = "2009_05_nasze-popowice-nr_17.pdf", itype = "periodical", originalDate = Just "2009_05", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2009_05_nasze-popowice-nr_17.pdf", description = Nothing} ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2009_05_nasze-popowice-nr_17.pdf", title = "2009_05_nasze-popowice-nr_17.pdf", itype = "periodical", originalDate = Just "2009-05", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2009_05_nasze-popowice-nr_17.pdf", description = Nothing}
ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2009_07_nasze-popowice-nr_18.pdf", title = "2009_07_nasze-popowice-nr_18.pdf", itype = "periodical", originalDate = Just "2009_07", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2009_07_nasze-popowice-nr_18.pdf", description = Nothing} ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2009_07_nasze-popowice-nr_18.pdf", title = "2009_07_nasze-popowice-nr_18.pdf", itype = "periodical", originalDate = Just "2009-07", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2009_07_nasze-popowice-nr_18.pdf", description = Nothing}
ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2009_10_nasze-popowice-nr-19.pdf", title = "2009_10_nasze-popowice-nr-19.pdf", itype = "periodical", originalDate = Just "2009_10", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2009_10_nasze-popowice-nr-19.pdf", description = Nothing} ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2009_10_nasze-popowice-nr-19.pdf", title = "2009_10_nasze-popowice-nr-19.pdf", itype = "periodical", originalDate = Just "2009-10", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2009_10_nasze-popowice-nr-19.pdf", description = Nothing}
ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2009_12_nasze-popowice-nr_20.pdf", title = "2009_12_nasze-popowice-nr_20.pdf", itype = "periodical", originalDate = Just "2009_12", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2009_12_nasze-popowice-nr_20.pdf", description = Nothing} ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2009_12_nasze-popowice-nr_20.pdf", title = "2009_12_nasze-popowice-nr_20.pdf", itype = "periodical", originalDate = Just "2009-12", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2009_12_nasze-popowice-nr_20.pdf", description = Nothing}
ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2008_02_nasze-popowice-nr_11.pdf", title = "2008_02_nasze-popowice-nr_11.pdf", itype = "periodical", originalDate = Just "2008_02", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2008_02_nasze-popowice-nr_11.pdf", description = Nothing} ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2008_02_nasze-popowice-nr_11.pdf", title = "2008_02_nasze-popowice-nr_11.pdf", itype = "periodical", originalDate = Just "2008-02", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2008_02_nasze-popowice-nr_11.pdf", description = Nothing}
ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2008_05_nasze%20popowice-nr_12.pdf", title = "2008_05_nasze popowice-nr_12.pdf", itype = "periodical", originalDate = Just "2008_05", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2008_05_nasze%20popowice-nr_12.pdf", description = Nothing} ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2008_05_nasze%20popowice-nr_12.pdf", title = "2008_05_nasze popowice-nr_12.pdf", itype = "periodical", originalDate = Just "2008-05", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2008_05_nasze%20popowice-nr_12.pdf", description = Nothing}
ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2008_07_nasze-popowice-nr_13-.pdf", title = "2008_07_nasze-popowice-nr_13-.pdf", itype = "periodical", originalDate = Just "2008_07", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2008_07_nasze-popowice-nr_13-.pdf", description = Nothing} ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2008_07_nasze-popowice-nr_13-.pdf", title = "2008_07_nasze-popowice-nr_13-.pdf", itype = "periodical", originalDate = Just "2008-07", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2008_07_nasze-popowice-nr_13-.pdf", description = Nothing}
ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2008_10_nasze-popowice-nr_14.pdf", title = "2008_10_nasze-popowice-nr_14.pdf", itype = "periodical", originalDate = Just "2008_10", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2008_10_nasze-popowice-nr_14.pdf", description = Nothing} ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2008_10_nasze-popowice-nr_14.pdf", title = "2008_10_nasze-popowice-nr_14.pdf", itype = "periodical", originalDate = Just "2008-10", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2008_10_nasze-popowice-nr_14.pdf", description = Nothing}
ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2008_12_nasze-popowice-nr_15.pdf", title = "2008_12_nasze-popowice-nr_15.pdf", itype = "periodical", originalDate = Just "2008_12", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2008_12_nasze-popowice-nr_15.pdf", description = Nothing} ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2008_12_nasze-popowice-nr_15.pdf", title = "2008_12_nasze-popowice-nr_15.pdf", itype = "periodical", originalDate = Just "2008-12", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2008_12_nasze-popowice-nr_15.pdf", description = Nothing}
ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2007_03_nasze-popowice-nr_06.pdf", title = "2007_03_nasze-popowice-nr_06.pdf", itype = "periodical", originalDate = Just "2007_03", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2007_03_nasze-popowice-nr_06.pdf", description = Nothing} ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2007_03_nasze-popowice-nr_06.pdf", title = "2007_03_nasze-popowice-nr_06.pdf", itype = "periodical", originalDate = Just "2007-03", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2007_03_nasze-popowice-nr_06.pdf", description = Nothing}
ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2007_04_nasze%20popowice-nr_07.pdf", title = "2007_04_nasze popowice-nr_07.pdf", itype = "periodical", originalDate = Just "2007_04", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2007_04_nasze%20popowice-nr_07.pdf", description = Nothing} ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2007_04_nasze%20popowice-nr_07.pdf", title = "2007_04_nasze popowice-nr_07.pdf", itype = "periodical", originalDate = Just "2007-04", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2007_04_nasze%20popowice-nr_07.pdf", description = Nothing}
ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2007_06_nasze%20popowice-nr_08.pdf", title = "2007_06_nasze popowice-nr_08.pdf", itype = "periodical", originalDate = Just "2007_06", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2007_06_nasze%20popowice-nr_08.pdf", description = Nothing} ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2007_06_nasze%20popowice-nr_08.pdf", title = "2007_06_nasze popowice-nr_08.pdf", itype = "periodical", originalDate = Just "2007-06", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2007_06_nasze%20popowice-nr_08.pdf", description = Nothing}
ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2007_09_nasze%20popowice-nr_09.pdf", title = "2007_09_nasze popowice-nr_09.pdf", itype = "periodical", originalDate = Just "2007_09", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2007_09_nasze%20popowice-nr_09.pdf", description = Nothing} ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2007_09_nasze%20popowice-nr_09.pdf", title = "2007_09_nasze popowice-nr_09.pdf", itype = "periodical", originalDate = Just "2007-09", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2007_09_nasze%20popowice-nr_09.pdf", description = Nothing}
ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2007_12_nasze%20popowice-nr_10.pdf", title = "2007_12_nasze popowice-nr_10.pdf", itype = "periodical", originalDate = Just "2007_12", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2007_12_nasze%20popowice-nr_10.pdf", description = Nothing} ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2007_12_nasze%20popowice-nr_10.pdf", title = "2007_12_nasze popowice-nr_10.pdf", itype = "periodical", originalDate = Just "2007-12", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2007_12_nasze%20popowice-nr_10.pdf", description = Nothing}
ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2006_03_nasze-popowice-nr_02.pdf", title = "2006_03_nasze-popowice-nr_02.pdf", itype = "periodical", originalDate = Just "2006_03", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2006_03_nasze-popowice-nr_02.pdf", description = Nothing} ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2006_03_nasze-popowice-nr_02.pdf", title = "2006_03_nasze-popowice-nr_02.pdf", itype = "periodical", originalDate = Just "2006-03", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2006_03_nasze-popowice-nr_02.pdf", description = Nothing}
ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2006_05_nasze-popowice-nr_03.pdf", title = "2006_05_nasze-popowice-nr_03.pdf", itype = "periodical", originalDate = Just "2006_05", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2006_05_nasze-popowice-nr_03.pdf", description = Nothing} ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2006_05_nasze-popowice-nr_03.pdf", title = "2006_05_nasze-popowice-nr_03.pdf", itype = "periodical", originalDate = Just "2006-05", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2006_05_nasze-popowice-nr_03.pdf", description = Nothing}
ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2006_10_nasze-popowice-nr_04.pdf", title = "2006_10_nasze-popowice-nr_04.pdf", itype = "periodical", originalDate = Just "2006_10", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2006_10_nasze-popowice-nr_04.pdf", description = Nothing} ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2006_10_nasze-popowice-nr_04.pdf", title = "2006_10_nasze-popowice-nr_04.pdf", itype = "periodical", originalDate = Just "2006-10", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2006_10_nasze-popowice-nr_04.pdf", description = Nothing}
ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2006_12_nasze-popowice-nr_05.pdf", title = "2006_12_nasze-popowice-nr_05.pdf", itype = "periodical", originalDate = Just "2006_12", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2006_12_nasze-popowice-nr_05.pdf", description = Nothing} ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2006_12_nasze-popowice-nr_05.pdf", title = "2006_12_nasze-popowice-nr_05.pdf", itype = "periodical", originalDate = Just "2006-12", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2006_12_nasze-popowice-nr_05.pdf", description = Nothing}
ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2005_12_nasze-popowice-nr_01.pdf", title = "2005_12_nasze-popowice-nr_01.pdf", itype = "periodical", originalDate = Just "2005_12", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2005_12_nasze-popowice-nr_01.pdf", description = Nothing} ShadowItem {url = Just "http://www.smpopowice.pl/gazeta/2005_12_nasze-popowice-nr_01.pdf", title = "2005_12_nasze-popowice-nr_01.pdf", itype = "periodical", originalDate = Just "2005-12", creator = Nothing, format = Just "pdf", lang = Just "pol", finalUrl = "http://www.smpopowice.pl/gazeta/2005_12_nasze-popowice-nr_01.pdf", description = Nothing}