@@ -28,7 +28,7 @@ import Data.Monoid ((<>))
2828import Data.Aeson (encode, decode)
2929
3030import Network.Wai
31− (requestBody, Application, Request, Response, ResponseReceived)
31+ (lazyRequestBody, Application, Request, Response, ResponseReceived)
3232import Network.WebSockets
3333 (ConnectionOptions(..), sendTextData, receiveDataMessage,
3434 acceptRequest, ServerApp, sendPing)
@@ -87,8 +87,8 @@ jsaddleOr opts entryPoint otherApp = do
8787 syncHandler :: Application
8888 syncHandler req sendResponse = case (W.requestMethod req, W.pathInfo req) of
8989 ("POST", ["sync", syncKey]) -> do
90− body <- requestBody req
91− case decode $ fromStrict body of
90+ body <- lazyRequestBody req
91+ case decode body of
9292 Nothing -> error $ "jsaddle sync message decode failed : " <> show body
9393 Just result ->
9494 M.lookup syncKey <$> readIORef syncHandlers >>= \case