Mercurial > urweb

diff src/sql.sml @ 2235:0aae15c2a05a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Refactored a lot and fixed an and/or swap, but still not good on current test.
author Ziv Scully <ziv@mit.edu>
date Mon, 29 Jun 2015 01:33:47 -0700
parents 70ec9bb337be
children 7f92d70a326e
line wrap: on
line diff
--- a/src/sql.sml	Sun Jun 28 12:46:51 2015 -0700
+++ b/src/sql.sml	Mon Jun 29 01:33:47 2015 -0700
@@ -214,8 +214,8 @@
                    cmp "<" Lt,
                    cmp ">=" Ge,
                    cmp ">" Gt,
-                   wrap (const "AND") (fn () => RLop Or),
-                   wrap (const "OR") (fn () => RLop And)]
+                   wrap (const "AND") (fn () => RLop And),
+                   wrap (const "OR") (fn () => RLop Or)]
 
 datatype ('a, 'b) sum = inl of 'a | inr of 'b