From cec71796c025d49ad2248f27b6e1055f5a5eb7e2 Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
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