From 692865ed95877071020698be88acc190f244d155 Mon Sep 17 00:00:00 2001
From: Alexander_Kabui
Date: Mon, 5 Aug 2024 13:23:24 +0300
Subject: Use env variable REPO_PATH.

---
 web/view/markdown.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'web/view/markdown.scm')

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 * "
-- 
cgit v1.2.3