Fix generating Gonito URLs

This commit is contained in:
Filip Gralinski 2021-06-16 08:52:21 +02:00
parent 8f2cd3b77d
commit 641b3a11ba

View File

@ -408,7 +408,7 @@ getHttpLink repo = case guessGitServer bareUrl of
stripPrefixFrom pref t = if pref `isPrefixOf` t
then drop (length pref) t
else t
fixGonito t = T.replace "https://gonito.net" "https://gonito.net/gitlist" t
fixGonito t = (T.replace "https://gonito.net" "https://gonito.net/gitlist" t) <> ".git"
getRepoLink :: Repo -> Maybe Text
getRepoLink repo = case getHttpLink repo of