use hex-encoding for tokens

1 files changed, 3 insertions, 3 deletions

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