diff options
Diffstat (limited to 'Utility/SRV.hs')
| -rw-r--r-- | Utility/SRV.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Utility/SRV.hs b/Utility/SRV.hs index 38ac28787..4f2db680b 100644 --- a/Utility/SRV.hs +++ b/Utility/SRV.hs @@ -33,12 +33,13 @@ import Data.Either #endif newtype SRV = SRV String + deriving (Show, Eq) type HostPort = (HostName, PortID) mkSRV :: String -> String -> HostName -> SRV mkSRV transport protocol host = SRV $ concat - ["_", protocol, ".", transport, ".", host] + ["_", protocol, "._", transport, ".", host] mkSRVTcp :: String -> HostName -> SRV mkSRVTcp = mkSRV "tcp" |