From 79016c197ca87182dfae9f6dfb994ff5079fc952 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 1 Jul 2011 17:23:01 -0400
Subject: add hashing to web log files

---
 Remote/Web.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'Remote')

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)
-- 
cgit v1.2.3