From cf6ea155f40215381a82d52508546c844a3a6710 Mon Sep 17 00:00:00 2001 From: Piotr Kopycki Date: Tue, 20 Apr 2021 18:49:54 +0200 Subject: [PATCH] Missing date error fix --- app/biuletynbezpiecznachemia.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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