diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-03-15 23:58:27 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-03-15 23:58:27 -0400 |
| commit | dd5448eb075c3774aa173cb9f2e4344ce62b3e13 (patch) | |
| tree | f79857b2a8923f6353b7a29daaec7c1d37ac8687 /LocationLog.hs | |
| parent | 6c412fb9f55155b0b7bf58d578e51640514ec562 (diff) | |
added 2 level hashing
This means there can be 1024 subdirs, each with up to 1024 sub-subdirs.
So with hundreds of millions of annexed objects, each leaf directory will
have only a few files on average.
Diffstat (limited to 'LocationLog.hs')
| -rw-r--r-- | LocationLog.hs | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/LocationLog.hs b/LocationLog.hs index f778df386..a939af825 100644 --- a/LocationLog.hs +++ b/LocationLog.hs @@ -123,11 +123,6 @@ logNow s u = do now <- getPOSIXTime return $ LogLine now s u -{- Returns the filename of the log file for a given key. -} -logFile :: Git.Repo -> Key -> String -logFile repo key = - gitStateDir repo ++ keyFile key ++ ".log" - {- Returns a list of repository UUIDs that, according to the log, have - the value of a key. -} keyLocations :: Git.Repo -> Key -> IO [UUID] |