Commit dd388090 authored by Eric Timmons's avatar Eric Timmons
Browse files

Fix bug with plain git repos

parent 7d09baab
......@@ -26,6 +26,8 @@
nil)
(defun split-path (path)
(when (eql (aref path 0) #\/)
(setf path (subseq path 1)))
(aprog1 (split-sequence #\/ path)
(dolist (segment it)
(assert (not (equal "" segment)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment