diff options
Diffstat (limited to 'web/view/markdown.scm')
| -rw-r--r-- | web/view/markdown.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/web/view/markdown.scm b/web/view/markdown.scm index e6d595d..5f3474c 100644 --- a/web/view/markdown.scm +++ b/web/view/markdown.scm @@ -69,7 +69,7 @@ (define (git-invoke repo-path . args) (apply system* "git" "-C" repo-path args)) -(define (is-repo? repo-path) +(define (git-repository? repo-path) (let ((data (git-invoke repo-path "rev-parse"))) (zero? data))) @@ -83,7 +83,7 @@ (unless (string=? prev-commit (get-latest-commit-sha1 repo)) (throw 'system-error (format #f "Commits do no match.Please pull in latest changes for current * ~a * and prev * ~a * " (get-latest-commit-sha1 repo) prev-commit))) - (if (is-repo? repo) + (if (git-repository? repo) (match (file-exists? (string-append repo "/" file-path)) (#t (with-output-to-file (string-append repo "/" file-path) |