diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2011-12-17 12:01:31 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2011-12-17 12:01:31 -0500 |
| commit | 566143a9c881c9e506c79af3f3cc39abebc37d8f (patch) | |
| tree | 9979ef0b3677541c9738b8545ab89d958248daf2 /src/monoize.sml | |
| parent | 7577d3e972e5050af4752571a584a5f107505ec8 (diff) | |
SQL lower() and upper() functions
Diffstat (limited to 'src/monoize.sml')
| -rw-r--r-- | src/monoize.sml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index e4ed6562..b1cccb81 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -2785,6 +2785,10 @@ fun monoExp (env, st, fm) (all as (e, loc)) = "octet_length" else "length")), loc), fm) + | L.EFfi ("Basis", "sql_lower") => + ((L'.EPrim (Prim.String "lower"), loc), fm) + | L.EFfi ("Basis", "sql_upper") => + ((L'.EPrim (Prim.String "upper"), loc), fm) | L.ECApp ((L.EFfi ("Basis", "sql_known"), _), _) => ((L'.EFfi ("Basis", "sql_known"), loc), fm) |