diff options
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 |