diff --git a/app/biuletynbezpiecznachemia.hs b/app/biuletynbezpiecznachemia.hs index 1c37551..4f57e9e 100644 --- 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