Mercurial > urweb

comparison src/prepare.sml @ 491:0fd65c50e0e2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix demo regression
author Adam Chlipala <adamc@hcoop.net>
date Tue, 11 Nov 2008 16:51:45 -0500
parents 8e055bbbd28b
children 162d5308e34f
comparison
equal deleted inserted replaced
490:366676f7bc88 491:0fd65c50e0e2
181 in 181 in
182 case prepString (query, [], 0) of 182 case prepString (query, [], 0) of
183 NONE => 183 NONE =>
184 ((EQuery {exps = exps, tables = tables, rnum = rnum, 184 ((EQuery {exps = exps, tables = tables, rnum = rnum,
185 state = state, query = query, body = body, 185 state = state, query = query, body = body,
186 initial = initial, prepared = SOME (#2 sns)}, loc), 186 initial = initial, prepared = NONE}, loc),
187 sns) 187 sns)
188 | SOME (ss, n) => 188 | SOME (ss, n) =>
189 ((EQuery {exps = exps, tables = tables, rnum = rnum, 189 ((EQuery {exps = exps, tables = tables, rnum = rnum,
190 state = state, query = query, body = body, 190 state = state, query = query, body = body,
191 initial = initial, prepared = SOME (#2 sns)}, loc), 191 initial = initial, prepared = SOME (#2 sns)}, loc),