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

rename option

Browse source
This commit is contained in:
Joey Hess 2012-09-25 19:43:33 -04:00
parent 7d2d600a11
commit 84d431a679
3 changed files with 13 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

16
Command/Fsck.hs
View file

@ -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