From 641b3a11ba17d60aca5e23ecc8b18d25aaa7eb3c Mon Sep 17 00:00:00 2001 From: Filip Gralinski Date: Wed, 16 Jun 2021 08:52:21 +0200 Subject: [PATCH] Fix generating Gonito URLs --- Handler/ShowChallenge.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Handler/ShowChallenge.hs b/Handler/ShowChallenge.hs index 00ec7f6..a978418 100644 --- a/Handler/ShowChallenge.hs +++ b/Handler/ShowChallenge.hs @@ -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