sec: split normal user view into its own template

[hcoop/portal.git] / listaddrs / listaddrs.sml

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