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/Auth.hs | |
| parent | c2f56de490704e3fd6e5d2633e03dab20cce33ff (diff) | |
| download | fastbangs-95149c9f252b4ee678b4d7b766c9c4830b548d07.tar fastbangs-95149c9f252b4ee678b4d7b766c9c4830b548d07.tar.bz2 fastbangs-95149c9f252b4ee678b4d7b766c9c4830b548d07.tar.zst | |
apply some linter suggestions
Diffstat (limited to 'src/Auth.hs')
| -rw-r--r-- | src/Auth.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |