Update all connection strings to point to the new postgres host

diff --git a/app/app.sml b/app/app.sml
index 911b5cb..8a734f2 100644 (file)
--- a/app/app.sml
+++ b/app/app.sml
@@ -14,7 +14,7 @@ val rnd = ref (Random.rand (0, 0))
 
 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";

diff --git a/contact/contact.sml b/contact/contact.sml
index b7390e9..e1b197a 100644 (file)
--- a/contact/contact.sml
+++ b/contact/contact.sml
@@ -5,7 +5,7 @@ structure C = PgClient
 
 fun main _ =
     let
-       val db = C.conn "dbname='hcoop_hcoop'"
+       val db = C.conn "dbname='hcoop_hcoop' host='postgres'"
 
        fun allEmails () =
            let

diff --git a/listaddrs/listaddrs.sml b/listaddrs/listaddrs.sml
index 15a224c..00487a3 100644 (file)
--- a/listaddrs/listaddrs.sml
+++ b/listaddrs/listaddrs.sml
@@ -4,7 +4,7 @@ structure C = PgClient
 
 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

diff --git a/passgen/config.sml b/passgen/config.sml
index 185526b..525a3f5 100644 (file)
--- a/passgen/config.sml
+++ b/passgen/config.sml
@@ -1,5 +1,5 @@
 structure Config :> CONFIG = struct
 
-val dbstring = "dbname=passgen"
+val dbstring = "dbname=passgen host=postgres"
 
 end

diff --git a/static/gen.sml b/static/gen.sml
index 3ca57e8..4ac67f4 100644 (file)
--- a/static/gen.sml
+++ b/static/gen.sml
@@ -14,7 +14,7 @@ val outputDir = "/home/hcoop/public_html/dyn/"
 
 fun generate () =
     let
-       val db = C.conn "dbname='hcoop_hcoop'"
+       val db = C.conn "dbname='hcoop_hcoop' host='postgres'"
 
        fun procOutput (outf, cmdline) =
            let