2dc33fa4 |
1 | extern val domain : string -> Domain => [Root]; |
2 | |
3 | extern val host : string -> string -> [Domain]; |
4 | |
5 | extern val vhost : string -> Vhost => [Domain] {DocRoot : string}; |
6 | |
7 | extern val directory : string -> ^Vhost & Directory => [Vhost]; |
8 | |
9 | extern val ssi : [^Vhost]; |
10 | extern val fancy : [Directory]; |
11 | extern val risky : [Vhost]; |
12 | |
13 | domain "hcoop.net" with |
14 | host "frumpkin" "1.2.3.4"; |
15 | host "bumpkin" "1.2.3.5"; |
16 | |
17 | vhost "www" where |
18 | DocRoot = "/home/boopie" |
19 | with |
20 | risky |
21 | end; |
22 | |
23 | DocRoot = "/etc/default"; |
24 | |
25 | vhost "smelly" with |
26 | directory "/etc/default/here" with |
27 | ssi; |
28 | fancy |
29 | end; |
30 | ssi |
31 | end; |
32 | |
33 | vhost "rank" with |
34 | ssi |
35 | end |
36 | end |