From ba744c84a4f683e50bf4c9b8c388e3a611f7fb91 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 16 Sep 2012 23:09:08 -0400 Subject: better name for fallback sync refs Don't expose these as branches in refs/heads/. Instead hide them away in refs/synced/ where only show-ref will find them. Make unused only look at branches and tags, not these other things, so it won't care if some stale sync ref used to use a file. This means they don't need to be deleted, which could have led to an incoming sync being missed. --- Command/Unused.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'Command/Unused.hs') diff --git a/Command/Unused.hs b/Command/Unused.hs index 39a7a59cf..f5eb4b7dd 100644 --- a/Command/Unused.hs +++ b/Command/Unused.hs @@ -251,7 +251,9 @@ withKeysReferencedInGit a = do rs <- relevantrefs <$> showref forM_ rs (withKeysReferencedInGitRef a) where - showref = inRepo $ Git.Command.pipeRead [Param "show-ref"] + {- List heads and tags, but not other refs used in syncing. -} + showref = inRepo $ Git.Command.pipeRead + [Param "show-ref", Param "--heads", Param "--tags"] relevantrefs = map (Git.Ref . snd) . nubBy uniqref . filter ourbranches . -- cgit v1.2.3