Mercurial > urweb

comparison src/monoize.sml @ 566:a152905c3c3b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Displayed an alert dialog
author Adam Chlipala <adamc@hcoop.net>
date Fri, 19 Dec 2008 12:38:11 -0500
parents 74800be65591
children 55fc747a67dc
comparison
equal deleted inserted replaced
565:74800be65591 566:a152905c3c3b
1742 s)], 1742 s)],
1743 {disc = (L'.TFfi ("Basis", "bool"), loc), 1743 {disc = (L'.TFfi ("Basis", "bool"), loc),
1744 result = (L'.TFfi ("Basis", "string"), loc)}), loc), 1744 result = (L'.TFfi ("Basis", "string"), loc)}), loc),
1745 fm) 1745 fm)
1746 end 1746 end
1747 | (L'.TFun _, _) =>
1748 let
1749 val s' = " " ^ lowercaseFirst x ^ "='"
1750 in
1751 ((L'.EStrcat (s,
1752 (L'.EStrcat (
1753 (L'.EPrim (Prim.String s'), loc),
1754 (L'.EStrcat (
1755 (L'.EJavaScript e, loc),
1756 (L'.EPrim (Prim.String "'"), loc)), loc)),
1757 loc)), loc),
1758 fm)
1759 end
1747 | _ => 1760 | _ =>
1748 let 1761 let
1749 val fooify = 1762 val fooify =
1750 case x of 1763 case x of
1751 "Href" => urlifyExp 1764 "Href" => urlifyExp