1 {{HCoop-specific stuff}}
3 extern type homedir_path;
4 {{Some relative subdirectory of your home directory}}
6 extern val home : homedir_path -> your_path;
7 {{Shortcut to denote a subdirectory of your home directory}}
9 extern val homeS : no_spaces -> no_spaces;
10 {{Use this version when it doesn't matter if the output is a real filesystem
13 val mailmanHcoop = mailmanWebHost "lists.hcoop.net";
14 {{Configure your domain to have its Mailman mailing lists served on the web at
17 val fritz_ip : (ip) = "69.90.123.75";
18 val deleuze_ip : (ip) = "69.90.123.67";
19 val mire_ip : (ip) = "69.90.123.68";
20 val outpost_ip : (ip) = "74.115.254.28";
21 val krunk_ip : (ip) = "69.90.123.70";
22 val fyodor_ip : (ip) = "64.20.38.170";
24 val simpleWeb = \host -> \docroot -> web host where
25 DocumentRoot = home docroot