Fix runFormTable HTML output

This commit is contained in:
Michael Snoyman 2010-11-30 09:09:31 +02:00
parent 24669f8d38
commit ac809e8316

View File

@ -187,8 +187,8 @@ runFormTable dest inputLabel form = do
^widget^ ^widget^
%tr %tr
%td!colspan=2 %td!colspan=2
$nonce$ $nonce$
%input!type=submit!value=$inputLabel$ %input!type=submit!value=$inputLabel$
|] |]
return (res, widget') return (res, widget')