From 95149c9f252b4ee678b4d7b766c9c4830b548d07 Mon Sep 17 00:00:00 2001
From: metamuffin <metamuffin@disroot.org>
Date: Sun, 15 Oct 2023 16:24:21 +0200
Subject: apply some linter suggestions

---
 src/BangState.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/BangState.hs')

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
-- 
cgit v1.2.3-70-g09d2