From: Frank Duncan <frank@kank.net>
Date: Fri, 10 Dec 2021 13:05:21 +0000 (-0600)
Subject: Check git location is valid when adding project
X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=candle;a=commitdiff_plain;h=801a519be03f0db7e8fb990aefd1666f4ed28f03

Check git location is valid when adding project
---

diff --git a/src/main/server.lisp b/src/main/server.lisp
index d393fee..163ba5a 100644
--- a/src/main/server.lisp
+++ b/src/main/server.lisp
@@ -20,6 +20,9 @@
  (when
   (not (cl-ppcre:scan "^[0-9A-Za-z-]*$" name))
   (error "Name contains invalid characters"))
+ (when
+  (not (git nil "ls-remote" src))
+  (error "Project uri is not a valid git repository"))
  (make-project :name name :src src)
  t)