diff --git a/src/Network/Wai/Trans.hs b/src/Network/Wai/Trans.hs
--- a/src/Network/Wai/Trans.hs
+++ b/src/Network/Wai/Trans.hs
@@ -31,6 +31,8 @@
   , runMiddlewareT
   , hoistApplicationT
   , hoistMiddlewareT
+  , inApplicationT
+  , inMiddlewareT
   , -- ** Exception catching
     catchApplicationT
   , catchMiddlewareT
@@ -38,6 +40,11 @@
     readingRequest
   , -- * Websockets
     ServerAppT
+  , liftServerApp
+  , runServerAppT
+  , ClientAppT
+  , liftClientApp
+  , runClientAppT
   , websocketsOrT
   ) where
 
@@ -70,6 +77,12 @@
 runMiddlewareT :: MonadIO m => (forall a. m a -> IO a) -> MiddlewareT m -> Middleware
 runMiddlewareT run mid app = runApplicationT run (mid (liftApplication run app))
 
+inApplicationT :: Monad m => m a -> ApplicationT m -> ApplicationT m
+inApplicationT x app req resp = x >> app req resp
+
+inMiddlewareT :: Monad m => m a -> MiddlewareT m -> MiddlewareT m
+inMiddlewareT x mid = mid . inApplicationT x
+
 -- ** Monad Morphisms
 
 hoistApplicationT :: ( Monad m
@@ -115,6 +128,21 @@
 -- * Websockets
 
 type ServerAppT m = PendingConnection -> m ()
+
+liftServerApp :: (MonadIO m) => ServerApp -> ServerAppT m
+liftServerApp s = liftIO . s
+
+runServerAppT :: (forall a. m a -> IO a) -> ServerAppT m -> ServerApp
+runServerAppT run s = run . s
+
+type ClientAppT m a = Connection -> m a
+
+liftClientApp :: (MonadIO m) => ClientApp a -> ClientAppT m a
+liftClientApp c = liftIO . c
+
+runClientAppT :: (forall a. m a -> IO a) -> ClientAppT m a -> ClientApp a
+runClientAppT run c = run . c
+
 
 -- | Respond with the WebSocket server when applicable, as a middleware
 websocketsOrT :: (MonadIO m) => (forall a. m a -> IO a) -> ConnectionOptions -> ServerAppT m -> MiddlewareT m
diff --git a/wai-transformers.cabal b/wai-transformers.cabal
--- a/wai-transformers.cabal
+++ b/wai-transformers.cabal
@@ -1,5 +1,5 @@
 Name:                   wai-transformers
-Version:                0.0.6
+Version:                0.0.7
 Author:                 Athan Clark <athan.clark@gmail.com>
 Maintainer:             Athan Clark <athan.clark@gmail.com>
 License:                BSD3