dingo-core 0.1.0 → 0.2.0

raw patch · 2 files changed

+9/−9 lines, 2 filesdep ~conduitdep ~waidep ~wai-eventsource

Dependency ranges changed: conduit, wai, wai-eventsource, wai-extra, warp

Files

• dingo-core.cabal +6/−6
• src/Dingo/Internal/Server/Wai.hs +3/−3

@@ -1,5 +1,5 @@ Name:                dingo-core-Version:             0.1.0+Version:             0.2.0 Synopsis:            Dingo is a Rich Internet Application platform based on the Warp web server. Description:         Dingo is a Rich Internet Application platform based on the Warp web server. It allows you to write code which looks very much like regular GUI code and have it work in the browser.  @@ -24,7 +24,7 @@                , blaze-builder >= 0.3 && <0.4                , blaze-html >= 0.4.1.6 && < 0.5                , blaze-textual >= 0.2.0.5 && < 0.3-               , conduit >= 0.1 && < 0.2+               , conduit >= 0.2 && < 0.3                , containers >= 0.4                , cookie >= 0.3.0 && < 0.4                , deepseq >= 1.1 && < 1.2@@ -40,10 +40,10 @@                , text == 0.11.*                , transformers >= 0.2.2 && < 0.3                , unordered-containers >= 0.1.4 && < 0.2-               , wai == 1.0.*-               , wai-eventsource == 1.0.*-               , wai-extra == 1.0.*-               , warp == 1.0.*+               , wai == 1.1.*+               , wai-eventsource == 1.1.*+               , wai-extra == 1.1.*+               , warp == 1.1.*                , web-css == 0.1.*   Extensions:          CPP                        DeriveDataTypeable

@@ -15,7 +15,7 @@ import qualified Data.Attoparsec as AP import           Data.ByteString (ByteString) import qualified Data.ByteString as B-import           Data.Conduit (ResourceT, ($$))+import           Data.Conduit (ResourceT) import           Data.HashMap.Strict (HashMap) import qualified Data.HashMap.Strict as H import           Data.IORef (readIORef)@@ -32,7 +32,7 @@ import           Network.HTTP.Types (statusOK, statusForbidden, headerContentType, Header, ResponseHeaders) import           Network.Wai (Request(..), Response(..)) import qualified Network.Wai as W-import           Network.Wai.Parse (parseRequestBody, lbsSink)+import           Network.Wai.Parse (parseRequestBody, lbsBackEnd) import           Network.Wai.EventSource (eventSourceApp, ServerEvent(..)) import           Text.Blaze ((!), toHtml, unsafeByteStringValue) import qualified Text.Blaze.Html4.Strict as H4@@ -118,7 +118,7 @@     handle Nothing = return forbiddenResponse     handle (Just callbackId) = do       -- Post body contains URL-encoded data.-      (params, _) <- requestBody request $$ parseRequestBody lbsSink request+      (params, _) <- parseRequestBody lbsBackEnd request       let stateJson = fromMaybe "{}" $ lookup "state" params       -- Get the state update portion of the form data.       let stateUpdates = convertStateUpdates stateJson