diff options
| author | Arnaud Bailly <arnaud@pankzsoft.com> | 2025-11-05 07:24:18 +0100 |
|---|---|---|
| committer | Arnaud Bailly <arnaud@pankzsoft.com> | 2025-11-05 07:24:18 +0100 |
| commit | b0374700a5a7e6b0bd5abe3568c50223369de5f5 (patch) | |
| tree | 1e5137dcc465b5f6ae7c4d574d5921fc9aaf27bb /lambda-calcul/haskell/src | |
| parent | dff1c912eb69ad1f97f030bd0fdb7d440b2dc534 (diff) | |
| download | lambda-nantes-b0374700a5a7e6b0bd5abe3568c50223369de5f5.tar.gz | |
use hex-encoding for tokens
Diffstat (limited to 'lambda-calcul/haskell/src')
| -rw-r--r-- | lambda-calcul/haskell/src/Minilang/App.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lambda-calcul/haskell/src/Minilang/App.hs b/lambda-calcul/haskell/src/Minilang/App.hs index 52a7352..175edcb 100644 --- a/lambda-calcul/haskell/src/Minilang/App.hs +++ b/lambda-calcul/haskell/src/Minilang/App.hs @@ -11,7 +11,7 @@ import Control.Monad.Catch (MonadThrow (throwM)) import Control.Monad.Except (ExceptT (..)) import Control.Monad.IO.Class (MonadIO, liftIO) import Control.Monad.Reader (MonadReader, ReaderT, ask, asks, runReaderT) -import qualified Data.ByteString.Base64 as Base64 +import qualified Data.ByteString.Base16 as Hex import qualified Data.ByteString.Lazy as LBS import Data.Map (Map) import qualified Data.Map as Map @@ -86,7 +86,7 @@ generateToken = genVal <- readTVar tvar let (tokenBytes, newGen) = newToken genVal writeTVar tvar newGen - pure $ Token $ decodeUtf8 $ Base64.encode $ LBS.toStrict tokenBytes + pure $ Token $ decodeUtf8 $ Hex.encode $ LBS.toStrict tokenBytes getLeaderboard :: (MonadIO m, MonadReader Env m) => m [Score] getLeaderboard = do |