diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-05-24 11:00:38 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-05-24 11:00:38 +0200 |
| commit | cd766373e829de6e877f46458bab82a355092972 (patch) | |
| tree | 80dc1289487bacfe9942d4e26e512bd66bfe09ba /src/Erebos/Service.hs | |
| parent | 7556f03e324fefcd85d3d80cb18e78ed9afeafea (diff) | |
Move ServiceID definition to Network.Protocol
Diffstat (limited to 'src/Erebos/Service.hs')
| -rw-r--r-- | src/Erebos/Service.hs | 5 |
1 files changed, 1 insertions, 4 deletions
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 |