cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- fixed rule's name, this bug leads to a crash when extracting metadata from a gempub file.

This commit is contained in:
cage 2024-09-06 12:23:02 +02:00
parent a300c35c8c
commit 457b1bef9c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/gempub.lisp
View File

@ -77,7 +77,7 @@
(when (find +metadata-entry-name entries :test #'String=) (when (find +metadata-entry-name entries :test #'String=)
(when-let ((metadata-raw (os-utils:unzip-single-file zip-file (when-let ((metadata-raw (os-utils:unzip-single-file zip-file
+metadata-entry-name))) +metadata-entry-name)))
(parse 'metadata metadata-raw)))))) (parse 'gempub-metadata metadata-raw))))))
(defun save-metadata (zip-file) (defun save-metadata (zip-file)
(when-let ((metadata (extract-metadata zip-file))) (when-let ((metadata (extract-metadata zip-file)))