FIX type mismatches
This commit is contained in:
parent
e4ed6aa4cd
commit
99fa944ef4
|
@ -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))))))
|
||||||
|
|
Loading…
Reference in New Issue