From b58b8423bf51b240c009f4c42e8cf1dcca33b0ba Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sun, 8 Nov 2026 15:49:02 +0100 Subject: Remove unnecessary unpack/pack when generating cookie start time --- src/Erebos/Network/Protocol.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 {..} -- cgit v1.2.3