From 623e0e32eff78198673420bc211900f12d942eef Mon Sep 17 00:00:00 2001 From: shum Date: Mon, 26 Oct 2026 07:11:24 +0000 Subject: [PATCH] store: build one-host lists without singleton --- tests/Bots/StoreService/NamesProfilesTests.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/tests/Bots/StoreService/NamesProfilesTests.hs b/tests/Bots/StoreService/NamesProfilesTests.hs index 3914fe308b..9fc07e8a9c 100644 --- a/tests/Bots/StoreService/NamesProfilesTests.hs +++ b/tests/Bots/StoreService/NamesProfilesTests.hs @@ -23,6 +23,7 @@ import qualified Data.ByteString.Base64.URL as B64URL import qualified Data.ByteString.Char8 as B import qualified Data.ByteString.Lazy.Char8 as LB import Data.List (isPrefixOf) +import Data.List.NonEmpty (NonEmpty (..)) import qualified Data.List.NonEmpty as L import qualified Data.Map.Strict as Map import Data.Text (Text) @@ -453,10 +454,10 @@ testEmbeddedAndReserved = do testOnionUnresolvable :: IO () testOnionUnresolvable = do asked <- newTVarIO [] - hostCheck (stubResolver asked) (L.singleton "abcdefghij234567.onion") `shouldReturn` HostRefused - hostCheck (stubResolver asked) (L.singleton $ THDomainName "abcdefghij234567.ONION.") `shouldReturn` HostRefused + hostCheck (stubResolver asked) ("abcdefghij234567.onion" :| []) `shouldReturn` HostRefused + hostCheck (stubResolver asked) (THDomainName "abcdefghij234567.ONION." :| []) `shouldReturn` HostRefused readTVarIO asked `shouldReturn` [] - hostCheck (stubResolver asked) (L.singleton "unknown.test") `shouldReturn` HostRefused + hostCheck (stubResolver asked) ("unknown.test" :| []) `shouldReturn` HostRefused readTVarIO asked `shouldReturn` ["unknown.test"] -- | An IPv4-mapped IPv6 address, @::ffff:a.b.c.d@.