import Gargantext.Prelude
import Network.HTTP.Types hiding (Query)
import Network.Wai
-import Network.Wai (Request, requestHeaders)
import Network.Wai.Handler.Warp hiding (defaultSettings)
import Network.Wai.Middleware.Cors
import Network.Wai.Middleware.RequestLogger
makeDevMiddleware :: Mode -> IO Middleware
makeDevMiddleware mode = do
-
- -- logWare <- mkRequestLogger def { destination = RequestLogger.Logger $ env^.logger }
- --logWare <- mkRequestLogger def { destination = RequestLogger.Logger "/tmp/logs.txt" }
+-- logWare <- mkRequestLogger def { destination = RequestLogger.Logger $ env^.logger }
+-- logWare <- mkRequestLogger def { destination = RequestLogger.Logger "/tmp/logs.txt" }
-- let checkOriginAndHost app req resp = do
-- blocking <- fireWall req (env ^. menv_firewall)
-- case blocking of