diff options
| -rw-r--r-- | Logs/Group.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/Logs/Group.hs b/Logs/Group.hs index 85906f0a7..ee3b75b86 100644 --- a/Logs/Group.hs +++ b/Logs/Group.hs @@ -44,7 +44,12 @@ groupChange uuid@(UUID _) modifier = do showLog (unwords . S.toList) . changeLog ts uuid (modifier curr) . parseLog (Just . S.fromList . words) - Annex.changeState $ \s -> s { Annex.groupmap = Nothing } + + -- The changed group invalidates the preferred content cache. + Annex.changeState $ \s -> s + { Annex.groupmap = Nothing + , Annex.preferredcontentmap = Nothing + } groupChange NoUUID _ = error "unknown UUID; cannot modify" groupSet :: UUID -> S.Set Group -> Annex () |