diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-11-08 15:49:02 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-11-08 20:41:24 +0100 |
| commit | b58b8423bf51b240c009f4c42e8cf1dcca33b0ba (patch) | |
| tree | 642648f0a98f88abcf6122151e73bbf48cf0b318 /src | |
| parent | a69cd845e9daa95527b6c497dd7c75293bbeb917 (diff) | |
Diffstat (limited to 'src')
| -rw-r--r-- | src/Erebos/Network/Protocol.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Erebos/Network/Protocol.hs b/src/Erebos/Network/Protocol.hs index 92ec93a..474bbb1 100644 --- a/src/Erebos/Network/Protocol.hs +++ b/src/Erebos/Network/Protocol.hs @@ -538,7 +538,7 @@ erebosNetworkProtocol initialIdentity gLog gTestLog gDataFlow gControlFlow = do gInitConfig <- store mStorage $ (Rec [] :: Object) gCookieKey <- getRandomBytes 32 - gCookieStartTime <- runGet getWord32host . BL.pack . BA.unpack @ScrubbedBytes <$> getRandomBytes 4 + gCookieStartTime <- runGet getWord32host . BL.fromStrict <$> getRandomBytes 4 let gs = GlobalState {..} |