From 65e4f9cc73f4800fd4dcb5503f7a428539e1e959 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 14 Oct 2010 14:22:05 -0400
Subject: [PATCH] update cached uuids if it's noticed they changed

---
 UUID.hs | 25 ++++++++++++-------------
 1 file changed, 12 insertions(+), 13 deletions(-)

diff --git a/UUID.hs b/UUID.hs
index c770045270..9348c7b437 100644
--- a/UUID.hs
+++ b/UUID.hs
@@ -41,22 +41,21 @@ genUUID = liftIO $ pOpen ReadFromPipe "uuid" ["-m"] $ \h -> hGetLine h
 getUUID :: Git.Repo -> Annex UUID
 getUUID r = do
 	g <- Annex.gitRepo
-	let uuid = cached r g
-	if (uuid /= "")
-		then return $ uuid
-		else do
-			let uuid = uncached r
-			if (uuid /= "")
-				then do
-					updatecache r g uuid
-					return uuid
-				else return ""
+
+	let c = cached r g
+	let u = uncached r
+			
+	if (c /= u && u /= "")
+		then do
+			updatecache g r u
+			return u
+		else return c
 	where
 		uncached r = Git.configGet r "annex.uuid" ""
 		cached r g = Git.configGet g (cachekey r) ""
-		updatecache r g uuid = do
-			if (g /= r) 
-				then setConfig (cachekey r) uuid
+		updatecache g r u = do
+			if (g /= r)
+				then setConfig (cachekey r) u
 				else return ()
 		cachekey r = "remote." ++ (Git.repoRemoteName r) ++ ".annex-uuid"