diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-01-23 21:47:11 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-01-23 21:50:33 +0100 |
| commit | de445ec5a490da6ff22d2789b330f45d5e37765c (patch) | |
| tree | bf5d2de21458c1e1007d516a4c334a735b3545c9 /src/Erebos/Network | |
| parent | 924b0790084aebae13318425045aeaa66e150d5e (diff) | |
Silence error when calling discoverySearch without the service
Diffstat (limited to 'src/Erebos/Network')
| -rw-r--r-- | src/Erebos/Network/Protocol.hs | 5 | ||||
| -rw-r--r-- | src/Erebos/Network/Protocol.hs-boot | 6 |
2 files changed, 10 insertions, 1 deletions
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 |