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

changed label in andTasksCond

parent 123a8a6b
......@@ -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