summaryrefslogtreecommitdiff
path: root/Utility/Scheduled.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-10-16 16:10:56 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-10-16 16:10:56 -0400
commit965c9e7389b9357e0d7f95aa53a5d232c854e862 (patch)
tree0c7831048ea2f01c0640ca48e722fcb3ccd3e033 /Utility/Scheduled.hs
parent1d727e8005cf814ffa913d09b1eed04b2f6c5e12 (diff)
test suite found a case that was not properly parsed
Diffstat (limited to 'Utility/Scheduled.hs')
-rw-r--r--Utility/Scheduled.hs4
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