More fun for the new server\!
[hcoop/portal.git] / init.sml
index 0010c74..81f5b10 100644 (file)
--- a/init.sml
+++ b/init.sml
@@ -7,6 +7,7 @@ structure C = PgClient
 exception Access of string
 exception NeedTos
 
+val scratchDir = "/home/hcoop"
 val urlPrefix = "https://members.hcoop.net/portal/"
 val emailSuffix = "@new.hcoop.net"
 val boardEmail = "board" ^ emailSuffix