From cec71796c025d49ad2248f27b6e1055f5a5eb7e2 Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Thu, 20 Feb 2025 16:11:33 +0100 Subject: add middleware `simpleCors` --- acms/acms.cabal | 1 + acms/src/ACMS/ACMS.hs | 2 ++ 2 files changed, 3 insertions(+) diff --git a/acms/acms.cabal b/acms/acms.cabal index fc599ec..0c43b1a 100644 --- a/acms/acms.cabal +++ b/acms/acms.cabal @@ -88,6 +88,7 @@ library uuid, vector, wai, + wai-cors, warp diff --git a/acms/src/ACMS/ACMS.hs b/acms/src/ACMS/ACMS.hs index 86ef171..e09132d 100644 --- a/acms/src/ACMS/ACMS.hs +++ b/acms/src/ACMS/ACMS.hs @@ -35,6 +35,7 @@ import Git.Libgit2 qualified as GB import Network.HTTP.Types.Status qualified as W import Network.Wai qualified as W import Network.Wai.Handler.Warp qualified as W +import Network.Wai.Middleware.Cors (simpleCors) import Safe import Store qualified as Q import System.Directory (makeAbsolute) @@ -307,6 +308,7 @@ run (Config {serverPort, contentRepositoryPath}) = do & W.setPort serverPort & W.setHost hostPref ) + . simpleCors . restApi root ref repoT . queryApi root ref repoT $ (\_ resp -> resp (W.responseLBS W.status404 [] "Not found")) -- cgit v1.2.3