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/Auth.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Auth.hs')

diff --git a/src/Auth.hs b/src/Auth.hs
index 98b4932..b29b163 100644
--- a/src/Auth.hs
+++ b/src/Auth.hs
@@ -16,4 +16,4 @@ ensureAuth :: MonadHandler m => Config -> m ()
 ensureAuth cfg = lookupBasicAuth >>= \case
     Nothing -> notAuthenticated
     Just (user, pw) -> unless (hashSha512 pw == encodeUtf8 (confPwHash cfg) && user == confUser cfg) $ permissionDenied "Wrong username/password"
-  where hashSha512 pw = convertToBase Base64 $ (hash $ encodeUtf8 pw :: Digest SHA512)
+  where hashSha512 pw = convertToBase Base64 (hash $ encodeUtf8 pw :: Digest SHA512)
-- 
cgit v1.2.3-70-g09d2