Mercurial > urweb

comparison src/mysql.sml @ 870:7fa9a37a34b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Move all DBMS initialization to #init
author Adam Chlipala <adamc@hcoop.net>
date Tue, 30 Jun 2009 15:45:10 -0400
parents 64ba57fa20bf
children 9654bce27cff
comparison
equal deleted inserted replaced
869:64ba57fa20bf 870:7fa9a37a34b3
29 29
30 open Settings 30 open Settings
31 open Print.PD 31 open Print.PD
32 open Print 32 open Print
33 33
34 fun init (dbstring, ss) = 34 fun init {dbstring, prepared = ss, tables, sequences} =
35 let 35 let
36 val host = ref NONE 36 val host = ref NONE
37 val user = ref NONE 37 val user = ref NONE
38 val passwd = ref NONE 38 val passwd = ref NONE
39 val db = ref NONE 39 val db = ref NONE