diff options
Diffstat (limited to 'src/BangState.hs')
| -rw-r--r-- | src/BangState.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/BangState.hs b/src/BangState.hs index 1b76649..b728789 100644 --- a/src/BangState.hs +++ b/src/BangState.hs @@ -41,11 +41,11 @@ reserialize s = do ddg <- readTVar $ ddgBangs s let jsonBs = encode $ own <> ddg -- left biased union - writeTVar (serializedBangs s) $ toStrict $ jsonBs + writeTVar (serializedBangs s) $ toStrict jsonBs writeTVar (brotliBangs s) $ toStrict $ compress jsonBs -- hash: for now, base64 of the first 120 bits of the SHA512 of the bangs writeTVar (serializedHash s) $ decodeASCII $ Data.ByteString.take 20 - $ convertToBase Base64 $ (hashlazy jsonBs :: Digest SHA512) + $ convertToBase Base64 (hashlazy jsonBs :: Digest SHA512) writeTQueue (syncFileNotifications s) () -- spawns a thread for syncing the current state to disk. do *NOT* use forkIO on this |