diff options
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) |