diff options
| -rw-r--r-- | acms/acms.cabal | 1 | ||||
| -rw-r--r-- | acms/src/ACMS/ACMS.hs | 2 |
2 files changed, 3 insertions, 0 deletions
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")) |