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

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