Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clean-libraries
Commits
24f13b4e
Commit
24f13b4e
authored
Jun 13, 2008
by
Pieter Koopman
Browse files
changed label in andTasksCond
parent
123a8a6b
Changes
1
Hide whitespace changes
Inline
Side-by-side
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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment