From 46a218730028f7c3aedeabf62f47883752651fb4 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Wed, 13 Sep 2023 16:57:32 -0500
Subject: fix

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

(limited to 'web')

diff --git a/web/view/markdown.scm b/web/view/markdown.scm
index b7c8a58..c0cb992 100644
--- a/web/view/markdown.scm
+++ b/web/view/markdown.scm
@@ -29,9 +29,8 @@
 
 (define (fetch-raw-file url)
   (receive (response-status response-body)
-                          (http-request "https://raw.githubusercontent.com/genenetwork/gn-docs/master/general/brand/aging/home.md")
-    response-body) 
-   )
+      (http-request url)
+    response-body))
 
 ;; https://github.com/genenetwork/gn-docs/master/general/brand/aging/home.md
 ;; https://raw.githubusercontent.com/genenetwork/gn-docs/master/general/brand/aging/home.md
@@ -44,4 +43,4 @@
   "Parse a github markdown file that is formed like genenetwork/gn-docs/general/brand/aging/home.md"
   (match-let (((project repo page ...) (string-split path #\/)))
     (commonmark->sxml
-     (fetch-raw-file (form-github-raw-url project repo page)))))
+     (fetch-raw-file (pk (form-github-raw-url project repo (pk page)))))))
-- 
cgit v1.2.3