mirror of
https://github.com/IHaskell/IHaskell.git
synced 2025-04-17 11:56:12 +00:00
Merge pull request #1178 from jamesdbrock/master
sendMessage mhMetadata
This commit is contained in:
commit
cc427517a5
@ -344,6 +344,6 @@ sendMessage debug hmackey sock msg = do
|
||||
hdr = header msg
|
||||
parentHeaderStr = maybe "{}" encodeStrict $ mhParentHeader hdr
|
||||
idents = mhIdentifiers hdr
|
||||
metadata = "{}"
|
||||
metadata = let Metadata mdobject = mhMetadata hdr in encodeStrict mdobject
|
||||
content = encodeStrict msg
|
||||
headStr = encodeStrict hdr
|
||||
|
Loading…
x
Reference in New Issue
Block a user