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/Protocol.hs | |
| parent | 924b0790084aebae13318425045aeaa66e150d5e (diff) | |
Silence error when calling discoverySearch without the service
Diffstat (limited to 'src/Erebos/Network/Protocol.hs')
| -rw-r--r-- | src/Erebos/Network/Protocol.hs | 5 |
1 files changed, 4 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) |