diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-07-01 17:23:01 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-07-01 17:23:01 -0400 |
| commit | 79016c197ca87182dfae9f6dfb994ff5079fc952 (patch) | |
| tree | 2f96d12413a757529b56ca876e3220bab4dee1e4 /Remote/Web.hs | |
| parent | fb58d1a560f7c4c94826ec63de16e0276d1f17f8 (diff) | |
add hashing to web log files
Diffstat (limited to 'Remote/Web.hs')
| -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) |