bugfix for uuid lookup

GitQueue.hs

@@ -60,8 +60,7 @@ run repo (Queue _ m) = do
  -
  - Complicated by commandline length limits. -}
 runAction :: Git.Repo -> Action -> [FilePath] -> IO ()
-runAction repo action files = do
-	unless (null files) runxargs
+runAction repo action files = unless (null files) runxargs
 	where
 		runxargs = pOpen WriteToPipe "xargs" ("-0":"git":params) feedxargs
 		params = toCommand $ Git.gitCommandLine repo

Remote/Git.hs

@@ -54,13 +54,15 @@ gen r u _ = do
 		(False, "") -> tryGitConfigRead r
 		_ -> return r
 
+	u' <- getUUID r'
+
 	let defcst = if not $ Git.repoIsUrl r
 		then cheapRemoteCost
 		else expensiveRemoteCost
 	cst <- remoteCost r' defcst
 
 	return $ Remote {
-		uuid = u,
+		uuid = u',
 		cost = cst,
 		name = Git.repoDescribe r',
 		storeKey = copyToRemote r',