diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-03-03 16:40:55 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-03-03 16:40:55 -0400 |
| commit | b5b78f26ecabdb74c05f8200de5f9d054da5cbae (patch) | |
| tree | c7a914c0799a1606774a4653456b9033174e4d35 /Command/FromKey.hs | |
| parent | b88637fff10d4d845404882e4ec95cfc071dcac0 (diff) | |
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.
Diffstat (limited to 'Command/FromKey.hs')
| -rw-r--r-- | Command/FromKey.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Command/FromKey.hs b/Command/FromKey.hs index d16eff846..717d528bc 100644 --- a/Command/FromKey.hs +++ b/Command/FromKey.hs @@ -27,9 +27,8 @@ command = [Command "fromkey" paramPath seek seek :: [CommandSeek] seek = [withFilesMissing start] -{- Adds a file pointing at a manually-specified key -} start :: CommandStartString -start file = do +start file = notBareRepo $ do key <- cmdlineKey inbackend <- Backend.hasKey key unless inbackend $ error $ |