ndwarshuis
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

FIX type mismatches

This commit is contained in:
Nathan Dwarshuis 2022-05-09 23:03:01 -04:00
parent e4ed6aa4cd
commit 99fa944ef4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
local/lib/org-x/org-x-dag.el
View File

@ -1462,8 +1462,8 @@ deadline (eg via epoch time) or if it has a repeater."
(lambda (id this-h res) (lambda (id this-h res)
(-let* (((&alist :lifetime l) res) (-let* (((&alist :lifetime l) res)
(d (org-x-dag-adjlist-id-planning adjlist :deadline id)) (d (org-x-dag-adjlist-id-planning adjlist :deadline id))
(ns (if (org-ml-timestamp-get-repeater d) (ns (if (car (org-ml-timestamp-get-repeater d))
(either :left "EPG has deadline with repeater") (either :left '((:msg "EPG has deadline with repeater")))
(either :right `(:committed ,l :deadline ,d))))) (either :right `(:committed ,l :deadline ,d)))))
(ht-set this-h id ns) (ht-set this-h id ns)
(org-x-dag-ht-add-links id ht-l :fulfilled l)))))) (org-x-dag-ht-add-links id ht-l :fulfilled l))))))