Mercurial > urweb

comparison src/settings.sml @ 1787:69daa6d70299

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Top.postFields
author Adam Chlipala <adam@chlipala.net>
date Sat, 21 Jul 2012 15:16:57 -0400
parents ffd7ed3bc0b7
children 2f8b8952fe27
comparison
equal deleted inserted replaced
1786:d794149b3713 1787:69daa6d70299
216 "query", 216 "query",
217 "dml", 217 "dml",
218 "nextval", 218 "nextval",
219 "setval", 219 "setval",
220 "channel", 220 "channel",
221 "send"] 221 "send",
222 "fieldName",
223 "fieldValue",
224 "remainingFields",
225 "firstFormField"]
222 val server = ref serverBase 226 val server = ref serverBase
223 fun setServerOnly ls = server := S.addList (serverBase, ls) 227 fun setServerOnly ls = server := S.addList (serverBase, ls)
224 fun isServerOnly x = S.member (!server, x) 228 fun isServerOnly x = S.member (!server, x)
225 229
226 val basisM = foldl (fn ((k, v : string), m) => M.insert (m, ("Basis", k), v)) M.empty 230 val basisM = foldl (fn ((k, v : string), m) => M.insert (m, ("Basis", k), v)) M.empty