diff options
| author | metamuffin <metamuffin@disroot.org> | 2023-10-15 16:24:21 +0200 |
|---|---|---|
| committer | metamuffin <metamuffin@disroot.org> | 2023-10-15 16:24:21 +0200 |
| commit | 95149c9f252b4ee678b4d7b766c9c4830b548d07 (patch) | |
| tree | 1802f90e946cec9d67b99ebba9eb0b419249b95f /src/BangState.hs | |
| parent | c2f56de490704e3fd6e5d2633e03dab20cce33ff (diff) | |
| download | fastbangs-95149c9f252b4ee678b4d7b766c9c4830b548d07.tar fastbangs-95149c9f252b4ee678b4d7b766c9c4830b548d07.tar.bz2 fastbangs-95149c9f252b4ee678b4d7b766c9c4830b548d07.tar.zst | |
apply some linter suggestions
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 |