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 | c9b985223bc94657127b48fa3370bff4ea6ed5f3 (patch) | |
| tree | 9979ef0b3677541c9738b8545ab89d958248daf2 /src | |
| parent | cc9303c6ce89d762a93119cae93241f0485829ac (diff) | |
SQL lower() and upper() functions
Diffstat (limited to 'src')
| -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) |