From 965c9e7389b9357e0d7f95aa53a5d232c854e862 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 16 Oct 2013 16:10:56 -0400
Subject: test suite found a case that was not properly parsed

---
 Utility/Scheduled.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'Utility/Scheduled.hs')

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
-- 
cgit v1.2.3