diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-11-04 16:26:21 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-11-04 16:28:14 -0400 |
| commit | 1bf9bbec4cd8c82985effddd5acdd0fba083b63b (patch) | |
| tree | cc23fb438289e50dca8f6eaec0755dfc7fe20e3f /Command | |
| parent | 332e98b6cb1091c46221e2d8579a0035ba4dff51 (diff) | |
parallel fsck (yes, these changes are all it takes now!)
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/Fsck.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Fsck.hs b/Command/Fsck.hs index dbbb0e67f..0e0d37acf 100644 --- a/Command/Fsck.hs +++ b/Command/Fsck.hs @@ -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) |