aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--web/view/markdown.scm4
-rwxr-xr-xweb/webserver.scm2
2 files changed, 3 insertions, 3 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)
diff --git a/web/webserver.scm b/web/webserver.scm
index ded9997..9f278be 100755
--- a/web/webserver.scm
+++ b/web/webserver.scm
@@ -179,7 +179,7 @@ otherwise search for set/group data"
(let* ((post-data
(decode-request-json body))
(_ (for-each (lambda (target)
- (is-invalid-data? post-data target)
+ (invalid-data? post-data target)
) '("filename" "content" "username" "email" "prev_commit")))
(file-name (assoc-ref post-data "filename"))
(content (assoc-ref post-data "content"))