diff options
| author | Arnaud Bailly <arnaud@pankzsoft.com> | 2025-11-04 09:06:01 +0100 |
|---|---|---|
| committer | Arnaud Bailly <arnaud@pankzsoft.com> | 2025-11-04 09:06:01 +0100 |
| commit | df879037d135c0b300735185d5fdc0857ed797d6 (patch) | |
| tree | 60ea569254a110be6fc53453e99312e2f16fc384 /lambda-calcul/haskell/src/Minilang/Server.hs | |
| parent | 1083bb7758a2dfe3f2861bf802627cec16933861 (diff) | |
| download | lambda-nantes-df879037d135c0b300735185d5fdc0857ed797d6.tar.gz | |
Serve index.html when requesting '/'
Diffstat (limited to 'lambda-calcul/haskell/src/Minilang/Server.hs')
| -rw-r--r-- | lambda-calcul/haskell/src/Minilang/Server.hs | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/lambda-calcul/haskell/src/Minilang/Server.hs b/lambda-calcul/haskell/src/Minilang/Server.hs index 8717081..d627271 100644 --- a/lambda-calcul/haskell/src/Minilang/Server.hs +++ b/lambda-calcul/haskell/src/Minilang/Server.hs @@ -45,9 +45,7 @@ startServer serverPort = do loggerMiddleware <- runHTTPLog logger let app = loggerMiddleware $ - runNetREPL logger envs $ - staticResources $ - serveAPI + runNetREPL logger envs serveAPI (port, action) <- startWarp serverPort app thread <- async action logInfo logger $ object ["action" .= ("Started" :: Text), "port" .= port] @@ -78,7 +76,3 @@ stopServer _ = pure () waitServer :: Server -> IO () waitServer (Server (Just th) _) = wait th waitServer _ = pure () - --- | Serve static resources under `public/` directory -staticResources :: Middleware -staticResources = staticPolicyWithOptions defaultOptions (addBase "public") |