fun init () =
let
- val c = C.conn "dbname='hcoop_hcoop'"
+ val c = C.conn "dbname='hcoop_hcoop' host='postgres'"
in
db := SOME c;
C.dml c "BEGIN";
fun main _ =
let
- val db = C.conn "dbname='hcoop_hcoop'"
+ val db = C.conn "dbname='hcoop_hcoop' host='postgres'"
fun allEmails () =
let
fun main _ =
let
- val db = C.conn "dbname='hcoop_hcoop'"
+ val db = C.conn "dbname='hcoop_hcoop' host='postgres'"
fun printOne [name] = print (C.stringFromSql name ^ "@hcoop.net\n")
in
structure Config :> CONFIG = struct
-val dbstring = "dbname=passgen"
+val dbstring = "dbname=passgen host=postgres"
end
fun generate () =
let
- val db = C.conn "dbname='hcoop_hcoop'"
+ val db = C.conn "dbname='hcoop_hcoop' host='postgres'"
fun procOutput (outf, cmdline) =
let