filipg/twilight-library
1
0
Fork 51
Code Issues Pull Requests Releases Wiki Activity

Missing date error fix

Browse Source
This commit is contained in:
Piotr Kopycki 2021-04-20 18:49:54 +02:00
parent 946f72833f
commit cf6ea155f4
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/biuletynbezpiecznachemia.hs
View File

@ -31,7 +31,7 @@ toShadowItem (url, articleTitle) =
getDate articleTitle = getDate articleTitle =
case articleTitle =~~ "(19[0-9][0-9]|20[0-9][0-9])" :: Maybe [[String]] of case articleTitle =~~ "(19[0-9][0-9]|20[0-9][0-9])" :: Maybe [[String]] of
Just [[_, year]] -> year Just [[_, year]] -> year
otherwise -> error $ "unexpected articleTitle: " ++ articleTitle otherwise -> "No date for " ++ articleTitle
main = do main = do