Mercurial > urweb

comparison src/monoize.sml @ 1800:38297294cf98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New NameJs phase, still needing some debugging
author Adam Chlipala <adam@chlipala.net>
date Thu, 02 Aug 2012 18:12:37 -0400
parents 3d922a28370b
children 62c18ecbfec4
comparison
equal deleted inserted replaced
1799:3d922a28370b 1800:38297294cf98
3476 str ");"])) 3476 str ");"]))
3477 attrs 3477 attrs
3478 3478
3479 val t = (L'.TFfi ("Basis", "string"), loc) 3479 val t = (L'.TFfi ("Basis", "string"), loc)
3480 val setClass = (L'.ECase (class, 3480 val setClass = (L'.ECase (class,
3481 [((L'.PNone t, loc), 3481 [((L'.PPrim (Prim.String ""), loc),
3482 str ""), 3482 str ""),
3483 ((L'.PSome (t, (L'.PVar ("x", t), loc)), loc), 3483 ((L'.PVar ("x", t), loc),
3484 (L'.EStrcat ((L'.EPrim (Prim.String "d.className=\""), loc), 3484 (L'.EStrcat ((L'.EPrim (Prim.String "d.className=\""), loc),
3485 (L'.EStrcat ((L'.ERel 0, loc), 3485 (L'.EStrcat ((L'.ERel 0, loc),
3486 (L'.EPrim (Prim.String "\";"), loc)), loc)), 3486 (L'.EPrim (Prim.String "\";"), loc)), loc)),
3487 loc))], 3487 loc))],
3488 {disc = (L'.TOption t, loc), 3488 {disc = (L'.TOption t, loc),