mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

add hashing to web log files

Browse source
This commit is contained in:
Joey Hess 2011-07-01 17:23:01 -04:00
parent fb58d1a560
commit 79016c197c
4 changed files with 21 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Remote/Web.hs
View file

@ -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)