diff options
author | 2012-02-14 03:49:48 -0400 | |
---|---|---|
committer | 2012-02-14 03:49:48 -0400 | |
commit | cb631ce518b715e36cb3c476d576696f0630738f (patch) | |
tree | f7790f49e3b07eeb0ac86f7fa1b24d06eccbcd2e /Remote | |
parent | 8fbc529d68feb1f40ac7dd44514ac387ba1237ed (diff) |
whereis: Prints the urls of files that the web special remote knows about.
Diffstat (limited to 'Remote')
-rw-r--r-- | Remote/Bup.hs | 1 | ||||
-rw-r--r-- | Remote/Directory.hs | 1 | ||||
-rw-r--r-- | Remote/Git.hs | 1 | ||||
-rw-r--r-- | Remote/Hook.hs | 1 | ||||
-rw-r--r-- | Remote/Rsync.hs | 1 | ||||
-rw-r--r-- | Remote/S3.hs | 1 | ||||
-rw-r--r-- | Remote/Web.hs | 1 |
7 files changed, 7 insertions, 0 deletions
diff --git a/Remote/Bup.hs b/Remote/Bup.hs index 50c3b10b3..a4f43a3f3 100644 --- a/Remote/Bup.hs +++ b/Remote/Bup.hs @@ -53,6 +53,7 @@ gen r u c = do removeKey = remove, hasKey = checkPresent r bupr', hasKeyCheap = bupLocal buprepo, + whereisKey = Nothing, config = c, repo = r, remotetype = remote diff --git a/Remote/Directory.hs b/Remote/Directory.hs index 85f644607..ee2a0d75a 100644 --- a/Remote/Directory.hs +++ b/Remote/Directory.hs @@ -45,6 +45,7 @@ gen r u c = do removeKey = remove dir, hasKey = checkPresent dir, hasKeyCheap = True, + whereisKey = Nothing, config = Nothing, repo = r, remotetype = remote diff --git a/Remote/Git.hs b/Remote/Git.hs index 390524775..c07ae3237 100644 --- a/Remote/Git.hs +++ b/Remote/Git.hs @@ -81,6 +81,7 @@ gen r u _ = do removeKey = dropKey r', hasKey = inAnnex r', hasKeyCheap = cheap, + whereisKey = Nothing, config = Nothing, repo = r', remotetype = remote diff --git a/Remote/Hook.hs b/Remote/Hook.hs index a08c4011e..c7d710f19 100644 --- a/Remote/Hook.hs +++ b/Remote/Hook.hs @@ -45,6 +45,7 @@ gen r u c = do removeKey = remove hooktype, hasKey = checkPresent r hooktype, hasKeyCheap = False, + whereisKey = Nothing, config = Nothing, repo = r, remotetype = remote diff --git a/Remote/Rsync.hs b/Remote/Rsync.hs index c7efe4200..54fb890ca 100644 --- a/Remote/Rsync.hs +++ b/Remote/Rsync.hs @@ -52,6 +52,7 @@ gen r u c = do removeKey = remove o, hasKey = checkPresent r o, hasKeyCheap = False, + whereisKey = Nothing, config = Nothing, repo = r, remotetype = remote diff --git a/Remote/S3.hs b/Remote/S3.hs index c9527ba67..812345b00 100644 --- a/Remote/S3.hs +++ b/Remote/S3.hs @@ -57,6 +57,7 @@ gen' r u c cst = removeKey = remove this, hasKey = checkPresent this, hasKeyCheap = False, + whereisKey = Nothing, config = c, repo = r, remotetype = remote diff --git a/Remote/Web.hs b/Remote/Web.hs index 6bd04d4b1..81e6ca321 100644 --- a/Remote/Web.hs +++ b/Remote/Web.hs @@ -45,6 +45,7 @@ gen r _ _ = removeKey = dropKey, hasKey = checkKey, hasKeyCheap = False, + whereisKey = Just getUrls, config = Nothing, repo = r, remotetype = remote |