Fix error "Could not parse any remotes from the output of git remote --verbose." (#1266)

Author: Serhii Khoma

src/Spago/Git.purs

@@ -204,13 +204,14 @@ getGit = do
 
 parseRemote :: String -> Maybe Remote
 parseRemote = \line ->
-  case String.split (Pattern "\t") line of
-    [ name, secondPart ]
-      | [ url, _ ] <- String.split (Pattern " ") secondPart
-      , Just [ _, _, Just owner, Just repo ] <- NEA.toArray <$> Regex.match gitUrlRegex url ->
+  case Regex.split tabOrSpaceRegex line of
+    [ name, url, _ ]
+      | Just [ _, _, _, Just owner, Just repo ] <- NEA.toArray <$> Regex.match gitUrlRegex url ->
           Just { name, url, owner, repo }
     _ ->
       Nothing
   where
+  tabOrSpaceRegex = unsafePartial $ fromJust $ hush $
+    Regex.regex "\\s+" mempty
   gitUrlRegex = unsafePartial $ fromJust $ hush $
-    Regex.regex "^(.+@.+:|https?:\\/\\/.+\\/)(.*)\\/(.+)\\.git$" mempty
+    Regex.regex "^((ssh:\\/\\/)?[^@]+@[^:]+[:\\/]|https?:\\/\\/[^\\/]+\\/)(.*)\\/(.+)\\.git$" mempty

test/Spago/Unit/Git.purs

@@ -15,14 +15,30 @@ spec = do
       Spec.it "parses a remote with a git protocol" do
         parseRemote "origin\t[email protected]:foo/bar.git (fetch)"
           `shouldEqual` Just { name: "origin", url: "[email protected]:foo/bar.git", owner: "foo", repo: "bar" }
+        parseRemote "origin  [email protected]:foo/bar.git (fetch)"
+          `shouldEqual` Just { name: "origin", url: "[email protected]:foo/bar.git", owner: "foo", repo: "bar" }
 
       Spec.it "parses a remote with an https protocol" do
         parseRemote "origin\thttps://github.com/foo/bar.git (push)"
           `shouldEqual` Just { name: "origin", url: "https://github.com/foo/bar.git", owner: "foo", repo: "bar" }
+        parseRemote "origin  https://github.com/foo/bar.git (push)"
+          `shouldEqual` Just { name: "origin", url: "https://github.com/foo/bar.git", owner: "foo", repo: "bar" }
+
+      Spec.it "parses a remote with an ssh protocol" do
+        parseRemote "origin\tssh://[email protected]/foo/bar.git (push)"
+          `shouldEqual` Just { name: "origin", url: "ssh://[email protected]/foo/bar.git", owner: "foo", repo: "bar" }
+        parseRemote "origin  ssh://[email protected]/foo/bar.git (push)"
+          `shouldEqual` Just { name: "origin", url: "ssh://[email protected]/foo/bar.git", owner: "foo", repo: "bar" }
 
       Spec.it "rejects malformed remotes" do
         parseRemote "origin\t[email protected]:foo/bar.git" `shouldEqual` Nothing
+        parseRemote "origin  [email protected]:foo/bar.git" `shouldEqual` Nothing
+
         parseRemote "origin\t[email protected]:foo/bar (push)" `shouldEqual` Nothing
-        parseRemote "origin [email protected]:foo/bar.git (fetch)" `shouldEqual` Nothing
+        parseRemote "origin  [email protected]:foo/bar (push)" `shouldEqual` Nothing
+
         parseRemote "origin\t[email protected]:foo.git (push)" `shouldEqual` Nothing
+        parseRemote "origin  [email protected]:foo.git (push)" `shouldEqual` Nothing
+
         parseRemote "origin\thttps://foo.com/bar.git (push)" `shouldEqual` Nothing
+        parseRemote "origin  https://foo.com/bar.git (push)" `shouldEqual` Nothing