diff options
Diffstat (limited to 'Command/P2P.hs')
| -rw-r--r-- | Command/P2P.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/P2P.hs b/Command/P2P.hs index 1b5418499..65a2a67da 100644 --- a/Command/P2P.hs +++ b/Command/P2P.hs @@ -76,7 +76,7 @@ seek (Pair, Nothing) = commandAction $ do unusedPeerRemoteName :: Annex RemoteName unusedPeerRemoteName = go (1 :: Integer) =<< usednames where - usednames = mapMaybe remoteName . remotes <$> Annex.gitRepo + usednames = mapMaybe remoteName <$> Annex.getGitRemotes go n names = do let name = "peer" ++ show n if name `elem` names |