From 958cd52392185fc31333c1b208948046d7a9e635 Mon Sep 17 00:00:00 2001
From: Arnaud Bailly <arnaud@pankzsoft.com>
Date: Tue, 4 Nov 2025 22:02:53 +0100
Subject: Keep registered users

---
 lambda-calcul/haskell/src/Minilang/Server.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lambda-calcul/haskell/src/Minilang/Server.hs')

diff --git a/lambda-calcul/haskell/src/Minilang/Server.hs b/lambda-calcul/haskell/src/Minilang/Server.hs
index a8ab7ca..6f820ed 100644
--- a/lambda-calcul/haskell/src/Minilang/Server.hs
+++ b/lambda-calcul/haskell/src/Minilang/Server.hs
@@ -17,7 +17,7 @@ import Data.Data (Proxy (..))
 import Data.Default
 import Data.Text (Text)
 import Minilang.API (LambdaAPI)
-import Minilang.App (Env (..), lambdaApp, runApp)
+import Minilang.App (Env (..), lambdaApp, runApp, makeEnv)
 import Minilang.Log
 import Minilang.REPL.Net
 import Network.Wai
@@ -44,7 +44,7 @@ startServer serverPort = do
   envs <- newTVarIO mempty
   logger <- newLog "minilang"
   loggerMiddleware <- runHTTPLog logger
-  env <- Env <$> (newStdGen >>= newTVarIO)
+  env <- newStdGen >>= makeEnv
   let app =
         loggerMiddleware $
           runNetREPL logger envs (serveAPI env)
-- 
cgit v1.3.1