s464900/gonito
1
0
Fork 0
forked from filipg/gonito
Code Issues Pull Requests Projects Releases Wiki Activity

Add CORS

Browse Source
This commit is contained in:
Filip Gralinski 2020-11-21 18:13:58 +01:00
parent dd5338c251
commit a0577ba249
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Application.hs
View File

@ -28,6 +28,7 @@ import Network.Wai.Middleware.RequestLogger (Destination (Logger),
IPAddrSource (..), IPAddrSource (..),
OutputFormat (..), destination, OutputFormat (..), destination,
mkRequestLogger, outputFormat) mkRequestLogger, outputFormat)
import Network.Wai.Middleware.Cors
import System.Log.FastLogger (defaultBufSize, newStdoutLoggerSet, import System.Log.FastLogger (defaultBufSize, newStdoutLoggerSet,
toLogStr) toLogStr)
@ -145,7 +146,7 @@ makeApplication foundation = do
-- Create the WAI application and apply middlewares -- Create the WAI application and apply middlewares
appPlain <- toWaiAppPlain foundation appPlain <- toWaiAppPlain foundation
return $ logWare $ defaultMiddlewaresNoLogging appPlain return $ logWare $ defaultMiddlewaresNoLogging $ simpleCors appPlain
makeLogWare :: App -> IO Middleware makeLogWare :: App -> IO Middleware
makeLogWare foundation = makeLogWare foundation =

1
gonito.cabal
View File

@ -151,6 +151,7 @@ library
, megaparsec , megaparsec
, Glob , Glob
, req , req
, wai-cors
executable gonito executable gonito
if flag(library-only) if flag(library-only)