Add requestBodyMiddleware to ToolServer middleware stack

Co-authored-by: amitaibu <125707+amitaibu@users.noreply.github.com>

Author: 2 people

ihp-ide/IHP/IDE/ToolServer.hs

@@ -49,6 +49,7 @@ import IHP.Controller.NotFound (handleNotFound)
 import IHP.Controller.Session (sessionVaultKey)
 import Paths_ihp_ide (getDataFileName)
 import IHP.RequestVault
+import IHP.RequestBodyMiddleware (requestBodyMiddleware)
 
 runToolServer :: (?context :: Context) => ToolServerApplication -> _ -> IO ()
 runToolServer toolServerApplication liveReloadClients = do
@@ -89,6 +90,7 @@ startToolServer' toolServerApplication port isDebugMode liveReloadClients = do
 
     Warp.runSettings warpSettings $
             logMiddleware $ methodOverridePost $ sessionMiddleware $ approotMiddleware $ frameworkConfigMiddleware frameworkConfig
+                $ requestBodyMiddleware frameworkConfig.parseRequestBodyOptions
                 $ Websocket.websocketsOr
                     Websocket.defaultConnectionOptions
                     (LiveReloadNotificationServer.app liveReloadClients)