diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-07-10 13:18:46 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-07-10 13:23:06 -0400 |
| commit | 19a3a331c35238a10ec2c537cf64d0b4c1fb290c (patch) | |
| tree | ca5d79d0be1a80c01c9ad452331bdbebc1c4430a /Command/Fsck.hs | |
| parent | 9886c302ef538e538ec7d48b94374b9d2400004f (diff) | |
finished converting all the main options
Diffstat (limited to 'Command/Fsck.hs')
| -rw-r--r-- | Command/Fsck.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/Command/Fsck.hs b/Command/Fsck.hs index 0c5251ecb..0e0c49d78 100644 --- a/Command/Fsck.hs +++ b/Command/Fsck.hs @@ -41,9 +41,10 @@ import Data.Time.Clock.POSIX import System.Posix.Types (EpochTime) cmd :: Command -cmd = command "fsck" SectionMaintenance - "find and fix problems" - paramPaths (seek <$$> optParser) +cmd = withGlobalOptions annexedMatchingOptions $ + command "fsck" SectionMaintenance + "find and fix problems" + paramPaths (seek <$$> optParser) data FsckOptions = FsckOptions { fsckFiles :: CmdParams @@ -52,8 +53,6 @@ data FsckOptions = FsckOptions , keyOptions :: Maybe KeyOptions } --- TODO: annexedMatchingOptions - data IncrementalOpt = StartIncrementalO | MoreIncrementalO |