attempt at fixing cors

codosseum-org · Sep 12, 2024 · 17f17d1 · 17f17d1
1 parent 0bdbed7
commit 17f17d1
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 1 deletion.
diff --git a/templatespiler-server/server.cabal b/templatespiler-server/server.cabal
@@ -43,6 +43,7 @@ common shared
     , uuid
     , wai
     , wai-cors
+    , wai-extra
     , warp
 
   default-language:   GHC2021

diff --git a/templatespiler-server/src/Main.hs b/templatespiler-server/src/Main.hs
@@ -9,8 +9,10 @@ import Data.OpenApi.Internal.Utils (encodePretty)
 import Data.UUID.V4 (nextRandom)
 import Language.Templatespiler.Parser (parseBindingList)
 import Language.Templatespiler.Syntax (BindingList)
+import Network.Wai (Middleware)
 import Network.Wai.Handler.Warp (run)
 import Network.Wai.Middleware.Cors
+import Network.Wai.Middleware.RequestLogger (logStdoutDev)
 import Options.Applicative qualified as Apt
 import Prettyprinter
 import Prettyprinter.Render.Text
@@ -52,7 +54,15 @@ main = do
         )
 
 app :: State -> Application
-app s = simpleCors $ serve (Proxy @Api) $ hoistServer (Proxy @Api) (nt s) mainServer
+app s = myCors $ logStdoutDev $ serve (Proxy @Api) $ hoistServer (Proxy @Api) (nt s) mainServer
+
+myCors :: Middleware
+myCors = cors (const $ Just policy)
+  where
+    policy =
+      simpleCorsResourcePolicy
+        { corsRequestHeaders = ["Content-Type"]
+        }
 
 nt :: State -> AppM a -> Handler a
 nt s x = runReaderT x s