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