diff options
author | Joey Hess <joey@kitenet.net> | 2011-10-29 23:48:46 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-10-30 00:28:22 -0400 |
commit | 4e9be0d1f86893a469b33b763b55edfe75bdb3aa (patch) | |
tree | e721a64007bc52df419a720caf2907dcf62e54ef /Command | |
parent | ef5330120c0b522ff159a5b3caba7a926236947b (diff) |
refactoring and cleanup
No code changes.
Diffstat (limited to 'Command')
-rw-r--r-- | Command/FromKey.hs | 1 | ||||
-rw-r--r-- | Command/Fsck.hs | 2 | ||||
-rw-r--r-- | Command/SetKey.hs | 1 |
3 files changed, 3 insertions, 1 deletions
diff --git a/Command/FromKey.hs b/Command/FromKey.hs index fe9b5c96a..4e4644708 100644 --- a/Command/FromKey.hs +++ b/Command/FromKey.hs @@ -12,6 +12,7 @@ import Command import qualified Annex.Queue import Annex.Content import Types.Key +import Config def :: [Command] def = [command "fromkey" paramPath seek "adds a file using a specific key"] diff --git a/Command/Fsck.hs b/Command/Fsck.hs index 1f30d2eb6..073652d2c 100644 --- a/Command/Fsck.hs +++ b/Command/Fsck.hs @@ -49,7 +49,7 @@ withBarePresentKeys a params = isBareRepo >>= go go True = do unless (null params) $ do error "fsck should be run without parameters in a bare repository" - runActions a loggedKeys + prepStart a loggedKeys startBare :: Key -> CommandStart startBare key = case Backend.maybeLookupBackendName (Types.Key.keyBackendName key) of diff --git a/Command/SetKey.hs b/Command/SetKey.hs index 9c31abb08..0c70d12b0 100644 --- a/Command/SetKey.hs +++ b/Command/SetKey.hs @@ -11,6 +11,7 @@ import Common.Annex import Command import Logs.Location import Annex.Content +import Config def :: [Command] def = [command "setkey" paramPath seek |