From 5944a5502077a81658df19192e75d51b84272900 Mon Sep 17 00:00:00 2001 From: rhiannon morris Date: Mon, 21 Oct 2024 14:36:55 +0200 Subject: [PATCH] fix latest date calculation --- make-pages/Info.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/make-pages/Info.hs b/make-pages/Info.hs index 4d06fb9..e14f0c5 100644 --- a/make-pages/Info.hs +++ b/make-pages/Info.hs @@ -199,7 +199,7 @@ thumb (Info {thumb', images}) = latestDateFor :: Bool -> Info -> Date latestDateFor nsfw i = maximum $ i.date : mapMaybe relDate (updatesFor nsfw i) where - relDate (date, us) = date <$ guard (not $ null us || any (.ignoreSort) us) + relDate (date, us) = date <$ guard (not $ null us || all (.ignoreSort) us) latestYearFor :: Bool -> Info -> Int latestYearFor nsfw info = (latestDateFor nsfw info).year