Missing date error fix

2021-04-20 18:49:54 +02:00 · 2021-04-20 18:49:54 +02:00 · cf6ea155f4
commit cf6ea155f4
parent 946f72833f
1 changed files with 1 additions and 1 deletions
--- a/app/biuletynbezpiecznachemia.hs
+++ b/app/biuletynbezpiecznachemia.hs
@ -31,7 +31,7 @@ toShadowItem (url, articleTitle) =
 getDate articleTitle =
  case articleTitle =~~ "(19[0-9][0-9]|20[0-9][0-9])" :: Maybe [[String]] of
    Just [[_, year]] -> year
-    otherwise -> error $ "unexpected articleTitle: " ++ articleTitle
+    otherwise -> "No date for " ++ articleTitle


 main = do