From 09761dabdf594c1d7d418fe871cf7edae67065a2 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Sat, 16 Mar 2024 20:33:12 -0400 Subject: [PATCH] FIX actually the multi typo --- 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 6c64399..f68bbc8 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]