diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-06-07 11:16:48 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-06-07 11:16:48 -0400 |
| commit | 4d1c114e4d27ae339f6fb408d398945fa68c2435 (patch) | |
| tree | 2d27fd4ba63047e2aae7940fa6477a3e443befba /Command/InitRemote.hs | |
| parent | 8408a91082f440e139884117b2698bb8e0bd3fe9 (diff) | |
initremote: Automatically describe a remote when creating it.
This ensures that all special remotes show up in git annex status.
Before, a special remote that was not manually described, and was not
a current git remote, did not show up there, although initremote did list
it.
Diffstat (limited to 'Command/InitRemote.hs')
| -rw-r--r-- | Command/InitRemote.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Command/InitRemote.hs b/Command/InitRemote.hs index 698d60455..a78505a19 100644 --- a/Command/InitRemote.hs +++ b/Command/InitRemote.hs @@ -15,6 +15,7 @@ import qualified Remote import qualified Logs.Remote import qualified Types.Remote as R import Annex.UUID +import Logs.UUID def :: [Command] def = [command "initremote" @@ -60,6 +61,7 @@ findByName name = do where generate = do uuid <- liftIO genUUID + describeUUID uuid name return (uuid, M.insert nameKey name M.empty) findByName' :: String -> M.Map UUID R.RemoteConfig -> Maybe (UUID, R.RemoteConfig) |