Mercurial > urweb

diff src/sql.sml @ 2247:565da55a4e18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix NONE capitalization typo.
author Ziv Scully <ziv@mit.edu>
date Sun, 02 Aug 2015 18:37:24 -0700
parents 27899da8780b
children f81f1930c5d6
line wrap: on
line diff
--- a/src/sql.sml	Sun Aug 02 18:26:44 2015 -0700
+++ b/src/sql.sml	Sun Aug 02 18:37:24 2015 -0700
@@ -309,7 +309,7 @@
    expressions, so accept any expression without modifying it. *)
 val sqlifySqlcache =
  fn Exp e :: chs => SOME (e, chs)
-  | _ => None
+  | _ => NONE
 
 fun constK s = wrap (const s) (fn () => s)