s460934/twilight-library
1
0
Fork 0
forked from filipg/twilight-library
Code Issues Pull Requests Releases Wiki Activity

Fix date format

Browse Source
This commit is contained in:
Jakub Kolasiński 2021-04-10 11:19:22 +02:00
parent 0d06e9dc3d
commit 43c730c60d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/naszepopowice.hs
View File

@ -27,7 +27,7 @@ replaceSeparatorWithSpace = map (\c -> if c=='_' then ' '; else if c=='-' then '
replaceUnderscoreWithDash = map (\c -> if c=='_' then '-'; else c) replaceUnderscoreWithDash = map (\c -> if c=='_' then '-'; else c)
getNr url = 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 Just nr -> replaceSeparatorWithSpace nr
otherwise -> error $ "unexpected url: " ++ url otherwise -> error $ "unexpected url: " ++ url