fix up commands that are trouble on bare repos
Most will just abort. init does a basic init and gives a command to run elsewhere to finish it.
This commit is contained in:
parent
b88637fff1
commit
b5b78f26ec
8 changed files with 31 additions and 23 deletions
|
@ -29,7 +29,7 @@ seek = [withStrings start]
|
|||
|
||||
{- Drops unused content by number. -}
|
||||
start :: CommandStartString
|
||||
start s = do
|
||||
start s = notBareRepo $ do
|
||||
m <- readUnusedLog
|
||||
case M.lookup s m of
|
||||
Nothing -> return Nothing
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue