engine-io-wai 1.0.6 → 1.0.7

raw patch · 3 files changed

+15/−7 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Network.EngineIO.Wai: data WaiMonad a

+ Network.EngineIO.Wai: WaiMonad :: EitherT Response (ReaderT Request IO) a -> WaiMonad a

+ Network.EngineIO.Wai: [runWaiMonad] :: WaiMonad a -> EitherT Response (ReaderT Request IO) a

+ Network.EngineIO.Wai: newtype WaiMonad a

Files

Changelog.md +9/−0
engine-io-wai.cabal +2/−1
src/Network/EngineIO/Wai.hs +4/−6

Changelog.md view

@@ -1,3 +1,12 @@+## 1.0.7++* Update dependencies+* Expose WaiMonad fields++## 1.0.6++* Update dependencies+ ## 1.0.5  * Increased the upper-bound of `wai` to < 3.3.

engine-io-wai.cabal view

@@ -1,5 +1,6 @@ name: engine-io-wai-version: 1.0.6+version: 1.0.7+synopsis: An @engine-io@ @ServerAPI@ that is compatible with @Wai@ homepage: http://github.com/ocharles/engine.io license: BSD3 license-file: LICENSE

src/Network/EngineIO/Wai.hs view

@@ -4,7 +4,7 @@   module Network.EngineIO.Wai (-    WaiMonad,+    WaiMonad (..),     toWaiApplication,     waiAPI     ) where@@ -18,8 +18,6 @@ import Control.Arrow (second) import Data.Maybe (maybeToList) import Data.ByteString.Lazy (toStrict)-import Data.Text.Lazy.Encoding (encodeUtf8)-import Data.Text.Lazy (fromStrict) import Data.Attoparsec.ByteString (parseOnly) import Network.HTTP.Types.Header (hContentType) @@ -42,9 +40,9 @@ toWaiApplication :: WaiMonad a -> Application toWaiApplication sHandler req respond = do     socket <- runReaderT (runEitherT (runWaiMonad sHandler)) req-    case socket of-        Left response -> respond response-        Right _ -> respond $ responseLBS status200 [("Content-Type", "text/html")] $ encodeUtf8 $ fromStrict ""+    respond $ case socket of+        Left response -> response+        Right _ -> responseLBS status200 [("Content-Type", "text/html")] ""   --------------------------------------------------------------------------------