got private repos really working

This new TODO will need private indexes to resolve; until then the
private journal has to be checked when private UUIDs are known.

Annex/Branch.hs

@@ -212,7 +212,10 @@ updateTo' pairs = do
 			return True
 	return $ UpdateMade
 		{ refsWereMerged = not (null tomerge)
-		, journalClean = journalclean
+		, journalClean = journalclean 
+			-- TODO need private index, then this can be
+			-- removed
+			&& not privateUUIDsKnown
 		}
   where
 	excludeset s = filter (\(r, _) -> S.notMember r s)