diff options
| -rw-r--r-- | Utility/Scheduled.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Utility/Scheduled.hs b/Utility/Scheduled.hs index ce655b356..6401cfa20 100644 --- a/Utility/Scheduled.hs +++ b/Utility/Scheduled.hs @@ -233,6 +233,10 @@ toRecurrance s = case words s of Divisible <$> getdivisor sn <*> noday something + (something:"divisible":"by":sn:[]) -> + Divisible + <$> getdivisor sn + <*> noday something _ -> Nothing where constructor "week" = Just Weekly |