diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-12-31 14:32:59 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-12-31 14:32:59 -0400 |
| commit | 09905f66559f964ad36dc40da03d4f7f96804a91 (patch) | |
| tree | b871c8a2372e6cba00aaa9b707c091f65837016b /Remote/Web.hs | |
| parent | 38195a6363e54874ce072eb2d3ced448e0b68e02 (diff) | |
| parent | f0957426c586610d16ad9694e002b73324baa29a (diff) | |
Merge branch 'autosync'
Diffstat (limited to 'Remote/Web.hs')
| -rw-r--r-- | Remote/Web.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Remote/Web.hs b/Remote/Web.hs index e31539f88..93e5770f0 100644 --- a/Remote/Web.hs +++ b/Remote/Web.hs @@ -15,7 +15,7 @@ import Config import Logs.Web import qualified Utility.Url as Url -remote :: RemoteType Annex +remote :: RemoteType remote = RemoteType { typename = "web", enumerate = list, @@ -31,7 +31,7 @@ list = do r <- liftIO $ Git.Construct.remoteNamed "web" Git.Construct.fromUnknown return [r] -gen :: Git.Repo -> UUID -> Maybe RemoteConfig -> Annex (Remote Annex) +gen :: Git.Repo -> UUID -> Maybe RemoteConfig -> Annex Remote gen r _ _ = return Remote { uuid = webUUID, @@ -43,7 +43,8 @@ gen r _ _ = hasKey = checkKey, hasKeyCheap = False, config = Nothing, - repo = r + repo = r, + remotetype = remote } downloadKey :: Key -> FilePath -> Annex Bool |