Mercurial > urweb

diff src/compiler.sml @ 2213:365727ff68f4
Complete overhaul: cache queries based on immediate query result, not eventual HTML output.
author: Ziv Scully <ziv@mit.edu>
date: Tue, 14 Oct 2014 18:05:09 -0400
parents: ef766ef6e242
children: e10881cd92da
--- a/src/compiler.sml	Mon Sep 15 20:01:16 2014 -0400
+++ b/src/compiler.sml	Tue Oct 14 18:05:09 2014 -0400
@@ -83,7 +83,6 @@
 val debug = ref false
 val dumpSource = ref false
 val doIflow = ref false
-val doSqlcache = ref false
 
 val doDumpSource = ref (fn () => ())
 
@@ -1457,7 +1456,10 @@
 val toSigcheck = transform sigcheck "sigcheck" o toSidecheck
 
 val sqlcache = {
-    func = (fn file => (if !doSqlcache then Sqlcache.go file else file)),
+    func = (fn file =>
+               if Settings.getSqlcache ()
+               then let val file = MonoInline.inlineFull file in Sqlcache.go file end
+               else file),
     print = MonoPrint.p_file MonoEnv.empty
 }