From 5d2a6db1c24804bb437911d285fa3e0984ba2a0e Mon Sep 17 00:00:00 2001 From: Alexander Artemenko Date: Sat, 6 Feb 2021 16:42:47 +0300 Subject: [PATCH] Fixed check for .git dir. --- .github/actions/build-docs/upload.ros | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/.github/actions/build-docs/upload.ros b/.github/actions/build-docs/upload.ros index ce34c5c..2da7f69 100755 --- a/.github/actions/build-docs/upload.ros +++ b/.github/actions/build-docs/upload.ros @@ -55,9 +55,10 @@ behaviour could be overriden by keyword argument ``:raise t``." (values stdout stderr code))) -(defun gh-pages-repository-initialized-p () +(defun gh-pages-repository-initialized-p (docs-dir) "Checks if repository for documentation already initialized" - (uiop:directory-exists-p "docs/build/.git")) + (uiop:directory-exists-p (uiop:merge-pathnames* #P".git/" + docs-dir))) (defun git (&rest commands) @@ -123,7 +124,7 @@ behaviour could be overriden by keyword argument ``:raise t``." (let ((*current-dir* docs-dir)) - (unless (gh-pages-repository-initialized-p) + (unless (gh-pages-repository-initialized-p docs-dir) (git "init") (git "remote add origin "