bare cleanup

This commit is contained in:
Joey Hess 2011-10-29 19:30:48 -04:00
parent 22e9f445ab
commit ef5330120c
3 changed files with 4 additions and 2 deletions

View file

@ -26,7 +26,7 @@ seek :: [CommandSeek]
seek = [withStrings start]
start :: String -> CommandStart
start s = do
start s = notBareRepo $ do
let u = parseURI s
case u of
Nothing -> error $ "bad url " ++ s