diff options
Diffstat (limited to 'src/Erebos/Network')
| -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 {..} |