improve bare repo handing

Many more commands can work in bare repos now, thanks to the git-annex
branch.
This commit is contained in:
Joey Hess 2011-06-22 18:32:41 -04:00
parent 944c51ba26
commit 80302d0b46
11 changed files with 23 additions and 31 deletions

View file

@ -20,7 +20,7 @@ seek :: [CommandSeek]
seek = [withWords start]
start :: CommandStartWords
start ws = notBareRepo $ do
start ws = do
let (name, description) =
case ws of
(n:d) -> (n,unwords d)