diff options
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) |