summaryrefslogtreecommitdiff
path: root/Remote/Git.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-03-28 23:51:07 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-03-28 23:51:07 -0400
commita3b6586902d6689b07c050b1fc50e19f4115c42e (patch)
tree51d1658cd393c31435cda2b618e03f68563b645a /Remote/Git.hs
parentb1db436816b6b70ff0b9891bbc4a5468d9b895b3 (diff)
update
Diffstat (limited to 'Remote/Git.hs')
-rw-r--r--Remote/Git.hs14
1 files changed, 10 insertions, 4 deletions
diff --git a/Remote/Git.hs b/Remote/Git.hs
index 9021a2230..68bd172e9 100644
--- a/Remote/Git.hs
+++ b/Remote/Git.hs
@@ -6,7 +6,7 @@
-}
module Remote.Git (
- generate,
+ remote,
onRemote
) where
@@ -30,8 +30,11 @@ import RsyncFile
import Ssh
import Config
-generate :: Annex (RemoteGenerator Annex)
-generate = do
+remote :: RemoteType Annex
+remote = RemoteType { typename = "git", generator = gen }
+
+gen :: Annex (RemoteGenerator Annex)
+gen = do
g <- Annex.gitRepo
allremotes <- filterM remoteNotIgnored $ Git.remotes g
@@ -64,7 +67,10 @@ genRemote r = do
retrieveKeyFile = copyFromRemote r,
removeKey = dropKey r,
hasKey = inAnnex r,
- hasKeyCheap = not (Git.repoIsUrl r)
+ hasKeyCheap = not (Git.repoIsUrl r),
+ hasConfig = False,
+ config = Nothing,
+ setup = \_ -> return ()
}
{- Tries to read the config for a specified remote, updates state, and