From b0374700a5a7e6b0bd5abe3568c50223369de5f5 Mon Sep 17 00:00:00 2001 From: Arnaud Bailly Date: Wed, 5 Nov 2025 07:24:18 +0100 Subject: use hex-encoding for tokens --- lambda-calcul/haskell/test/Minilang/ServerSpec.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lambda-calcul/haskell/test/Minilang/ServerSpec.hs') diff --git a/lambda-calcul/haskell/test/Minilang/ServerSpec.hs b/lambda-calcul/haskell/test/Minilang/ServerSpec.hs index c7c45b3..fdf1389 100644 --- a/lambda-calcul/haskell/test/Minilang/ServerSpec.hs +++ b/lambda-calcul/haskell/test/Minilang/ServerSpec.hs @@ -8,7 +8,7 @@ import Data.Aeson (FromJSON, eitherDecode, encode) import Data.Bifunctor (first) import Data.ByteString (isInfixOf, toStrict) import qualified Data.ByteString as BS -import qualified Data.ByteString.Base64.Lazy as Base64 +import qualified Data.ByteString.Base16.Lazy as Hex import Data.ByteString.Lazy (ByteString) import qualified Data.ByteString.Lazy as LBS import Data.Data (Proxy (..)) @@ -27,7 +27,7 @@ import Test.Hspec.Wai.Matcher (MatchBody (..)) spec :: Spec spec = with (app testSeed) $ do - let (token, gen) = first Base64.encode (newToken testSeed) + let (token, gen) = first Hex.encode (newToken testSeed) alice = encode $ User "alice" it "GET / returns 'index.html'" $ do @@ -98,7 +98,7 @@ spec = with (app testSeed) $ do it "POST /api/challenge returns 400 given wrong token" $ do let response = "\"x\"" - otherToken = Base64.encode $ fst $ newToken gen + otherToken = Hex.encode $ fst $ newToken gen postJSON ("/api/challenge?token=" <> LBS.toStrict otherToken) response `shouldRespondWith` 400 -- cgit v1.3.1