Show git:// clone URLS on project pages since https:// is broken.

1 files changed, 4 insertions, 3 deletions

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