From 4f189ee576e925733c1ffc6c483cb95cf0711170 Mon Sep 17 00:00:00 2001
From: Karn Kallio <kkallio@eka>
Date: Wed, 23 Nov 2011 12:17:40 -0530
Subject: Add LIKE operator to SQL sublanguage.

---
 src/monoize.sml | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/monoize.sml')

diff --git a/src/monoize.sml b/src/monoize.sml
index d18b4d2a..4a70c012 100644
--- a/src/monoize.sml
+++ b/src/monoize.sml
@@ -2470,6 +2470,9 @@ fun monoExp (env, st, fm) (all as (e, loc)) =
           | 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 (
-- 
cgit v1.2.3