This commit is contained in:
Nathan Dwarshuis 2022-04-21 23:51:36 -04:00
parent 34817889b6
commit 24dd5e68e0
1 changed files with 2 additions and 2 deletions

View File

@ -1437,12 +1437,12 @@ used for optimization."
(-if-let (q (funcall get-planned id committed-ids))
(to-valid id :quarterly q)
(->> (list "Linked to scheduled action that isn't on QTP" id)
(either :left)))))
(either :left))))))
(-if-let (w (->> (funcall get-planned id committed-ids)
(--mapcat (org-x-dag-ht-get-maybe ht-q it :planned))))
(to-valid id :weekly w)
(->> (list "Linked to unscheduled action that isn't on WKP" id)
(either :left)))))))
(either :left))))))
(is-valid-action
(lambda (adjlist id)
(-if-let (c (org-x-dag-ht-get-maybe ht-a id :committed))