mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

test suite found a case that was not properly parsed

Browse source
This commit is contained in:
Joey Hess 2013-10-16 16:10:56 -04:00
parent 4c6d2c0bbb
commit 99c081b87c
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Utility/Scheduled.hs
View file

@ -233,6 +233,10 @@ toRecurrance s = case words s of
Divisible Divisible
<$> getdivisor sn <$> getdivisor sn
<*> noday something <*> noday something
(something:"divisible":"by":sn:[]) ->
Divisible
<$> getdivisor sn
<*> noday something
_ -> Nothing _ -> Nothing
where where
constructor "week" = Just Weekly constructor "week" = Just Weekly