From 43c730c60dc9a3f9e839b1d6fe74a4118a35e692 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jakub=20Kolasin=CC=81ski?= Date: Sat, 10 Apr 2021 11:19:22 +0200 Subject: [PATCH] Fix date format --- app/naszepopowice.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/app/naszepopowice.hs b/app/naszepopowice.hs index 0e3f567..b562e3f 100644 --- a/app/naszepopowice.hs +++ b/app/naszepopowice.hs @@ -27,7 +27,7 @@ replaceSeparatorWithSpace = map (\c -> if c=='_' then ' '; else if c=='-' then ' replaceUnderscoreWithDash = map (\c -> if c=='_' then '-'; else c) getNr url = - case url =~~ "nr[-_][0-9][0-9]" :: Maybe String of + case url =~~ "nr[-_][0-9][0-9](_cz-[0-9])?" :: Maybe String of Just nr -> replaceSeparatorWithSpace nr otherwise -> error $ "unexpected url: " ++ url