From 432aa4f90f1ca7ef5f14c63cc03619b64ebe1483 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Sat, 9 Mar 2024 18:07:00 -0500 Subject: [PATCH] FIX multi date pattern bug --- lib/Internal/Utils.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/Internal/Utils.hs b/lib/Internal/Utils.hs index cbdc05b..6c64399 100644 --- a/lib/Internal/Utils.hs +++ b/lib/Internal/Utils.hs @@ -130,7 +130,7 @@ expandCronPat b CronPat {cpYear, cpMonth, cpDay, cpWeekly} = expandMDYPat :: Natural -> Natural -> MDYPat -> AppExcept [Natural] expandMDYPat lower upper (Single x) = return [x | lower <= x && x <= upper] -expandMDYPat lower upper (Multi xs) = return $ dropWhile (<= lower) $ takeWhile (<= upper) xs +expandMDYPat lower upper (Multi xs) = return $ dropWhile (lower <=) $ takeWhile (<= upper) xs expandMDYPat lower upper (After x) = return [max lower x .. upper] expandMDYPat lower upper (Before x) = return [lower .. min upper x] expandMDYPat lower upper (Between x y) = return [max lower x .. min upper y]