extern type mail_node;
{{A node offering SMTP services}}
-extern val mail_node_to_node : mail_node -> node;
\ No newline at end of file
+extern val mail_node_to_node : mail_node -> node;
+
+extern val domainHost : host -> [Domain] {} => { Hostname : domain };
+{{Appends the current domain onto a host.}}