diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-11-06 15:37:38 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-11-06 15:37:38 -0500 |
| commit | 0a10b5b7d2bbdcbfec723176b2a31d6b4c6d34d1 (patch) | |
| tree | 3dc7245cbdb2c517bb9676d83860e4b48f64026a /src/mono_opt.sml | |
| parent | d6dbcd83918e1cc3b6f6bba2f2b8e82bb15a6e7b (diff) | |
Inserted a NULL value
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 b22f053b..93cb888b 100644 --- a/src/mono_opt.sml +++ b/src/mono_opt.sml @@ -268,6 +268,11 @@ fun exp e = | EFfiApp ("Basis", "sqlifyInt", [(EPrim (Prim.Int n), _)]) => EPrim (Prim.String (sqlifyInt n)) + | EFfiApp ("Basis", "sqlifyIntN", [(ENone _, _)]) => + EPrim (Prim.String "NULL") + | EFfiApp ("Basis", "sqlifyIntN", [(ESome (_, (EPrim (Prim.Int n), _)), _)]) => + EPrim (Prim.String (sqlifyInt n)) + | EFfiApp ("Basis", "sqlifyFloat", [(EPrim (Prim.Float n), _)]) => EPrim (Prim.String (sqlifyFloat n)) | EFfiApp ("Basis", "sqlifyBool", [b as (_, loc)]) => |