diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-09-25 19:43:33 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-09-25 19:43:33 -0400 |
| commit | 2a850752b27b50e13a306cc4beda7d8fbbea8853 (patch) | |
| tree | 10a7326cb4f23c733bb9b628b54ff3f95f9e728c /Command | |
| parent | 7a791318df619f673e91bf3375e499acf3892443 (diff) | |
rename option
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/Fsck.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/Command/Fsck.hs b/Command/Fsck.hs index 479bca6ef..5e130c948 100644 --- a/Command/Fsck.hs +++ b/Command/Fsck.hs @@ -46,16 +46,16 @@ startIncrementalOption = Option.flag ['S'] "incremental" "start an incremental f moreIncrementalOption :: Option moreIncrementalOption = Option.flag ['m'] "more" "continue an incremental fsck" -incrementalRestartOption :: Option -incrementalRestartOption = Option.field [] "incremental-restart" paramTime - "schedule an incremental fsck" +incrementalScheduleOption :: Option +incrementalScheduleOption = Option.field [] "incremental-schedule" paramTime + "schedule incremental fscking" options :: [Option] options = [ fromOption , startIncrementalOption , moreIncrementalOption - , incrementalRestartOption + , incrementalScheduleOption ] seek :: [CommandSeek] @@ -67,8 +67,8 @@ seek = withIncremental :: (Incremental -> CommandSeek) -> CommandSeek withIncremental = withValue $ do - i <- maybe (return False) (checkrestart . parseDuration) - =<< Annex.getField (Option.name incrementalRestartOption) + i <- maybe (return False) (checkschedule . parseDuration) + =<< Annex.getField (Option.name incrementalScheduleOption) starti <- Annex.getFlag (Option.name startIncrementalOption) morei <- Annex.getFlag (Option.name moreIncrementalOption) case (i, starti, morei) of @@ -83,8 +83,8 @@ withIncremental = withValue $ do recordStartTime return StartIncremental - checkrestart Nothing = error "bad --incremental-restart value" - checkrestart (Just delta) = do + checkschedule Nothing = error "bad --incremental-schedule value" + checkschedule (Just delta) = do Annex.addCleanup "" $ do v <- getStartTime case v of |