diff --git a/Changelog.md b/Changelog.md
--- a/Changelog.md
+++ b/Changelog.md
@@ -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.
diff --git a/engine-io-wai.cabal b/engine-io-wai.cabal
--- a/engine-io-wai.cabal
+++ b/engine-io-wai.cabal
@@ -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
diff --git a/src/Network/EngineIO/Wai.hs b/src/Network/EngineIO/Wai.hs
--- a/src/Network/EngineIO/Wai.hs
+++ b/src/Network/EngineIO/Wai.hs
@@ -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")] ""
 
 
 --------------------------------------------------------------------------------