@@ -875,7 +875,13 @@ gitGetCommitBranch uri mbranch = withExitFailMessage ("Failure for git remote "
875875 uriMsg = render uri
876876
877877parseGitUri :: Text -> Maybe URI
878−parseGitUri x = parseSshShorthand x <|> mkURI x
878+parseGitUri x = parseAbsoluteURI x <|> parseSshShorthand x
879+
880+parseAbsoluteURI :: Text -> Maybe URI
881+parseAbsoluteURI uri = do
882+ parsedUri <- mkURI uri
883+ guard $ isPathAbsolute parsedUri
884+ pure $ parsedUri
879885
880886parseSshShorthand :: Text -> Maybe URI
881887parseSshShorthand uri = do