From ec169f84b1cc140b6d4c316fbd0e8407297d038a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 15 Oct 2011 16:36:56 -0400 Subject: migrate: Copy url logs for keys when migrating. --- Logs/Web.hs | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'Logs') diff --git a/Logs/Web.hs b/Logs/Web.hs index ff8fbdb6b..4c8ef7fc0 100644 --- a/Logs/Web.hs +++ b/Logs/Web.hs @@ -9,6 +9,7 @@ module Logs.Web ( URLString, webUUID, setUrl, + setUrlPresent, getUrls ) where @@ -31,6 +32,7 @@ oldurlLog :: Key -> FilePath {- A bug used to store the urls elsewhere. -} oldurlLog key = "remote/web" hashDirLower key show key ++ ".log" +{- Gets all urls that a key might be available from. -} getUrls :: Key -> Annex [URLString] getUrls key = do us <- currentLog (urlLog key) @@ -47,3 +49,6 @@ setUrl key url status = do -- update location log to indicate that the web has the key, or not us <- getUrls key logChange g key webUUID (if null us then InfoMissing else InfoPresent) + +setUrlPresent :: Key -> URLString -> Annex () +setUrlPresent key url = setUrl key url InfoPresent -- cgit v1.2.3