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