@@ -47,6 +47,7 @@ import qualified Data.Aeson as Aeson
4747import Data.Aeson.Encode.Pretty
4848import qualified Data.Aeson.Types as Aeson
4949import qualified Data.ByteString.Lazy as LBS
50+import Data.Containers.ListUtils (nubOrd)
5051import Data.Default
5152import Data.Either.Combinators (fromRight', rightToMaybe)
5253import Data.Git.Ref (Ref)
@@ -923,7 +924,7 @@ guessGitRepoIsPrivate uri = flip fix urisToTry $ \loop -> \case
923924 (ExitSuccess, _, _) -> pure False -- Must be a public repo
924925 _ -> loop xs
925926 where
926− urisToTry = [uri, changeScheme "https" uri, changeScheme "http" uri, changeScheme "git" uri]
927+ urisToTry = nubOrd [uri, changeScheme "https" uri, changeScheme "http" uri, changeScheme "git" uri]
927928 changeScheme scheme (GitUri u) = GitUri $ u
928929 { URI.uriScheme = URI.mkScheme scheme
929930 , URI.uriAuthority = Left True