Mercurial > urweb

comparison src/monoize.sml @ 1026:c1f49f6ba856

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Switch Monoize back to POST forms
author Adam Chlipala <adamc@hcoop.net>
date Mon, 02 Nov 2009 11:37:41 -0500
parents 7facf72aaf0a
children a8a825861397
comparison
equal deleted inserted replaced
1025:7facf72aaf0a 1026:c1f49f6ba856
3004 (L'.EPrim (Prim.String " enctype=\"multipart/form-data\""), loc)), loc) 3004 (L'.EPrim (Prim.String " enctype=\"multipart/form-data\""), loc)), loc)
3005 else 3005 else
3006 action 3006 action
3007 3007
3008 in 3008 in
3009 ((L'.EStrcat ((L'.EStrcat ((L'.EPrim (Prim.String "<form method=\"get\""), loc), 3009 ((L'.EStrcat ((L'.EStrcat ((L'.EPrim (Prim.String "<form method=\"post\""), loc),
3010 (L'.EStrcat (action, 3010 (L'.EStrcat (action,
3011 (L'.EPrim (Prim.String ">"), loc)), loc)), loc), 3011 (L'.EPrim (Prim.String ">"), loc)), loc)), loc),
3012 (L'.EStrcat (xml, 3012 (L'.EStrcat (xml,
3013 (L'.EPrim (Prim.String "</form>"), loc)), loc)), loc), 3013 (L'.EPrim (Prim.String "</form>"), loc)), loc)), loc),
3014 fm) 3014 fm)