diff options
Diffstat (limited to 'Command/Unused.hs')
-rw-r--r-- | Command/Unused.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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 . |