From f171ff2fbf98b326a6a2485f87d3792e62620912 Mon Sep 17 00:00:00 2001 From: Alain Brenzikofer Date: Thu, 10 Sep 2026 11:25:28 +0200 Subject: [PATCH] revert drive-by refactoring --- src/Simplex/Messaging/SimplexName.hs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/src/Simplex/Messaging/SimplexName.hs b/src/Simplex/Messaging/SimplexName.hs index 7fb65d714..84b203004 100644 --- a/src/Simplex/Messaging/SimplexName.hs +++ b/src/Simplex/Messaging/SimplexName.hs @@ -153,8 +153,12 @@ instance Encoding SimplexTLD where _ -> fail "bad SimplexTLD" fullDomainName :: SimplexDomain -> Text -fullDomainName SimplexDomain {nameTLD, domain, subDomain} = - T.intercalate "." (reverse subDomain ++ [domain]) <> tldSuffix nameTLD +fullDomainName SimplexDomain {nameTLD, domain, subDomain} = T.intercalate "." (reverse subDomain ++ [domain] ++ tld') + where + tld' = case nameTLD of + TLDSimplex -> ["simplex"] + TLDTesting -> ["testing"] + TLDWeb -> [] -- | A web name carries its own TLD, so it gets no suffix. tldSuffix :: SimplexTLD -> Text