From 7b94f3433f47e4e5010dc2af6010181da49637e8 Mon Sep 17 00:00:00 2001
From: Ziv Scully <ziv@mit.edu>
Date: Fri, 31 Oct 2014 09:25:03 -0400
Subject: Mostly finish effectfulness analysis.

---
 src/main.mlton.sml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/main.mlton.sml')

diff --git a/src/main.mlton.sml b/src/main.mlton.sml
index 5ecd7290..3ae968b0 100644
--- a/src/main.mlton.sml
+++ b/src/main.mlton.sml
@@ -47,7 +47,6 @@ fun oneRun args =
                   Elaborate.unifyMore := false;
                   Compiler.dumpSource := false;
                   Compiler.doIflow := false;
-                  Compiler.doSqlcache := false;
                   Demo.noEmacs := false;
                   Settings.setDebug false)
 
@@ -161,7 +160,7 @@ fun oneRun args =
                 (Compiler.doIflow := true;
                  doArgs rest)
               | "-sqlcache" :: rest =>
-                (Compiler.doSqlcache := true;
+                (Settings.setSqlcache true;
                  doArgs rest)
               | "-moduleOf" :: fname :: _ =>
                 (print (Compiler.moduleOf fname ^ "\n");
-- 
cgit v1.2.3