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