24 lines
413 B
Plaintext
24 lines
413 B
Plaintext
$newline never
|
|
|
|
<p>_{drCaption}
|
|
|
|
$case targets
|
|
$of [(wdgt, _)]
|
|
<p>^{wdgt}
|
|
$of _
|
|
<ul>
|
|
$forall (wdgt, _) <- targets
|
|
<li>
|
|
^{wdgt}
|
|
|
|
<p>
|
|
$if Text.null (Text.strip confirmString)
|
|
_{SomeMessage $ MsgDeletePressButtonIfSure (Set.size drRecords)}
|
|
$else
|
|
_{SomeMessage $ MsgDeleteCopyStringIfSure (Set.size drRecords)}
|
|
|
|
<p .confirmationText>
|
|
#{confirmString}
|
|
|
|
^{deleteForm}
|