initremote works

This commit is contained in:
Joey Hess 2011-03-29 14:55:59 -04:00
parent 05751d55cd
commit 0a4c610b4f
6 changed files with 85 additions and 30 deletions

View file

@ -31,7 +31,11 @@ import Ssh
import Config
remote :: RemoteType Annex
remote = RemoteType { typename = "git", generator = gen }
remote = RemoteType {
typename = "git",
generator = gen,
setup = error "not supported"
}
gen :: Annex (RemoteGenerator Annex)
gen = do
@ -68,8 +72,7 @@ genRemote r = do
removeKey = dropKey r,
hasKey = inAnnex r,
hasKeyCheap = not (Git.repoIsUrl r),
config = Nothing,
setup = \_ -> return ()
config = Nothing
}
{- Tries to read the config for a specified remote, updates state, and