{{HCoop-specific stuff}}

extern type homedir_path;
{{Some relative subdirectory of your home directory}}

extern val home : homedir_path -> your_path;
{{Shortcut to denote a subdirectory of your home directory}}

extern val homeS : no_spaces -> no_spaces;
{{Use this version when it doesn't matter if the output is a real filesystem
  path.}}

val mailmanHcoop = mailmanWebHost "lists.hcoop.net";
{{Configure your domain to have its Mailman mailing lists served on the web at
  lists.hcoop.net.}}

val deleuze_ip : (ip) = "69.90.123.67";
val mire_ip : (ip) = "69.90.123.68";
val krunk_ip : (ip) = "69.90.123.70";
val fyodor_ip : (ip) = "64.20.38.170";

val simpleWeb = \host -> \docroot -> web host where
  DocumentRoot = home docroot
with end;