diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-10-16 16:10:56 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-10-16 16:10:56 -0400 |
| commit | 965c9e7389b9357e0d7f95aa53a5d232c854e862 (patch) | |
| tree | 0c7831048ea2f01c0640ca48e722fcb3ccd3e033 /Utility/Scheduled.hs | |
| parent | 1d727e8005cf814ffa913d09b1eed04b2f6c5e12 (diff) | |
test suite found a case that was not properly parsed
Diffstat (limited to 'Utility/Scheduled.hs')
| -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 |