Mercurial > urweb

diff src/monoize.sml @ 1607:da788bd72c9e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add LIKE operator to SQL sublanguage.
author Karn Kallio <kkallio@eka>
date Wed, 23 Nov 2011 13:17:40 -0430
parents e44be6ece475
children 15e0c935c91b
line wrap: on
line diff
--- a/src/monoize.sml	Sun Nov 20 20:54:03 2011 -0500
+++ b/src/monoize.sml	Wed Nov 23 13:17:40 2011 -0430
@@ -2470,6 +2470,9 @@
           | L.EFfi ("Basis", "sql_mod") =>
             ((L'.EPrim (Prim.String "%"), loc), fm)
 
+          | L.EFfi ("Basis", "sql_like") =>
+            ((L'.EPrim (Prim.String "LIKE"), loc), fm)
+
           | L.ECApp (
             (L.ECApp (
              (L.ECApp (