From de445ec5a490da6ff22d2789b330f45d5e37765c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Fri, 23 Jan 2026 21:47:11 +0100 Subject: Silence error when calling discoverySearch without the service --- src/Erebos/Network/Protocol.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/Erebos/Network/Protocol.hs') diff --git a/src/Erebos/Network/Protocol.hs b/src/Erebos/Network/Protocol.hs index f67e296..463bf40 100644 --- a/src/Erebos/Network/Protocol.hs +++ b/src/Erebos/Network/Protocol.hs @@ -111,7 +111,10 @@ data TransportHeaderItem deriving (Eq, Show) newtype ServiceID = ServiceID UUID - deriving (Eq, Ord, Show, StorableUUID) + deriving (Eq, Ord, StorableUUID) + +instance Show ServiceID where + show = show . toUUID newtype Cookie = Cookie ByteString deriving (Eq, Show) -- cgit v1.2.3