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