Fix git clone URLs on project pages.

1 files changed, 3 insertions, 4 deletions

diff --git a/haunt.scm b/haunt.scm
index 3baf246..f73644c 100644
--- a/haunt.scm
+++ b/haunt.scm
@@ -281,13 +281,12 @@ make install")))))
       (h2 "License")
       (p ,license)
       (h2 "Git Repository")
-      ,@(let ((web-url (string-append "https://git.dthompson.us/" repo ".git"))
-              (clone-url (string-append "git://dthompson.us/" repo ".git")))
+      ,@(let ((url (string-append "https://git.dthompson.us/" repo ".git")))
           `((p ,name " is developed using the Git version control
 system. The official repository is hosted at "
-               ,(anchor web-url web-url) ".")
+               ,(anchor url url) ".")
             (p "To clone the repository, run:")
-            (pre "git clone " ,clone-url)))
+            (pre "git clone " ,url)))
       (h2 "Community")
       (p "Real-time discussion for " ,name " can be found on the "
          (code "#guile")