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/Network/Protocol.hs | |
| parent | 7556f03e324fefcd85d3d80cb18e78ed9afeafea (diff) | |
Move ServiceID definition to Network.Protocol
Diffstat (limited to 'src/Erebos/Network/Protocol.hs')
| -rw-r--r-- | src/Erebos/Network/Protocol.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Erebos/Network/Protocol.hs b/src/Erebos/Network/Protocol.hs index ac38588..f5183b3 100644 --- a/src/Erebos/Network/Protocol.hs +++ b/src/Erebos/Network/Protocol.hs @@ -3,6 +3,7 @@ module Erebos.Network.Protocol ( transportToObject, TransportHeader(..), TransportHeaderItem(..), + ServiceID(..), SecurityRequirement(..), WaitingRef(..), @@ -69,9 +70,9 @@ import Erebos.Flow import Erebos.Identity import Erebos.Network.Channel import Erebos.Object -import Erebos.Service import Erebos.Storable import Erebos.Storage +import Erebos.UUID (UUID) protocolVersion :: Text @@ -108,6 +109,9 @@ data TransportHeaderItem | StreamOpen Word8 deriving (Eq, Show) +newtype ServiceID = ServiceID UUID + deriving (Eq, Ord, Show, StorableUUID) + newtype Cookie = Cookie ByteString deriving (Eq, Show) |