diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-12-19 12:38:11 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-12-19 12:38:11 -0500 |
| commit | e478b4d432d65b33613a601f71204fc0c656c3db (patch) | |
| tree | 120f43205b07cf55f8d1af41742dd275a4d863ca /src/mono_opt.sml | |
| parent | ed7c55c7d3d47e59b73cda4d1d7663bec6728934 (diff) | |
Displayed an alert dialog
Diffstat (limited to 'src/mono_opt.sml')
| -rw-r--r-- | src/mono_opt.sml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/mono_opt.sml b/src/mono_opt.sml index 6c0e6e21..7f83c003 100644 --- a/src/mono_opt.sml +++ b/src/mono_opt.sml @@ -360,6 +360,11 @@ fun exp e = | EWrite (EPrim (Prim.String ""), loc) => ERecord [] + | EJavaScript (EAbs (_, (TRecord [], _), _, (EFfiApp ("Basis", "alert", [s]), _)), loc) => + EStrcat ((EPrim (Prim.String "alert("), loc), + (EStrcat ((EFfiApp ("Basis", "jsifyString", [s]), loc), + (EPrim (Prim.String ")"), loc)), loc)) + | _ => e and optExp e = #1 (U.Exp.map {typ = typ, exp = exp} e) |