Mercurial > urweb

diff src/jscomp.sml @ 2255:8428c534913a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use new refactored urlification in Sqlcache.
author Ziv Scully <ziv@mit.edu>
date Mon, 21 Sep 2015 16:45:59 -0400
parents e843a04499d4
children 6fb9232ade99
line wrap: on
line diff
--- a/src/jscomp.sml	Mon Sep 21 16:07:35 2015 -0400
+++ b/src/jscomp.sml	Mon Sep 21 16:45:59 2015 -0400
@@ -1178,7 +1178,7 @@
                      ((EClosure (n, es), loc), st)
                  end
 
-               | EQuery {exps, tables, state, query, body, initial, sqlcacheInfo} =>
+               | EQuery {exps, tables, state, query, body, initial} =>
                  let
                      val row = exps @ map (fn (x, xts) => (x, (TRecord xts, loc))) tables
                      val row = ListMergeSort.sort (fn ((x, _), (y, _)) => String.compare (x, y) = GREATER) row
@@ -1189,8 +1189,7 @@
                      val (initial, st) = exp outer (initial, st)
                  in
                      ((EQuery {exps = exps, tables = tables, state = state,
-                               query = query, body = body, initial = initial,
-                               sqlcacheInfo = sqlcacheInfo}, loc), st)
+                               query = query, body = body, initial = initial}, loc), st)
                  end
                | EDml (e, mode) =>
                  let