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.

diff --git a/Annex/Branch.hs b/Annex/Branch.hs
index 36b8024c8de749bbc89af46665fce2ba33204618..f57e72cf21218c6a4d40632e04cb15c179b348ef 100644 (file)
--- a/Annex/Branch.hs
+++ b/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)