[ANE-1861] strip auth from git projects cloned via url (#1451)

* strip auth from https urls for git projects

* use stripAuthFromURL

* update changelog

* include in 3.9.26

* fossa test

* typo

Author: jagonalez

Changelog.md

@@ -3,6 +3,7 @@
 ## 3.9.26
 
 - Reports: Add `includeCopyrightList` to JSON attribution report request. This will ensure that all copyrights are included in the JSON attribution report once the FOSSA API starts including them. All other formats of attribution reports will receive all copyrights without needing to add this query param. [#1450](https://github.com/fossas/fossa-cli/pull/1450)
+- Resolves an issue where git projects cloned with an url including a username were unable to be found when running `fossa test`. [#1451](https://github.com/fossas/fossa-cli/pull/1451)
 
 ## 3.9.25
 

src/App/Fossa/ProjectInference.hs

@@ -36,6 +36,7 @@ import Data.Time.Format.ISO8601 (iso8601Show)
 import Effect.Exec
 import Effect.ReadFS
 import Errata (Errata (..))
+import Network.URI (URI (..), URIAuth (..), isURI, parseURI, uriToString)
 import Path
 import Path.IO (getTempDir)
 import System.FilePath.Posix qualified as FP
@@ -203,13 +204,22 @@ parseGitProjectName dir = do
         Nothing -> fatal InvalidRemote
         Just (Section _ properties) ->
           case HM.lookup "url" properties of
-            Just url -> pure url
+            Just url ->
+              pure $
+                if isURI (toString url) then stripAuthFromURL url else url
             Nothing -> fatal InvalidRemote
   where
     isOrigin :: Section -> Bool
     isOrigin (Section ["remote", "origin"] _) = True
     isOrigin _ = False
 
+    stripAuthFromURL :: Text -> Text
+    stripAuthFromURL url = case parseURI (toString url) of
+      Just uri -> case uriAuthority uri of
+        Just auth -> toText $ uriToString id uri{uriAuthority = Just auth{uriUserInfo = ""}} ""
+        Nothing -> url
+      Nothing -> url
+
 parseGitProjectRevision ::
   ( Has ReadFS sig m
   , Has Diagnostics sig m