New vhost shortcut

diff --git a/lib/easy_domain.dtl b/lib/easy_domain.dtl
index db27d29..1c1b5d8 100644 (file)
--- a/lib/easy_domain.dtl
+++ b/lib/easy_domain.dtl
@@ -93,3 +93,4 @@ val dnsDefault = \to -> dns (dnsA default to);
 val dnsDefaultv6 = \to -> dns (dnsAAAA default to);
 val dnsText = \from -> \to -> dns (dnsTXT (srv_literal from) to);
 val dnsDefaultText = \to -> dns (dnsTXT srv_default to);
+

diff --git a/lib/hcoop.dtl b/lib/hcoop.dtl
index b4b3109..f538e7e 100644 (file)
--- a/lib/hcoop.dtl
+++ b/lib/hcoop.dtl
@@ -18,3 +18,7 @@ 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 simple_web = \host -> \docroot -> web host where
+  DocumentRoot = home docroot
+with end;