# HG changeset patch # User Adam Chlipala # Date 1433776306 14400 # Node ID 39bd1d4007a9f33bc2ec169d612dce6e049010d0 # Parent 2d9e40e726f243decdc99e88207a8c4d292591a6 Apply syntax sugar for 'class' attribute to

as well diff -r 2d9e40e726f2 -r 39bd1d4007a9 src/urweb.grm --- a/src/urweb.grm Wed Jun 03 09:55:37 2015 -0400 +++ b/src/urweb.grm Mon Jun 08 11:11:46 2015 -0400 @@ -1624,6 +1624,7 @@ val e = (EVar (["Basis"], "form", Infer), pos) val e = (EApp (e, case #2 tag of NONE => (EVar (["Basis"], "None", Infer), pos) + | SOME (EPrim (Prim.String (_, s)), _) => (EApp ((EVar (["Basis"], "Some", Infer), pos), parseClass s pos), pos) | SOME c => (EApp ((EVar (["Basis"], "Some", Infer), pos), c), pos)), pos) in case #3 tag of diff -r 2d9e40e726f2 -r 39bd1d4007a9 tests/classy_form.ur --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/tests/classy_form.ur Mon Jun 08 11:11:46 2015 -0400 @@ -0,0 +1,9 @@ +style form_inline + +val main : transaction page = return + + + Problematic? + + +