1 extern val domain : string -> Domain => [Root];
3 extern val host : string -> string -> [Domain];
5 extern val vhost : string -> Vhost => [Domain] {DocRoot : string};
7 extern val directory : string -> ^Vhost & Directory => [Vhost];
9 extern val ssi : [^Vhost];
10 extern val fancy : [Directory];
11 extern val risky : [Vhost];
13 domain "hcoop.net" with
14 host "frumpkin" "1.2.3.4";
15 host "bumpkin" "1.2.3.5";
18 DocRoot = "/home/boopie"
23 DocRoot = "/etc/default";
26 directory "/etc/default/here" with