diff options
| author | Pjotr Prins | 2023-09-13 16:57:32 -0500 |
|---|---|---|
| committer | Pjotr Prins | 2023-09-13 16:57:32 -0500 |
| commit | 46a218730028f7c3aedeabf62f47883752651fb4 (patch) | |
| tree | 211d3a7d4dd60c94cde7a5eee2c9c95ab333ed5a /web/view/markdown.scm | |
| parent | 8a00ec7714dbb046008d291c326adf5cf906f155 (diff) | |
| download | gn-guile-46a218730028f7c3aedeabf62f47883752651fb4.tar.gz | |
fix
Diffstat (limited to 'web/view/markdown.scm')
| -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))))))) |