diff options
| -rw-r--r-- | web/view/markdown.scm | 7 |
1 files changed, 3 insertions, 4 deletions
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))))))) |