parallel fsck (yes, these changes are all it takes now!)

This commit is contained in:
Joey Hess 2015-11-04 16:26:21 -04:00
parent c0c595345c
commit 3d0f41518d
Failed to extract signature
3 changed files with 9 additions and 3 deletions

View file

@ -44,7 +44,7 @@ import Data.Time.Clock.POSIX
import System.Posix.Types (EpochTime)
cmd :: Command
cmd = withGlobalOptions annexedMatchingOptions $
cmd = withGlobalOptions (jobsOption : annexedMatchingOptions) $
command "fsck" SectionMaintenance
"find and fix problems"
paramPaths (seek <$$> optParser)
@ -87,7 +87,7 @@ optParser desc = FsckOptions
))
seek :: FsckOptions -> CommandSeek
seek o = do
seek o = allowConcurrentOutput $ do
from <- maybe (pure Nothing) (Just <$$> getParsed) (fsckFromOption o)
u <- maybe getUUID (pure . Remote.uuid) from
i <- prepIncremental u (incrementalOpt o)