This commit is contained in:
Joey Hess 2012-01-10 15:36:54 -04:00
parent 16e7178f20
commit abdacf58ed
8 changed files with 26 additions and 41 deletions

View file

@ -52,7 +52,7 @@ withBarePresentKeys a params = isBareRepo >>= go
go True = do
unless (null params) $
error "fsck should be run without parameters in a bare repository"
prepStart a loggedKeys
map a <$> loggedKeys
startBare :: Key -> CommandStart
startBare key = case Backend.maybeLookupBackendName (Types.Key.keyBackendName key) of