diff options
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) |