Mercurial > urweb
comparison src/prepare.sml @ 491:0fd65c50e0e2
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), |