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 ++++- src/Erebos/Network/Protocol.hs-boot | 6 ++++++ 2 files changed, 10 insertions(+), 1 deletion(-) create mode 100644 src/Erebos/Network/Protocol.hs-boot (limited to 'src/Erebos/Network') 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) diff --git a/src/Erebos/Network/Protocol.hs-boot b/src/Erebos/Network/Protocol.hs-boot new file mode 100644 index 0000000..2ac46b5 --- /dev/null +++ b/src/Erebos/Network/Protocol.hs-boot @@ -0,0 +1,6 @@ +module Erebos.Network.Protocol where + +import Erebos.UUID (UUID) + +newtype ServiceID = ServiceID UUID +instance Show ServiceID -- cgit v1.2.3