From cd766373e829de6e877f46458bab82a355092972 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 24 May 2025 11:00:38 +0200
Subject: Move ServiceID definition to Network.Protocol

---
 src/Erebos/Service.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'src/Erebos/Service.hs')

diff --git a/src/Erebos/Service.hs b/src/Erebos/Service.hs
index 753f58e..50bded6 100644
--- a/src/Erebos/Service.hs
+++ b/src/Erebos/Service.hs
@@ -32,10 +32,10 @@ import Data.Typeable
 
 import Erebos.Identity
 import {-# SOURCE #-} Erebos.Network
+import Erebos.Network.Protocol
 import Erebos.State
 import Erebos.Storable
 import Erebos.Storage.Head
-import Erebos.UUID (UUID)
 import Erebos.UUID qualified as U
 
 class (
@@ -104,9 +104,6 @@ someServiceEmptyGlobalState (SomeService p _) = SomeServiceGlobalState p (emptyS
 data SomeStorageWatcher s = forall a. Eq a => SomeStorageWatcher (Stored LocalState -> a) (a -> ServiceHandler s ())
 
 
-newtype ServiceID = ServiceID UUID
-    deriving (Eq, Ord, Show, StorableUUID)
-
 mkServiceID :: String -> ServiceID
 mkServiceID = maybe (error "Invalid service ID") ServiceID . U.fromString
 
-- 
cgit v1.2.3