iens

commit 49984f81b860bb47d7a4c900debfea5592e36f3a
parent a3a30f9f8be07a2810abb0fec4b3b33cf5608486
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Tue,  2 Jan 2024 09:52:22 +0000

Command `add-notes` is corrected
Diffstat:
M
src/iens.scm
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/iens.scm b/src/iens.scm
@@ -407,7 +407,7 @@
     (trace `(add-notes ,mtime ,entry-id . ,lines))
     (with-transaction db
       (lambda ()
-        (let ((prev-notes (caddr (query fetch-row select-entry-stmt entry-id))))
+        (let ((prev-notes (list-ref (query fetch-row select-entry-stmt entry-id) 4)))
           (unless-protected entry-id
             (exec set-notes-stmt
                   (apply string-append prev-notes