From df879037d135c0b300735185d5fdc0857ed797d6 Mon Sep 17 00:00:00 2001
From: Arnaud Bailly <arnaud@pankzsoft.com>
Date: Tue, 4 Nov 2025 09:06:01 +0100
Subject: Serve index.html when requesting '/'

---
 lambda-calcul/haskell/src/Minilang/Server.hs | 8 +-------
 1 file changed, 1 insertion(+), 7 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 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")
-- 
cgit v1.3.1