From 99fa944ef45a3d146e5f39644895aa30268d629e Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Mon, 9 May 2022 23:03:01 -0400 Subject: [PATCH] FIX type mismatches --- local/lib/org-x/org-x-dag.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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))))))