lists.}}
val mailman = \ host : (host) -> begin
- dnsIP host (ip_of_node (mailman_web_node_to_node mailman_web_node));
- domainHost host;
- mwh <- Hostname;
- mailmanWebHost mwh;
- mailmanVhost host where
- MailmanWebNodes = [mailman_web_node];
- SSL = no_ssl
- end;
+ let
+ domainHost host;
+ in
+ dnsIP host (ip_of_node (mailman_web_node_to_node mailman_web_node));
+ mwh <- Hostname;
+ mailmanWebHost mwh;
+ mailmanVhost host where
+ MailmanWebNodes = [mailman_web_node];
+ SSL = no_ssl
+ end
+ end
end;
{{The most common Mailman config, for when you want to have a virtual host of your
domain dedicated to a Mailman interface. Provide the name of that host (e.g.,