diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-07-01 17:15:46 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-07-01 17:15:46 -0400 |
| commit | 6bddebdb79ca8ed168e143d533a6101c7d469628 (patch) | |
| tree | fdcd6745973e01e5dcbd1ae4ebd591e92a4046ff /LocationLog.hs | |
| parent | a140f7148f3ea0bef2d8c060c7847b3d1be4d25e (diff) | |
add the addurl command
Diffstat (limited to 'LocationLog.hs')
| -rw-r--r-- | LocationLog.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/LocationLog.hs b/LocationLog.hs index a5db7d121..19a8eb83a 100644 --- a/LocationLog.hs +++ b/LocationLog.hs @@ -37,10 +37,7 @@ logChange repo key u s = do when (null u) $ error $ "unknown UUID for " ++ Git.repoDescribe repo ++ " (have you run git annex init there?)" - line <- logNow s u - let f = logFile key - ls <- readLog f - writeLog f (compactLog $ line:ls) + addLog (logFile key) =<< logNow s u {- Returns a list of repository UUIDs that, according to the log, have - the value of a key. -} |