Add dnsWildcardIP
authorAdam Chlipala <adamc@hcoop.net>
Sat, 5 Apr 2008 20:16:57 +0000 (20:16 +0000)
committerAdam Chlipala <adamc@hcoop.net>
Sat, 5 Apr 2008 20:16:57 +0000 (20:16 +0000)
lib/easy_domain.dtl

index 1546c1e..c3e79b7 100644 (file)
@@ -96,3 +96,4 @@ 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);
 
 val dnsText = \from -> \to -> dns (dnsTXT (srv_literal from) to);
 val dnsDefaultText = \to -> dns (dnsTXT srv_default to);
 
+val dnsWildcardIP = \to -> dns (dnsA wildcard to);