Check git location is valid when adding project

diff --git a/src/main/server.lisp b/src/main/server.lisp
index d393feed245810c954c2444efa3feb0f9c19fe50..163ba5a891b1bd0de5f7b7e9504e2755866ca862 100644 (file)
--- 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)