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 | 3eba512008eb94393e65533966aeb21c90a231f3 (patch) | |
| tree | 120f43205b07cf55f8d1af41742dd275a4d863ca /src/mono_opt.sml | |
| parent | 2c8e4cddb5f5c7a85337b8c42135c346b14de1f4 (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) |