diff --git a/main.scm b/main.scm index 5b71f4d..cf82c02 100755 --- a/main.scm +++ b/main.scm @@ -161,10 +161,9 @@ string-block (lambda () (display-source-html source-file))) (case (string->symbol (or (pathname-extension source-file) "")) ((jpg jpeg png gif webp webm svg apng avif svgz ico) - (system (format "git-show HEAD:~a > ~a " + (system (format "git show HEAD:~a > ~a" source-file - (make-pathname html-repo-path source-file) - ))))) + (make-pathname html-repo-path source-file)))))) source-files-list))) (define (bail . args)