add hashing to web log files
This commit is contained in:
parent
fb58d1a560
commit
79016c197c
4 changed files with 21 additions and 18 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue