summaryrefslogtreecommitdiff
path: root/Command/AddUrl.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-10-29 19:30:48 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-10-29 19:30:48 -0400
commitef5330120c0b522ff159a5b3caba7a926236947b (patch)
tree5265d215e099bc6b2fcbcd85ac5dc3223665617c /Command/AddUrl.hs
parent22e9f445ab74041321d731fd6290f2922384753b (diff)
bare cleanup
Diffstat (limited to 'Command/AddUrl.hs')
-rw-r--r--Command/AddUrl.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/AddUrl.hs b/Command/AddUrl.hs
index e974d06a1..4382a9c07 100644
--- a/Command/AddUrl.hs
+++ b/Command/AddUrl.hs
@@ -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