summaryrefslogtreecommitdiff
path: root/Command
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-06-07 11:16:48 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-06-07 11:16:48 -0400
commit4d1c114e4d27ae339f6fb408d398945fa68c2435 (patch)
tree2d27fd4ba63047e2aae7940fa6477a3e443befba /Command
parent8408a91082f440e139884117b2698bb8e0bd3fe9 (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')
-rw-r--r--Command/InitRemote.hs2
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)