diff options
| author |  Ziv Scully <ziv@mit.edu> | 2015-06-29 01:33:47 -0700 |
|---|---|---|
| committer | Ziv Scully <ziv@mit.edu> | 2015-06-29 01:33:47 -0700 |
| commit | aa2da68f6bfc3649fcb43afa1b88909ef278ac60 (patch) | |
| tree | 450157c764ab506a5543e3da8e2a2c0f861f9183 /src/sql.sml | |
| parent | 24edb607ef64db1ab12b3d5b9ccd3848c50780d1 (diff) | |
Refactored a lot and fixed an and/or swap, but still not good on current test.
Diffstat (limited to 'src/sql.sml')
| -rw-r--r-- | src/sql.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/sql.sml b/src/sql.sml index 59b4eac6..22ffea39 100644 --- a/src/sql.sml +++ b/src/sql.sml @@ -214,8 +214,8 @@ val sqbrel = altL [cmp "=" Eq, 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 |