diff options
Diffstat (limited to 'Remote')
| -rw-r--r-- | Remote/Web.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Remote/Web.hs b/Remote/Web.hs index 342acef91..7425dec87 100644 --- a/Remote/Web.hs +++ b/Remote/Web.hs @@ -29,6 +29,7 @@ import UUID import Config import PresenceLog import LocationLog +import Locations remote :: RemoteType Annex remote = RemoteType { @@ -62,9 +63,10 @@ gen r _ _ = config = Nothing } -{- The urls for a key are stored in remote/web/key.log in the git-annex branch. -} +{- The urls for a key are stored in remote/web/hash/key.log + - in the git-annex branch. -} urlLog :: Key -> FilePath -urlLog key = "remote/web" </> show key ++ ".log" +urlLog key = "remote/web" </> hashDirLower key </> show key ++ ".log" getUrls :: Key -> Annex [URLString] getUrls key = currentLog (urlLog key) |