From 26333a65b7b9ec4b68d76e17d43beb64145c728e Mon Sep 17 00:00:00 2001
From: Ziv Scully <ziv@mit.edu>
Date: Sun, 2 Aug 2015 18:37:24 -0700
Subject: Fix NONE capitalization typo.

---
 src/sql.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/sql.sml')

diff --git a/src/sql.sml b/src/sql.sml
index a04409a0..da0143b7 100644
--- a/src/sql.sml
+++ b/src/sql.sml
@@ -309,7 +309,7 @@ fun sqlify chs =
    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)
 
-- 
cgit v1.2.3