summaryrefslogtreecommitdiff
path: root/src/Utility/Scheduled.hs
diff options
context:
space:
mode:
authorJoey Hess2018-12-30 15:08:55 -0400
committerJoey Hess2018-12-30 15:08:55 -0400
commit3328fb83373adad786e57d4ed47e1d801e14260f (patch)
treef1e3502287f2cdd2bc19020f82b5a56ac90d0bbe /src/Utility/Scheduled.hs
parent11b3e6c0017dadf64ea67a7ea8c98e78b0917256 (diff)
Merged Utility changes from git-annex
Last done in May 2017..
Diffstat (limited to 'src/Utility/Scheduled.hs')
-rw-r--r--src/Utility/Scheduled.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Utility/Scheduled.hs b/src/Utility/Scheduled.hs
index b68ff901..12ead425 100644
--- a/src/Utility/Scheduled.hs
+++ b/src/Utility/Scheduled.hs
@@ -30,6 +30,7 @@ import Utility.Data
import Utility.PartialPrelude
import Utility.Misc
import Utility.Tuple
+import Utility.Split
import Data.List
import Data.Time.Clock
@@ -265,7 +266,7 @@ toRecurrance s = case words s of
constructor "month" = Just Monthly
constructor "year" = Just Yearly
constructor u
- | "s" `isSuffixOf` u = constructor $ reverse $ drop 1 $ reverse u
+ | "s" `isSuffixOf` u = constructor $ dropFromEnd 1 u
| otherwise = Nothing
withday sd u = do
c <- constructor u