Fix type of default WWW env var

[hcoop/domtool2.git] / lib / easy_domain.dtl

diff --git a/lib/easy_domain.dtl b/lib/easy_domain.dtl
index 03af55f..7ed29a4 100644 (file)
--- a/lib/easy_domain.dtl
+++ b/lib/easy_domain.dtl
@@ -32,7 +32,9 @@ val dom =
                        defaultAlias mailbox;
 
                        web "www" with
-                               serverAliasDefault
+                               serverAliasDefault;
+                               www : [Vhost] <- WWW;
+                               www
                        end;
 
                        config
@@ -42,3 +44,4 @@ val nameserver = \host -> dns (dnsNS host);
 val dnsIP = \from -> \to -> dns (dnsA from to);
 val dnsMail = \num -> \host -> dns (dnsMX num host);
 val dnsAlias = \from -> \to -> dns (dnsCNAME from to);
+val dnsDefault = \to -> dns (dnsDefaultA to);