+-- | Make the given 'Host' relative (if it was absolute), and reverse
+-- its labels. This is done in order to look it up in the DNS in
+-- standard reverse lookup form. For example, if we wanted to look
+-- up @192.168.0.1@ on @rbl.example.com@, we would want to look up
+-- the name @1.0.168.192.rbl.example.com@.
+--
+reverse_host :: Host -> Domain
+reverse_host h =
+ pack $ case (backwards h) of
+ (HostRelative _) -> pretty_show h
+ (HostAbsolute d) -> pretty_show d
+
+
+