no-op cleanup
This commit is contained in:
parent
3833395a2c
commit
0b86b0022e
1 changed files with 2 additions and 3 deletions
5
main.scm
5
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)
|
||||
|
|
Loading…
Reference in a new issue