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