summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorRoman Smrž <roman.smrz@seznam.cz>2023-09-02 12:41:53 +0200
committerRoman Smrž <roman.smrz@seznam.cz>2023-09-02 12:41:53 +0200
commit2144ddbd1750475d187670430a0b343bd47489c2 (patch)
tree22352e4d2a9a954671b417e92ec4a918ff5aafa3 /src
parentd2aec16007371fa78a16cde10c3370eb041cd86f (diff)
Protocol: change service headers to SVT/SVR
Diffstat (limited to 'src')
-rw-r--r--src/Network/Protocol.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Network/Protocol.hs b/src/Network/Protocol.hs
index bd93386..a1167e5 100644
--- a/src/Network/Protocol.hs
+++ b/src/Network/Protocol.hs
@@ -95,8 +95,8 @@ transportToObject st (TransportHeader items) = Rec $ map single items
AnnounceUpdate dgst -> (BC.pack "ANU", RecRef $ partialRefFromDigest st dgst)
TrChannelRequest dgst -> (BC.pack "CRQ", RecRef $ partialRefFromDigest st dgst)
TrChannelAccept dgst -> (BC.pack "CAC", RecRef $ partialRefFromDigest st dgst)
- ServiceType stype -> (BC.pack "STP", RecUUID $ toUUID stype)
- ServiceRef dgst -> (BC.pack "SRF", RecRef $ partialRefFromDigest st dgst)
+ ServiceType stype -> (BC.pack "SVT", RecUUID $ toUUID stype)
+ ServiceRef dgst -> (BC.pack "SVR", RecRef $ partialRefFromDigest st dgst)
transportFromObject :: PartialObject -> Maybe TransportHeader
transportFromObject (Rec items) = case catMaybes $ map single items of
@@ -115,8 +115,8 @@ transportFromObject (Rec items) = case catMaybes $ map single items of
| name == BC.pack "ANU", RecRef ref <- content -> Just $ AnnounceUpdate $ refDigest ref
| name == BC.pack "CRQ", RecRef ref <- content -> Just $ TrChannelRequest $ refDigest ref
| name == BC.pack "CAC", RecRef ref <- content -> Just $ TrChannelAccept $ refDigest ref
- | name == BC.pack "STP", RecUUID uuid <- content -> Just $ ServiceType $ fromUUID uuid
- | name == BC.pack "SRF", RecRef ref <- content -> Just $ ServiceRef $ refDigest ref
+ | name == BC.pack "SVT", RecUUID uuid <- content -> Just $ ServiceType $ fromUUID uuid
+ | name == BC.pack "SVR", RecRef ref <- content -> Just $ ServiceRef $ refDigest ref
| otherwise -> Nothing
transportFromObject _ = Nothing