diff options
Diffstat (limited to 'Command/Unused.hs')
-rw-r--r-- | Command/Unused.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Unused.hs b/Command/Unused.hs index 312c26adf..d48956920 100644 --- a/Command/Unused.hs +++ b/Command/Unused.hs @@ -266,7 +266,7 @@ withKeysReferencedInGit a = do map (separate (== ' ')) . lines nubRefs = map (Git.Ref . snd) . nubBy (\(x, _) (y, _) -> x == y) - ourbranchend = '/' : show Annex.Branch.name + ourbranchend = '/' : Git.fromRef Annex.Branch.name ourbranches (_, b) = not (ourbranchend `isSuffixOf` b) && not ("refs/synced/" `isPrefixOf` b) addHead headRef refs = case headRef of |