blob: 397dd75d81acdbbf4a97782b0790eeea92cba8b2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
{-# LANGUAGE OverloadedStrings, LambdaCase #-}
module Auth (
ensureAuth
) where
import Control.Monad (unless)
import Crypto.Hash (hash, Digest, SHA512)
import Data.ByteArray.Encoding (convertToBase, Base(Base64))
import Data.ByteString (ByteString)
import Data.Text.Encoding (encodeUtf8)
import Yesod
ensureAuth :: MonadHandler m => m ()
ensureAuth = lookupBasicAuth >>= \case
Nothing -> notAuthenticated
Just (user, pw) -> unless (hashSha512 pw == hardcodedPw && user == "bleb") notAuthenticated
where hashSha512 pw = convertToBase Base64 $ (hash $ encodeUtf8 pw :: Digest SHA512)
hardcodedPw :: ByteString
hardcodedPw = "l2gTDo5UCimSIQcdK4IrAvJtCIE7KPB7IyS5N7EN4ic78/1mI+8pikPTQTn06+W1XTOk39TgqGEX5KfpAQVm4w=="
|
