SRV support

Author: coot

ouroboros-consensus-cardano/src/shelley/Ouroboros/Consensus/Shelley/Ledger/PeerSelection.hs

@@ -70,12 +70,17 @@ instance SL.EraCertState era => LedgerSupportsPeerSelection (ShelleyBlock proto
           (SJust ipv6)
         ) =
         Just $ LedgerRelayAccessAddress (IPv6 ipv6) (fromIntegral port)
+    -- no IP address or no port number
+    relayToLedgerRelayAccessPoint (SL.SingleHostAddr SNothing _ _) = Nothing
+    relayToLedgerRelayAccessPoint (SL.SingleHostAddr _ SNothing _) = Nothing
     relayToLedgerRelayAccessPoint (SL.SingleHostName (SJust (Port port)) dnsName) =
       Just $ LedgerRelayAccessDomain (encodeUtf8 $ dnsToText dnsName) (fromIntegral port)
-    relayToLedgerRelayAccessPoint _ =
-      -- This could be an unsupported relay (SRV records) or an unusable
-      -- relay such as a relay with an IP address but without a port number.
-      Nothing
+    -- srv support: either `SingleHostName` without port number or
+    -- `MultiHostName`
+    relayToLedgerRelayAccessPoint (SL.SingleHostName SNothing dnsName) =
+      Just $ LedgerRelayAccessSRVDomain (encodeUtf8 $ dnsToText dnsName)
+    relayToLedgerRelayAccessPoint (SL.MultiHostName dnsName) =
+      Just $ LedgerRelayAccessSRVDomain (encodeUtf8 $ dnsToText dnsName)
 
     -- \| Note that a stake pool can have multiple registered relays
     pparamsLedgerRelayAccessPoints ::