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