diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2025-02-20 16:11:33 +0100 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2025-02-20 18:36:23 +0100 |
| commit | cec71796c025d49ad2248f27b6e1055f5a5eb7e2 (patch) | |
| tree | d54bb28078523fd656123c11f91f0664b7138e01 /acms/src/ACMS/ACMS.hs | |
| parent | 346b6399533121d96c4e5e7f2e9e4bfd8d60dc37 (diff) | |
add middleware `simpleCors`
Diffstat (limited to 'acms/src/ACMS/ACMS.hs')
| -rw-r--r-- | acms/src/ACMS/ACMS.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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")) |