diff options
| author | Arnaud Bailly <arnaud@pankzsoft.com> | 2025-11-04 22:02:53 +0100 |
|---|---|---|
| committer | Arnaud Bailly <arnaud@pankzsoft.com> | 2025-11-04 22:02:53 +0100 |
| commit | 958cd52392185fc31333c1b208948046d7a9e635 (patch) | |
| tree | f4688c6c4b48a775596b0dc1766aeabe3627ffb7 /lambda-calcul/haskell/src/Minilang/Server.hs | |
| parent | db4ecd7a93086585937b9b45970f4f4c4e1838a3 (diff) | |
| download | lambda-nantes-958cd52392185fc31333c1b208948046d7a9e635.tar.gz | |
Keep registered users
Diffstat (limited to 'lambda-calcul/haskell/src/Minilang/Server.hs')
| -rw-r--r-- | lambda-calcul/haskell/src/Minilang/Server.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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) |