Skip to content

GitLab

Commit 24f13b4e authored by Pieter Koopman's avatar Pieter Koopman
Browse files

changed label in andTasksCond

parent 123a8a6b
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
libraries/iTasks/iTasksCombinators.icl
View file @ 24f13b4e
......@@ -298,7 +298,7 @@ where
= (([i],mkbuttons buttons chosenname),{tst & hst = hst})
where
mkbuttons buttons chosenname = if (length list > 1)
[showMainLabel "and",showTrace " / ",showLabel chosenname: buttons]
[showMainLabel label,showTrace " / ",showLabel chosenname: buttons] // PK "and"->label
[]
andTasksCond_pdm :: !String !([a] -> Bool) ![LabeledTask a] -> Task [a] | iData a
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment