diff options
Diffstat (limited to 'web/view/markdown.scm')
| -rw-r--r-- | web/view/markdown.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/web/view/markdown.scm b/web/view/markdown.scm index 4f085bd..1220898 100644 --- a/web/view/markdown.scm +++ b/web/view/markdown.scm @@ -21,17 +21,16 @@ markdown-github->sxml fetch-file fetch-raw-file - commit-file) + commit-file + is-repo?) ) - (define (markdown-file->sxml fn) "Parse a local file" (commonmark->sxml (call-with-input-file fn get-string-all))) - ;; --- fetch github style URLs (define (fetch-raw-file url) @@ -91,6 +90,7 @@ commit-sha)) (define* (commit-file repo file-path content commit-message username email #:optional (prev-commit "")) + (if (string=? prev-commit (get-latest-commit-sha1 repo)) #t (throw 'system-error (format #f "Commits do no match.Please pull in latest changes for current * ~a * and prev * ~a * " |