formatting

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

View file

@ -17,6 +17,8 @@ import Annex.Ssh
import qualified Command.Add
import qualified Command.Unannex
import qualified Command.Fsck
{-
import qualified Command.Drop
import qualified Command.Move
import qualified Command.Copy
@ -46,7 +48,6 @@ import qualified Command.Init
import qualified Command.Describe
import qualified Command.InitRemote
import qualified Command.EnableRemote
import qualified Command.Fsck
import qualified Command.Expire
import qualified Command.Repair
import qualified Command.Unused
@ -116,10 +117,13 @@ import qualified Command.TestRemote
#ifdef WITH_EKG
import System.Remote.Monitoring
#endif
-}
cmds :: [Command]
cmds =
[ Command.Add.cmd
, Command.Fsck.cmd
{-
, Command.Get.cmd
, Command.Drop.cmd
, Command.Move.cmd
@ -176,7 +180,6 @@ cmds =
, Command.VPop.cmd
, Command.VCycle.cmd
, Command.Fix.cmd
, Command.Fsck.cmd
, Command.Expire.cmd
, Command.Repair.cmd
, Command.Unused.cmd
@ -218,6 +221,7 @@ cmds =
, Command.FuzzTest.cmd
, Command.TestRemote.cmd
#endif
-}
]
header :: String

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"
)