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

formatting

Browse source
This commit is contained in:
Joey Hess 2015-07-09 10:41:17 -04:00
parent d0cf4b2dd4
commit c1c64ec76c
4 changed files with 16 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

12
CmdLine/GitAnnex/Options.hs
View file

@ -71,23 +71,20 @@ parseKeyOptions allowincomplete = KeyOptions
parseAllKeysOption :: Parser Bool
parseAllKeysOption = switch
( long "all"
<> short 'A'
( long "all" <> short 'A'
<> help "operate on all versions of all files"
)
parseUnusedKeysOption :: Parser Bool
parseUnusedKeysOption = switch
( long "unused"
<> short 'U'
( long "unused" <> short 'U'
<> help "operate on files found by last run of git-annex unused"
)
parseSpecificKeyOption :: Parser (Maybe Key)
parseSpecificKeyOption = optional $ option (str >>= parseKey)
( long "key"
( long "key" <> metavar paramKey
<> help "operate on specified key"
<> metavar paramKey
)
parseKey :: Monad m => String -> m Key
@ -193,8 +190,7 @@ autoOption = flagOption ['a'] "auto" "automatic mode"
parseAutoOption :: Parser Bool
parseAutoOption = switch
( long "auto"
<> short 'a'
( long "auto" <> short 'a'
<> help "automatic mode"
)